当前位置:主页 > 查看内容

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

发布时间:2021-04-25 00:00| 位朋友查看

简介: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("scriptalert('操作非法');window.history.go(-1);/script") Respons……
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

原文链接:https://m.jb51.net/article/52273.htm
本站部分内容转载于网络,版权归原作者所有,转载之目的在于传播更多优秀技术内容,如有侵权请联系QQ/微信:153890879删除,谢谢!
上一篇:Asp中err和error对象的属性详解及用法示例 下一篇:没有了

推荐图文


随机推荐