|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件函数|随机|文件名随机天生文件名的函数...
<html>
<metahttp-equiv="Refresh"content="2">
<!--
PlacethiscodeintoanASPPageandrunit!
-->
<code>
RandomFileNameCreation
<%
FunctionGenerator(Length)
dimi,tempS,v
dimc(39)
tempS=""
c(1)="a":c(2)="b":c(3)="c":c(4)="d":c(5)="e":c(6)="f":c(7)="g"
c(8)="h":c(9)="i":c(10)="j":c(11)="k":c(12)="l":c(13)="m":c(14)="n"
c(15)="o":c(16)="p":c(17)="q":c(18)="r":c(19)="s":c(20)="t":c(21)="u"
c(22)="v":c(23)="w":c(24)="x":c(25)="y":c(26)="z":c(27)="1":c(28)="2"
c(29)="3":c(30)="4":c(31)="5":c(32)="6":c(33)="7":c(34)="8":c(35)="9"
c(36)="-":c(37)="_":c(38)="@":c(39)="!"
IfisNumeric(Length)=FalseThen
Response.Write"Anumericdatatypewasnotsubmittedtothisfunction."
ExitFunction
EndIf
Fori=1toLength
Randomize
v=Int((39*Rnd)+1)
tempS=tempS&c(v)
Next
Generator=tempS
EndFunction
Fori=1to20
Randomize
x=Int((20*Rnd)+1)+10
Response.WriteGenerator(x)&"<br>"&vbnewline
Next
%>
</code>
</p>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|