ASP中限制某些字符留言评论

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 ifnext End Sub