<%Дим я
Дим Дж
Дим ХС
Дим ХЭ
Дим ЛС
Дим ЛЕ
тусклый результат
Результат=""
ХС = 177
ОН = 247
ЛС = 161
ЛЕ = 254
тусклый Max_Num
Макс_номер=65536
Рандомизировать
Для я = от 1 до 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
Результат = Результат и chr(BinaryToDecimal(temp1 и temp2) - Max_num)
Далее
response.write Результат & " "
%>
<%
''下面是函数
''-------------------------------------------
Открытая функция dec2bin(mynum)''
Тусклый счетчик циклов
Если mynum >= 2 ^ 31 Тогда
dec2bin = "Слишком большой"
Выход из функции
Конец, если
Делать
Если (mynum И 2 ^ счетчик циклов) = 2 ^ счетчик циклов Тогда
dec2bin = "1" и dec2bin
Еще
dec2bin = "0" и dec2bin
Конец, если
счетчик циклов = счетчик циклов + 1
Цикл до 2 ^ счетчик циклов > mynum
Конечная функция
''-------------------------------------------
Открытая функция BinaryToDecimal(BinaryValue) ''
'' Возвращает десятичный эквивалент двоичного числа
Тусклый идентификатор
Дим. темп.
Тусклый результат
Тусклые цифры
цифры = Len(BinaryValue)
Для idx = цифры К 1 Шаг -1
tmp = Mid(BinaryValue, idx, 1)
Если tmp = "1" Тогда результат = результат + 2 ^ (цифры - idx)
Следующий
BinaryToDecimal = результат
Конечная функция
%>