查人人中国名人网雷霆宙域 机设:如何判断字符串中是中文还是英文
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 20:03:13
能否给出asp和VB中两种表示方法
我不会asp，给你vb的吧！
Dim ss(1 To 50) As String '定义一个静态数组
Dim i As Integer
For i = 1 To Len(T1.Text)'获取文本长度
ss(i) = Mid(T1.Text, i, 1)'把文本内容存到数组中
If Not (Asc(ss(i)) >= 0 And Asc(ss(i)) <= 255) Then '判断！如果ascii码不在0-255中就是汉字
MsgBox "字符串中有汉字"
End If
Next
if 字符串 not a,b,c,d,e,f……z then就是中文啦~~
看ASC码值
48到58为数字
65到90
97到122为字母
<%
dim teststring
teststring="我有汉字哦~"
for i=1 to len(teststring)
if mid(teststring,i,1)>255 or mid(teststring,i,1)<0 then
Response.wrtie "有汉字！"
Response.end
end if
next
Response.wrtie "被测试字符中并无汉字"
%>