<% 暗淡
暗淡
暗淡HS
昏暗的HE
暗淡LS
昏暗的LE
暗淡結果
結果=“”
HS = 177
他 = 247
LS = 161
LE = 254
暗淡最大數量
最大數量=65536
隨機化
對於 i = 1 到 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
結果 = 結果 & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
下一步
回應.寫入結果&“”
%>
<%
''下面是函數
''------------------------------------------------ --------
Public Function dec2bin(mynum)''十輪到二進制
昏暗的循環計數器
如果 mynum >= 2 ^ 31 那麼
dec2bin =“太大”
退出功能
結束如果
做
如果 (mynum And 2 ^ 循環計數器) = 2 ^ 循環計數器 那麼
dec2bin = "1" & dec2bin
別的
dec2bin = "0" & dec2bin
結束如果
循環計數器 = 循環計數器 + 1
循環直到 2 ^ Loopcounter > mynum
結束功能
''------------------------------------------------ --------
Public Function BinaryToDecimal(BinaryValue) ''二進位到十燭的轉換
'' 傳回二進制數的十進制等值
暗淡的idx
昏暗的溫度
結果暗淡
暗淡的數字
數字 = Len(BinaryValue)
對於 idx = 數字 To 1 步驟 -1
tmp = Mid(BinaryValue, idx, 1)
如果 tmp = "1" 則結果 = 結果 + 2 ^ (數字 - idx)
下一個
BinaryToDecimal = 結果
結束函數
%>