随机生成文件名的函数 - ASP教程 - 网络编程

问天

元帅

UID 11493
精华 187
积分 34221
帖子 33355
威望 91
金币 13148
热心 2619
阅读权限 100
注册 2006-4-7
状态离线

使用道具

发表于 2007-2-15 21:55 资料个人空间主页短消息加为好友

随机生成文件名的函数

<html>
<meta http-equiv="Refresh" content="2">

<code>
Random FileName Creation

<%
　 Function Generator(Length)
　　 dim i, tempS, v
　　 dim c(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) = "!"
　　 If isNumeric(Length) = False Then
　　　 Response.Write "A numeric datatype was not submitted to this function."
　　　 Exit Function
　　 End If
　　 For i = 1 to Length
　　　 Randomize
　　　 v = Int((39 * Rnd) 1)
　　　 tempS = tempS &;amp; c(v)
　　 Next
　　 Generator = tempS
　 End Function
　　　　
　 For i = 1 to 20
　　 Randomize
　　 x = Int((20 * Rnd) 1) 10
　　 Response.Write Generator(x) &;amp; "<br>" &;amp; vbnewline
　 Next
%>
</code>

网友问天签名 - 网友社区 请您回个帖。谢谢
PR查询免费域名免费空间

[广告] 免费域名(Free Subdomain) 免费空间(Free hosting) PR查询(Google Pagerank)

网友生活网 \| 网友学堂	如何获得金币？	诚招斑竹	IP归属地查询 PR查询收录查询 whois查询
免费超短2级域名,your.jpy.cc	传世私服 \| 传奇世界私服	注册亚洲交友中心，找个人来同居吧！	免费存储空间，免费网络硬盘