webForumDet fria alternativet

Ordkontroll

ASP

5 svar · 219 visningar · startad av Gimbo

Medlem sedan dec. 20001 626 inlägg
Frågan#1

Hejsan!

Vill hindra besökarna från att skriva vissa ord i ett forum...

ANvänder mig av denna typ av inmatning till databasen:

Addera = "Select * From tabell"
   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
	
	RecSet("namn") = Request.form("namn") 
	RecSet("inlagg") = Request.form("inlagg") 
                ... osv

Borde man inte kunna kontrollera inlaggs fältet med detta,

if request.form("inlagg") = ucase(SVARORD1) or ucase(Svarord2) then response.write "använd inte såna ord din pajas"
else
så fortsätter den...
end if

eller vad säger ni??

Medlem sedan aug. 2001226 inlägg
#2

hum var länge sedan ja höll på med asp eftersom min dator e pajj men ja gissdar lite:

set objregexp = new RegExp
objregexp.Pattern="(ord1|ord2|ord3|ord4)"
set found = objregexp.Execute(strText)
if found.matches > 0 then
Response.Write "Använd inte sådana ord i detta forum"
else
Addera = "Select * From tabell"
   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
	
	RecSet("namn") = Request.form("namn") 
	RecSet("inlagg") = Request.form("inlagg") 
                ... osv
end if

ngt som detta kanske... Minns inte rikigt dock tyvärr men ngn annan kanske kan hjälpa dig.
*Kom på att ja har gjort ett script som censurerar text med *or
adr: http://www.webforum.nu/showthread.php?s=&threadid=49120
<%="over and out Pirro"%>

Medlem sedan dec. 20001 626 inlägg
#3

oke tack för den,,, men går e inte att fixa me en vanlig if sats?? eller måste man använda regexp??

Medlem sedan juni 20003 076 inlägg
#4
if instr(request.form("inlagg"), uCase('satan')) Then
elseif ...
Medlem sedan aug. 2001226 inlägg
#5

kanske
if Instr(strText,"fultord") then
Response.write("Whoooooooooo!")
response.end
end if
överst i filen

Medlem sedan nov. 20017 144 inlägg
#6

Lägger du till en etta efter så kommer inStr att behandla gemener och VERSALER lika.

if Instr(strText,"fultord",[red]1[/red]) then 
Response.write("Whoooooooooo!") 
response.end 
end if
261 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
114 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
130 ms — ändringar (db)