2 svar · 190 visningar · startad av front
Jag har gjort ett forum och lagt upp på min hemsida.
50% av det som skrivs i forumet är skitsnack om min sida så därför skulle jag vilja ha ett censursystem. Hur gör jag för att stoppa att ett inlägg inehåller tex ordet bajs?
Tack på förhand
Dim word, words, ok, meddelande
meddelande = "Du är mongo, din j*vla bajs"
ok = true
words = array("bajs", "***")
For Each Word In Words
If Instr(meddelande, Word) > 0 Then ok = false
Next
If ok Then
'posta meddelande
Else
Response.Write "Du är äcklig"
End If
Tack!!!
