asp 實現檢測字符串是否為純字母和數字組合的函數

<%

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

'函數：CheckString(strng)

'參數：strng,待驗證字符串

'作者：阿里西西

'日期：2007/7/13

'描述：檢測字符串是否為純字母和數字組合

'示例：<%=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

%>

檢測是否為中文字符

<%

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

'函數：CheckChinese(strng)

'參數：strng,待驗證字符

'作者：阿里西西

'日期：2007/7/13

'描述：檢測是否為中文字符，返回值：中文為true，否則false

'示例：<%=CheckChinese(strng)%>

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

FunctionCheckChinese(strng)

CheckChinese=true

DimregEx,Match

SetregEx=NewRegExp

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

regEx.IgnoreCase=True

SetMatch=regEx.Execute(strng)

ifmatch.countthenCheckChinese=false

EndFunction

%>