|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。<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>
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|