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