ASP to determine whether there are Chinese code _ Application Skills

In ASP (VBScript as language), the ASC function returns a value less than 0 and can be judged as a Chinese character. The ASC function returns the ANSI character code corresponding to the first letter of the string.

Copy Code code as follows:

' Determine if there are any Chinese characters in the string
' There-return true
' None-return false '
' The Chinese characters here may also include Japanese, Korean, and other oriental characters.
function Haschinese (str)
Haschinese = False

Dim i
For I=1 to Len (str)
If ASC (Mid (str,i,1)) < 0 Then
Haschinese = True
Exit For
End If
Next
End Function

JS to determine whether there are Chinese