判断输入框里是否是中文的函数asp代码

Function isChineseword(getStr) '判断是否为中文
isChineseword=False
  strLen=Len(getStr)
IF strLen=0 Then
isChineseword=False
Exit Function
Else
    For i=1 To strLen
IF Abs(Asc(Mid(getStr,i,1)))<127 Then
isChineseword=False    
    Exit Function
    End IF
Next
    isChineseword=True
End IF
End Function

使用方法：isChineseword(email)=True 说明email是中文，反之为英文或数字

[本日志由 jiaming 于 2010-02-24 10:26 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: