Sub CheckCanSubmit(str)
Dim connt,connts
connt="六合彩,免费电影,安利,http,www,<a"
connts = split(connt,",")
For each glword in connts
if instr(str,glword)<>0 then
Response.Write("<script>alert('操作非法');window.history.go(-1);</script>")
Response.End()
end if
next
End Sub
标签：
字符,评论
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“ASP中限制某些字符留言评论”评论...