|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。ASP随机天生汉字的办法<%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
%>
asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。 |
|