ASP随机生成汉字

七彩焰阳

1. <%Dim i
   
2. Dim j
   
3. Dim HS
   
4. Dim HE
   
5. Dim LS
   
6. Dim LE
   
7. dim Result
   
8. Result=""
   
9. HS = 177
   
10. HE = 247
    
11. LS = 161
    
12. LE = 254
    
13. dim Max_Num
    
14. Max_num=65536
    
15. Randomize
    
16. For i = 1 To 4
    
17. temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
    
18. temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
    
19. Result = Result & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
    
20. 
    
21. Next
    
22. response.write Result & " "
    
23. %>
    
24. <%
    
25. ''下面是函数
    
26. ''-------------------------------------------
    
27. Public Function dec2bin(mynum)''十进制到二进制
    
28. Dim loopcounter
    
29. If mynum >= 2 ^ 31 Then
    
30. dec2bin = "Too big"
    
31. Exit Function
    
32. End If
    
33. Do
    
34. If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
    
35. dec2bin = "1" & dec2bin
    
36. Else
    
37. dec2bin = "0" & dec2bin
    
38. End If
    
39. loopcounter = loopcounter + 1
    
40. Loop Until 2 ^ loopcounter > mynum
    
41. End Function
    
42. ''-------------------------------------------
    
43. Public Function BinaryToDecimal(BinaryValue) ''二进制到十进制的转换
    
44. '' Returns the decimal equivalent of a binary number
    
45. Dim idx
    
46. Dim tmp
    
47. Dim result
    
48. Dim digits
    
49. digits = Len(BinaryValue)
    
50. For idx = digits To 1 Step -1
    
51. tmp = Mid(BinaryValue, idx, 1)
    
52. If tmp = "1" Then result = result + 2 ^ (digits - idx)
    
53. Next
    
54. BinaryToDecimal = result
    
55. 
    
56. End Function
    
57. %>

复制代码

天心难料

知道了 不错~~~