 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<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> 返回类别: 教程 上一教程: 如何使用ASP在自己的网站建立投票机制(一) 下一教程: 无需数据库循环的无级分类代码 您可以阅读与"用ASP随机生成文件名的函数"相关的教程: · 随机生成文件名的函数 · 大灰狼的ASP工具箱??用ASP读INI配置文件的函数 · ASP写的自动生成SELECT表单的函数 · 一个生成随机密码的函数 · 在ASP中利用ADO显示EXCEL文件内容的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
