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