ASP留言过滤问题

function outkeyword(keyword)
dim sqlinjdata,sqlinj,i
sqlinjdata = "http|www" '非法关键字http,www
sqlinj= split(sqlinjdata,"|") '把非法关键字放在数值sqlinj里
For i=0 To Ubound(sqlinj)
if instr(keyword,sqlinj(i))>0 and instr(keyword,Request.ServerVariables("Url"))<0Then '如果关键字里含有非法关键字而且不能含有自己的网址
keyword=replace(keyword,sqlinj(i),"")'把非法关键字用空代替
end if
next
outkeyword=keyword'最后返回去掉非法关键字的关键字
end function
用这个函数试试

使用正则表达式肯定能解决你的问题。

http://www.baidu.com/s?wd=asp+%D5%FD%D4%F2%B1%ED%B4%EF%CA%BD

一两句说不清

这个具体问题具体分析