ASP中怎么判断字符串中是否包含字母和数字


ASP中如何判断字符串中是否包含字母和数字,包含两个解决方法一个正则表达式
用正则表达式
纯英文"^[a-zA-Z]+$"
空格+英文  @"^[a-zA-Z\s]+$"
小弟想在ASP中实现如下密码验证，只有包含了字母和数字的字符串才是有效密码，该如何做啊？请大虾指点！
function checks(c) 
dim str,str1 
str1=c 
intlen=len(c) 
for i=0 to intlen 
str= Asc(str1) 
if (str <48 or str> 57)and(str <65 or str> 90)and(str <97 or str> 122) then 
checks=0 
else 
checks=1 
end if 
str1=right(c,intlen-i) '依次判断字符ASCII值 
next 
end function
求ASP用正则判断字符串是否包含字母数字符号的函数，谢谢啦！

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

我自己用的
kkkyyy="站长资源库www.zzzyk.com"
Set regEx = New RegExp
regEx.Pattern = "[\da-z]"
regEx.IgnoreCase = True
regEx.Global = True
If regEx.Test(CStr(kkkyyy)) Then 
   response.write "包含字母数字"
Else 
Response.write "没有任何字母或数字" 
End If   
Set regEx =nothing