随机生成汉字

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

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: