hackers
新手上路
积分 1
发帖 1
注册 2007-10-17
|
#1 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"
| |
※ ※ ※ 本文纯属【hackers】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
 |
|
