标题: adf [打印本页]

---

作者: hackers     时间: 2007-10-17 23:02    标题: adf

　　<%
　　Function code_ssstrers)
　　dim strer:strer=strers
　　if strer="" or isnull(strer) then code_ss"":exit function
　　
　　strer=replace(strer,"<","<")
　　strer=replace(strer,">",">")
　　strer=replace(strer," "," ") '空格
　　strer=replace(strer,CHR(9)," ") 'table
　　strer=replace(strer,"'","'") '单引号
　　strer=replace(strer,"""",""") '双引号
　　
　　dim re,re_v
　　re_v="[^\(\)\;\';""\[]*"
　　're_v=".[^\[]*" bbs.bitsCN.com国内最早的网管论坛
　　Set re=new RegExp
　　re.IgnoreCase =True
　　re.Global=True
　　
　　re.Pattern="(javascript :)"
　　strer=re.Replace(strer,"javascript：")
　　re.Pattern="(javascript)"
　　strer=re.Replace(strer,"javascript")
　　re.Pattern="(jscript:)"
　　strer=re.Replace(strer,"jscript :")
　　re.Pattern="(js:)"
　　strer=re.Replace(strer,"js:")
　　re.Pattern="(value)"
　　strer=re.Replace(strer,"value")
　　re.Pattern="(about:)"
　　strer=re.Replace(strer,"about:")
　　re.Pattern="(file:)"
　　strer=re.Replace(strer,"file&:")
　　re.Pattern="(document.)"
　　strer=re.Replace(strer,"document :")
　　re.Pattern="(vbscript:)"
　　strer=re.Replace(strer,"vbscript :")
　　re.Pattern="(vbs:)"
　　strer=re.Replace(strer,"vbs :") bitsCN_com关注网管是我们的使命
　　re.Pattern="(on(mouse|exit|error|click|key))"
　　strer=re.Replace(strer,"on$2")

---

欢迎光临 微点交流论坛 (http://bbs.micropoint.com.cn/)

bbs.micropoint.com.cn