随机生成中文姓名的脚本 dodo

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