ASP隨機生成漢字的方法

發(fā)表于：2011-02-28 00:00:00來源：人氣：3361

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASP隨機生成漢字的方法</title>
</head>

<body>
<%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 & " "
%>
<%
    ''下面是函數(shù)
''-------------------------------------------
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
%>
</body>
</html>

文章整理：世紀云圖 http://www.somcg.cn/

以上信息與文章正文是不可分割的一部分,如果您要轉載本文章,請保留以上信息，謝謝!

版權申明：本站文章部份來自網(wǎng)絡，如有侵權，請聯(lián)系我們，我們收到后立即刪除，謝謝！

特別注意：本站部份轉載文章言論不代表本站觀點，本站所提供的攝影照片，插畫，設計作品，如需使用，請與原作者聯(lián)系，版權歸原作者所有。

上一篇：中國將成全球最大“游戲王國” 下一篇：SQL批量刪除指定內容

ASP隨機生成漢字的方法

與本文相關的文章

海南世紀云圖網(wǎng)絡科技有限公司

關于我們

產(chǎn)品、業(yè)務

快速通道

客戶案例