海南(nán)世紀雲圖網絡科技有限公司
咨詢熱線:400-822-8458 客戶服務:0898-32183600

ASP随機生(shēng)成漢字的方法

發表于:2011-02-28 00:00:00來源:人氣:2908

<%@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随機生(shēng)成漢字的方法</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 & " "
%>
<%
    ''下(xià)面是函數
''-------------------------------------------
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>

文章整理: 世紀雲圖  https://www.yuntop.cc/

以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!

版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)們,我(wǒ)們收到後立即删除,謝謝!

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

微信
網站建設
軟件業務
網絡營銷
400電話(huà)