<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<HTML>
<HEAD>
<%Response.Charset = "utf-8"%>
<%Dim HasHZ, HasEn, HasNum, KeyWord
KeyWord = Request("KeyWord")
If KeyWord<>"" Then
HasHZ = 0
HasEn = 0
HasNum = 0
HasJP = 0
HasKR = 0
'判断汉字
If RegExpTest("[\u4e00-\u9fa5]", KeyWord) Then
HasHZ = 1
End If
'判断英文
If RegExpTest("[a-zA-Z]", KeyWord) Then
HasEn = 1
End If
'判断数字
If RegExpTest("[0-9]", KeyWord) Then
HasNum = 1
End If
'判断日语
If RegExpTest("[\u0800-\u4e00]", KeyWord) Then
HasJP = 1
End If
'判断韩语
If RegExpTest("[\u3130-\u318F]", KeyWord) Then
HasKR = 1
ElseIf RegExpTest("[\uAC00-\uD7A3]", KeyWord) Then
HasKR = 2
End If
Response.write "<BR>关键词：" & KeyWord & "<BR>汉字 = " & HasHZ & "<BR>英文 = " & HasEn & "<BR>数字 = " & HasNum & "<BR>日文 = " & HasJP & "<BR>韩文 = " & HasKR
End If
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
If retVal Then
RegExpTest = True
Else
RegExpTest = False
End If
End Function%>
<FORM action=Test.asp method=post>
<P><INPUT value="<%=KeyWord%>" name=KeyWord><INPUT type=submit value=提交 name=B1><INPUT type=reset value=重置 name=B2></P>
</FORM>
