ASP随机生成汉字

<%Dim i

Dim j

Dim HS

Dim HE

Dim LS

Dim LE

dim Result

Result=""

HS = 177

HE = 247

LS = 161

LE = 254

dim Max_Num

Max_num=65536

Randomize

For i = 1 To 4

temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)

temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)

Result = Result & chr(BinaryToDecimal(temp1 & temp2) - Max_num)

Next

response.write Result & " "

%>

<%

''下面是函数

''-------------------------------------------

Public Function dec2bin(mynum)''十进制到二进制

Dim loopcounter

If mynum >= 2 ^ 31 Then

dec2bin = "Too big"

Exit Function

End If

Do

If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then

dec2bin = "1" & dec2bin

Else

dec2bin = "0" & dec2bin

End If

loopcounter = loopcounter + 1

Loop Until 2 ^ loopcounter > mynum

End Function

''-------------------------------------------

Public Function BinaryToDecimal(BinaryValue) ''二进制到十进制的转换

'' Returns the decimal equivalent of a binary number

Dim idx

Dim tmp

Dim result

Dim digits

digits = Len(BinaryValue)

For idx = digits To 1 Step -1

tmp = Mid(BinaryValue, idx, 1)

If tmp = "1" Then result = result + 2 ^ (digits - idx)

Next

BinaryToDecimal = result

End Function

%>