<% 暗淡
暗淡
暗淡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 = 结果
结束函数
%>