您所在的位置:小祥子 » 编程 » ASP » 正文

ASP判断字符串是否为中文

时间:2015-02-26 编辑:本站 来源:本站原创

判断一串字符是否为中文,全部是中文则返回true

function iscn(str)
 Dim i
 i = Len(str)
 If i = 0 Then
    iscn = False
    Exit Function
 End If
 
 Do While i > 0
   If Asc(Mid(str, i, 1)) < 10000 And Asc(Mid(str, i, 1)) > -10000 Then
  iscn = False
  Exit Function
   End If
   i = i - 1
 Loop
 iscn = True
end function