海南世纪云图网络科技有限公司
西部数码（海南）钻石分销合作伙伴
地址：海口市勋亭路154号金鹿花园二期20栋B1706室
销售热线：400-822-8458
服务热线：0898-32183600
传 真：0898-65228458
发表于：2011-02-28 00:00:00来源：人气：3136
<%@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 & " "
%>
<%
''下面是函数
''-------------------------------------------
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>
西部数码（海南）钻石分销合作伙伴
地址：海口市勋亭路154号金鹿花园二期20栋B1706室
销售热线：400-822-8458
服务热线：0898-32183600
传 真：0898-65228458