开发学院WEB开发ASP ASP随机生成汉字 阅读

ASP随机生成汉字

 2009-06-30 04:02:00 来源:WEB开发网   
核心提示:<%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 Randomiz

<%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
%>

Tags:ASP 随机 生成

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
更多精彩
    赞助商链接

    热点阅读
      焦点图片
        最新推荐
          精彩阅读