用ASP随机生成文件名的函数

2016-01-29 18:40 44 1 收藏

用ASP随机生成文件名的函数,用ASP随机生成文件名的函数

【 tulaoshi.com - ASP 】

 

<html
<meta http-equiv="Refresh" content="2"
<!--
 Place this code into an ASP Page and run it!
--
<code
Random FileName Creation

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)


<%
 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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/) 

来源:http://www.tulaoshi.com/n/20160129/1506834.html

延伸阅读
标签: Web开发
代码如下: % if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") then Response.write "已生成" else Response.write "没有生成" end if function SaveFile(LocalFileName,RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set&...
代码如下: import java.io.*; import java.util.*; public class Test {     public static void main(String[] args) throws IOException {         BufferedReader br = new BufferedReader(new FileReader("output1.txt"));         ListString ...
标签: ASP
  各位好今天我要告诉大家的是如何用ASP产生随机数。大家都知道大多数网站注册后 提供用户名和一个随机密码,但这个密码是如何产生的,现在我就向大家来介绍一下 请看下面的例子,用户可自行增加或减少随机的字符或数量。 <% Function gen_key(digits) 'Create and define array dim char_array(50) char_array(0) = "0"...
大多数程序都需要输出一些文本,比如邮件消息、HTML文件或控制台输出。但是,计算机本质上只能处理二进制数据,程序员必须让软件来生成可理解的文本。在这篇文章中,我要介绍的是在生成和输出文本时,为何使用模板引擎能够节省时间。你将了解模板的优点,如何针对不同的情形创建高效的模板。和System.println说再见! 虽然程序员可以...
标签: ASP
  选择自 mind_1220 的 Blog 要求:  能够读取按照  INI文件的Section和Key来读出相应的Value。  比如一个配置文件    SMSVote.ini  ---------------------------------  [SMSVote]  Server=(local)  DB=SMSVote  User=sa  PassWord=123  [DB2Vote] ...

经验教程

340

收藏

60
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部