asp 实现检测字符串是否为纯字母和数字组合的函数

　　<%

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

　　'函数：CheckString(strng)

　　'参数：strng,待验证字符串

　　'作者：阿里西西

　　'日期：2007/7/13

　　'描述：检测字符串是否为纯字母和数字组合

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

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

　　Function CheckString(strng)

　　CheckString = true

　　Dim regEx, Match

　　Set regEx = New RegExp

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

　　regEx.IgnoreCase = True

　　Set Match = regEx.Execute(strng)

　　if match.count then CheckString= false

　　End Function

　　%>

　　检测是否为中文字符

　　<%

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

　　'函数：CheckChinese(strng)

　　'参数：strng,待验证字符

　　'作者：阿里西西

　　'日期：2007/7/13

　　'描述：检测是否为中文字符，返回值：中文为true，否则false

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

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

　　Function CheckChinese(strng)

　　CheckChinese = true

　　Dim regEx, Match

　　Set regEx = New RegExp

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

　　regEx.IgnoreCase = True

　　Set Match = regEx.Execute(strng)

　　if match.count then CheckChinese= false

　　End Function

　　%>