ASP编码教程：ASP中限制某些字符留言评论
2015-5-5编辑:ljnbset
1
2
3
4
5
6
7
8
9
10
11 Sub CheckCanSubmit(str)
Dim connt,connts
connt="六合彩,免费电影,安利,http,www, connts = split(connt,",")
For each glword in connts
if instr(str,glword)<>0 then
Response.Write(" ")
Response.End()
end if
next
End Sub
2
3
4
5
6
7
8
9
10
11 Sub CheckCanSubmit(str)
Dim connt,connts
connt="六合彩,免费电影,安利,http,www,
For each glword in connts
if instr(str,glword)<>0 then
Response.Write(" ")
Response.End()
end if
next
End Sub