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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!