Function GetEnDate(str)
		dim En_year,En_month,En_day,months
		En_year=year(str)
		En_month=month(str)
		En_day=day(str)
			select case En_month
			case "1"
			months="January"
			case "2"
			months="February"
			case "3"
			months="March"
			case "4"
			months="April"
			case "5"
			months="May"
			case "6"
			months="June"
			case "7"
			months="July"
			case "8"
			months="August"
			case "9"
			months="September"
			case "10"
			months="October"
			case "11"
			months="November"
			case else
			months="December"
			end select
		GetEnDate=""&months&" "&En_day&", "&En_year&""
	End Function

Chr("0") 为0的字符

Chr("1")

Chr("2")

Chr("3")

Chr("4")

Chr("5")

Chr("6")

Chr("7") 响铃

Chr("8") 回格

Chr("9") tab(水平制表符)

Chr("10") 换行

Chr("11") tab(垂直制表符)

Chr("12") 换页

Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合

Chr("14")

Chr("15")

Chr("16")

Chr("17")

Chr("18")

Chr("19")

Chr("20")

Chr("21")

Chr("22")

Chr("23")

Chr("24")

Chr("25")

Chr("26") 结束 End

Chr("27") 脱离 Pause break

Chr("28")

Chr("29")

Chr("30")

Chr("31")

Chr("32") 空格 SPACE

Chr("33") !

Chr("34") "

Chr("35") #

Chr("36") $

Chr("37") %

Chr("38") &

Chr("39") ’

Chr("40") (

Chr("41") )

Chr("42") *　

Chr("43") +

Chr("44") ,

Chr("45") -

Chr("46") .

Chr("47") /

Chr("48") 0

Chr("49") 1

Chr("50") 2

Chr("51") 3

Chr("52") 4　

Chr("53") 5

Chr("54") 6

Chr("55") 7

Chr("56") 8

Chr("57") 9　

Chr("58") :

Chr("59") ;

Chr("60") <

Chr("61") =

Chr("62") >　

Chr("63") ?

Chr("64") @

Chr("65") A

Chr("66") B

Chr("67") C　

Chr("68") D

Chr("69") E

Chr("70") F

Chr("71") G

Chr("72") H　

Chr("73") I

Chr("74") J

Chr("75") K

Chr("76") L

Chr("77") M　

Chr("78") N

Chr("79") O

Chr("80") P

Chr("81") Q

Chr("82") R　

Chr("83") S

Chr("84") T

Chr("85") U

Chr("86") V

Chr("87") W　

Chr("88") X

Chr("89") Y

Chr("90") Z

Chr("91") [

Chr("92") \　

Chr("92") \

Chr("93") ]

Chr("94") ^

Chr("95") _

Chr("96") `

Chr("97") a　

Chr("98") b

Chr("99") c

Chr("100") d

Chr("101") e

Chr("102") f　

Chr("103") g

Chr("104") h

Chr("105") i

Chr("106") j

Chr("107") k　

Chr("108") l

Chr("109") m

Chr("110") n

Chr("111") o

Chr("112") p　

Chr("113") q

Chr("114") r

Chr("115") s

Chr("116") t

Chr("117") u　

Chr("118") v

Chr("119") w

Chr("120") x

Chr("121") y

Chr("122") z　

Chr("123") {

Chr("124") |

Chr("125") }

Chr("126") ~

<%
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
%>