用户  色彩  or  90后  IF  获得  漫画  空格

您所在的位置:小祥子 » 编程 » ASP » 正文

ASP生成随机文件名函数以及示例代码

时间:2015-01-16 编辑:佚名 来源:互联网

在之前的ASP技术文章里我曾介绍过asp如何生成随机数,今天为大家介绍,如何生成随机文件名。

我记得以前有客户找我做过一个垃圾页面生成的工具,生成很多网页文件,并且把这些文件互相用超级链接关联起来,我不知道用这个程序能干什么,但客户需要,那我就做,话不多说,先上思路,再上代码。

思路

定义一个数组,数组里包含文件名需要的字符元素,再随机调用数组里的其中一个元素,多个元素组合起来就形成一个随机字符串。

代码如下 '后为注释

Function Generator(Length)  '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 "参数必须为数字"
    Exit Function
   End If
   For i = 1 to Length '根据长度循环多少次 组成指定长度的随机文件名
    Randomize
    v = Int((39 * Rnd) + 1)
    tempS = tempS & c(v)
   Next
   Generator = tempS
End Function

以下是生成20个随机字符串代码(在代码后面加上.txt或者.html就是随机的文件名啦)
For i = 1 to 20
   Randomize
   x = Int((20 * Rnd) + 1) + 10
   Response.Write Generator(x) & "<br>" & vbnewline
Next

关键词:随机 函数 文件