ASP 判斷是否有中文的代碼

在 ASP（VBScript 為語言）中，Asc 函數的傳回值小於 0 的，可以被判斷為中文字元。Asc 函數返回與字串的第一個字母對應的 ANSI 字元代碼。 複製代碼 代碼如下:'判斷字串中是否有中文字元
'有－返回 true
'無－返回 false
'這裡的中文字元可能還包括日文、韓文等東方文字
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判斷是否有中文