随机生成中文姓名的脚本
<%
Dimi
Dimj
DimHS
DimHE
DimLS
DimLE
dimResult
Result=""
HS=177
HE=247
LS=161
LE=254
dimMax_Num
Max_num=65536
Randomize
Fori=1To4
temp1=dec2bin(Int((HE-HS)*Rnd())+HS)
temp2=dec2bin(Int((LE-LS)*Rnd())+LS)
Result=Result&chr(BinaryToDecimal(temp1&temp2)-Max_num)
Next
response.writeResult&""
%>
<%
'下面是函数
PublicFunctiondec2bin(mynum)'十进制到二进制
Dimloopcounter
Ifmynum>=2^31Then
dec2bin="Toobig"
ExitFunction
EndIf
Do
If(mynumAnd2^loopcounter)=2^loopcounterThen
dec2bin="1"&dec2bin
Else
dec2bin="0"&dec2bin
EndIf
loopcounter=loopcounter+1
LoopUntil2^loopcounter>mynum
EndFunction
PublicFunctionBinaryToDecimal(BinaryValue)'二进制到十进制的转换
'Returnsthedecimalequivalentofabinarynumber
Dimidx
Dimtmp
Dimresult
Dimdigits
digits=Len(BinaryValue)
Foridx=digitsTo1Step-1
tmp=Mid(BinaryValue,idx,1)
Iftmp="1"Thenresult=result+2^(digits-idx)
Next
BinaryToDecimal=result
EndFunction
%>
优质内容筛选与推荐>>
1、vForum 2014点滴随笔
2、UIAppearance
3、[Head First]第一章:策略模式
4、Newtonsoft.Json 去掉\r\n
5、脚本 sh 和 ./ 的区别,exec和source
Dimi
Dimj
DimHS
DimHE
DimLS
DimLE
dimResult
Result=""
HS=177
HE=247
LS=161
LE=254
dimMax_Num
Max_num=65536
Randomize
Fori=1To4
temp1=dec2bin(Int((HE-HS)*Rnd())+HS)
temp2=dec2bin(Int((LE-LS)*Rnd())+LS)
Result=Result&chr(BinaryToDecimal(temp1&temp2)-Max_num)
Next
response.writeResult&""
%>
<%
'下面是函数
PublicFunctiondec2bin(mynum)'十进制到二进制
Dimloopcounter
Ifmynum>=2^31Then
dec2bin="Toobig"
ExitFunction
EndIf
Do
If(mynumAnd2^loopcounter)=2^loopcounterThen
dec2bin="1"&dec2bin
Else
dec2bin="0"&dec2bin
EndIf
loopcounter=loopcounter+1
LoopUntil2^loopcounter>mynum
EndFunction
PublicFunctionBinaryToDecimal(BinaryValue)'二进制到十进制的转换
'Returnsthedecimalequivalentofabinarynumber
Dimidx
Dimtmp
Dimresult
Dimdigits
digits=Len(BinaryValue)
Foridx=digitsTo1Step-1
tmp=Mid(BinaryValue,idx,1)
Iftmp="1"Thenresult=result+2^(digits-idx)
Next
BinaryToDecimal=result
EndFunction
%>
优质内容筛选与推荐>>
1、vForum 2014点滴随笔
2、UIAppearance
3、[Head First]第一章:策略模式
4、Newtonsoft.Json 去掉\r\n
5、脚本 sh 和 ./ 的区别,exec和source