webForumDet fria alternativet

Två ASP frågor.

ASP

7 svar · 349 visningar · startad av 3riq

Medlem sedan feb. 200277 inlägg
Frågan#1

Hej!

Det är så här att jag har laddat ner en Gästbok, som jag tycker fungera väldigt bra! Jag kan jätte lite ASP, och ganska mycket HTML... *skryt*

1. Går det på något sätt med ASP blockera vissa ord? T.ex fitta...

2. Jag vill att man ska kunna använda HTML kod, eller iaf så att man kan använda fetstil... Hur gör man detta?

Ha de gott!

Medlem sedan nov. 20018 492 inlägg
#2

Replace löser detta!

Detta kan du lösa med Replace!

<%
Function fixa(str)
fixa = Replace(str, "[B]Fult ord[/B]","[B]Vad som ska bli istället[/B]")
fixa = Replace(str, "[fet]","<b>")
fixa = Replace(str, "[/fet]","</b>")
End Function
%>

Där du skriver ut inlägget:

<%=fixa(Server.HtmlEncode(rs("inlagg")))%>

Du får ändra rs("inlagg") om det ska vara något annat, t.ex RecSet("meddelande")...

För att sedan få fet stil så skriver man [fet]text[/fet].

/Mikael

Medlem sedan mars 2001309 inlägg
#3

Du ska vara medveten om att det kan bli ett litet problem med funktionen som Mika3l skrev......

Om inte användaren avslutar med [/fet] ,så blir ju all text efter första [fet] fet om du fattar vad jag menar.Men det går att lösa med RegExp tror jag.... Men det är Vide en hejare på !!!!

Medlem sedan feb. 200277 inlägg
#4

Tusen tack!

Men hur gör man ifall man vill blockera flera "fula" ord?, och vart ska jag skriva in koden, är det efter databaskopplingen jag gör?

Åter igen tack!

Medlem sedan mars 2001309 inlägg
#5

Funktionen som Mika3l skrev tar ju en Sträng som parameter

du ersätter alltså str med strängen som ska kollas !!!

Förmodligen Rs("meddelandet") där du får byta ut till vad fältet heter !!!

Function fixa(str)

sen så kan du ju bara fortsätta
Ord1fixat = Replace(str, " 1_Fult ord","Vad som ska bli istället")
Ord2fixat =Replace(Ord1fixat, "2_Fult ord","Vad som ska bli isället")
fixa=Replace(Ord2fixat, "3_Fult ord","Vad som ska bli istället")

Medlem sedan feb. 200277 inlägg
#6

Syntax error

Hej igen!

Jag får syntex error nor jag skriver följande.

<%=fixa(Server.HTMLEncode(RecSet("Medd")))%>
<%
Function fixa(str)
fixa = Replace(str, "Fult ord","Vad som ska bli istället")
fixa = Replace(str, "[fet]","<b>")
fixa = Replace(str, "[/fet]","</b>")
End Function
%>
Medlem sedan juni 200032 967 inlägg
#7

Du kan inte lägga en funktion i en loop om det är det du gjort.
Du lägger funktionen utanför, och kallar på den från inuti loopen.

Mvh,

Medlem sedan nov. 20018 492 inlägg
#8

...

Det är som @nders sa, du kan inte ha den koden innuti en loop, lägg den överst på sidan t.ex.

Sen vart du ska skriva vilka ord som ska tas bort ser du i koden.
fixa = Replace(str, "FULT ORD","VAD SOM SKA VISAS ISTÄLLET FÖR DET FULA ORDET")

Det som kan visas istället för ordet är ingenting( , skapar ett mellanslag) eller * eller likande.
Välj själv...

/Mikael

264 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)