|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>测试字符属性</title>
<%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 method="POST" action="Test.asp">
<p><input type="text" name="KeyWord" size="20" value="<%=KeyWord%>"><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form> | 
