展开全部
str="#@#@@a32"
if RegExpfind("[\da-z]*", str) then
Response.write "有字母或数字"
else
Response.write "没有任何字母或数字"
end if
Function RegExpfind(patrn, strng)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
RegExpfind = regEx.Test(strng) ' 执行搜索测试。
End Function
if RegExpfind("[\da-z]*", str) then
Response.write "有字母或数字"
else
Response.write "没有任何字母或数字"
end if
Function RegExpfind(patrn, strng)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
RegExpfind = regEx.Test(strng) ' 执行搜索测试。
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询