|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。正则|正则<%
Rem##复杂正则检测是不是含有不法字符
Rem##str待检测的字符串
Rem##BadWordList过滤的字符串,必需以|相隔
functionIsHaveBadWord(str,BadWordList)
DimstrPattern
strPattern=BadWordList&"+"
DimoRegEx,oMatch
SetoRegEx=NewRegExp
oRegEx.IgnoreCase=True不辨别巨细写
oRegEx.Global=True
oRegEx.Pattern=strPattern
SetoMatch=oRegEx.Execute(str)
IfoMatch.CountThen
IsHaveBadWord=True
Else
IsHaveBadWord=False
EndIf
Endfunction
Rem##复杂正则交换不法字符,以一个*取代
Rem##str待检测的字符串
Rem##BadWordList过滤的字符串,必需以|相隔
functionReplaceBadWord(str,BadWordList)
DimstrPattern
strPattern=BadWordList&"+"
DimoRegEx,oMatch
SetoRegEx=NewRegExp
oRegEx.IgnoreCase=True不辨别巨细写
oRegEx.Global=True
oRegEx.Pattern=strPattern
ReplaceBadWord=oRegEx.Replace(str,"*")
SetoRegEx=Nothing
Endfunction
response.Write("ASP萧月痕xiaoyuehen"&IsHaveBadWord("ASP萧月痕xiaoyuehen","xiaoyuehen|萧月痕")&"<br>")
response.Write("ASP萧月痕xiaoyuehen"&ReplaceBadWord("ASP萧月痕xiaoyuehen","xiaoyuehen|萧月痕")&"<br>")
Rem##检测是不是为,相隔的数字序列.可用于表单的多选提交检测
Rem##str待检测的字符串
functionMatchNumList(str)
DimstrPattern
strPattern="^[0-9]{1,}(,[0-9]+){0,}$"
DimoRegEx,oMatch
SetoRegEx=NewRegExp
oRegEx.IgnoreCase=True不辨别巨细写
oRegEx.Global=True
oRegEx.Pattern=strPattern
SetoMatch=oRegEx.Execute(str)
IfoMatch.CountThen
MatchNumList=True
Else
MatchNumList=False
EndIf
Endfunction
response.Write("6,1245,2122,456"&MatchNumList("6,1245,2122,456")&"<br>")
response.Write("6,1a45,2122,456"&MatchNumList("6,1a45,2122,456")&"<br>")
response.Write(",6,1245,2122,456"&MatchNumList(",6,1245,2122,456")&"<br>")
response.Write("6,1245,2122,456,"&MatchNumList("6,1245,2122,456,")&"<br>")
%>
</p>写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|