|
随机生成文件名的函数
作者：yanek 转贴自：开发者俱乐部 点击数：2426
| <html> <meta http-equiv=Refresh content=2> <!-- Place this code into an ASP Page and run it! --> <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 & c(v) Next Generator = tempS End Function For i = 1 to 20 Randomize x = Int((20 * Rnd) + 1) + 10 Response.Write Generator(x) & <br> & vbnewline Next %> </code> |