3 svar · 306 visningar · startad av hellboy
Jag har försökt pilla ihop ett litet spamskydd, men det fungerar inte helt tillfredsställande...
Jag anropar följande funktion innan data sparas till DB:
Dim words, spamFilter
Function IsSpam(strValue)
words = "poker,casino"
spamFilter = Split(words,",")
For i=0 To UBound(spamFilter)
Set objRegExp = New RegExp
objRegExp.Pattern=spamFilter(i)
IsSpam = objRegExp.Test(strValue)
Set objRegExp = Nothing
Next
End Function
som det är nu så släpper den igenom poker, men stoppar casino. tips?
Så här skulle jag skrivit. Bättre prestandamässigt. Slipper loopa...
Function IsSpam(strValue)
Dim objRegExp, words
words = "poker|casino"
Set objRegExp = New RegExp
objRegExp.Pattern=words
IsSpam = objRegExp.Test(strValue)
Set objRegExp = Nothing
End Function
flyttat från ASP scripts
