asp function to detect whether a string is a combination of pure letters and numbers

<%

'*********************************

'Function: CheckString(strng)

'Parameter: strng, string to be verified

'Author: Alixi

'Date: 2007/7/13

'Description: Detect whether a string is a combination of pure letters and numbers

'Example: <%=CheckString(strng)%>

'*********************************

FunctionCheckString(strng)

CheckString=true

DimregEx, Match

SetregEx=NewRegExp

regEx.Pattern="^[A-Za-z0-9]+$"

regEx.IgnoreCase=True

SetMatch=regEx.Execute(strng)

ifmatch.countthenCheckString=false

EndFunction

%>

Detect whether it is a Chinese character

<%

'*********************************

'Function: CheckChinese(strng)

'Parameter: strng, character to be verified

'Author: Alixi

'Date: 2007/7/13

'Description: Detect whether it is a Chinese character, return value: true in Chinese, otherwise false

'Example: <%=CheckChinese(strng)%>

'*********************************

FunctionCheckChinese(strng)

CheckChinese=true

DimregEx, Match

SetregEx=NewRegExp

regEx.Pattern="/||/#|/&|?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/+|/^|/""|/=|/<|////"

regEx.IgnoreCase=True

SetMatch=regEx.Execute(strng)

ifmatch.countthenCheckChinese=false

EndFunction

%>