您现在的位置:计算机技术学习网 > 技术中心 > WEB编程 > ASP >

ASP随机生成指定长度的随机字符的方法

来源:网络收集 责任编辑:栏目编辑 发表时间:2013-07-01 22:44 点击:
ASP随机生成指定长度的随机字符的方法
ASP随机生成指定长度的随机字符的方法
<%@   LANGUAGE   =   VBScript   %>  
  <html>  
  <title> 生成随机字符串   </title>  
  <body>  
  <%  
  Function   gen_key(digits)  
  '定义并初始化数组  
          dim   char_array(80)  
  '初始化数字  
          For   i   =   0   To   9  
                  char_array(i)   =   CStr(i)  
          Next  
  '初始化大写字母  
          For   i   =   10   To   35  
                  char_array(i)   =   Chr(i   +   55)  
          Next  
  '初始化小写字母  
          For   i   =   36   To   61  
                  char_array(i)   =   Chr(i   +   61)  
          Next  
  Randomize       '初始化随机数生成器。  
  do   while   len(output)   <   digits  
                  num   =   char_array(Int((62   -   0   +   1)   *   Rnd   +   0))  
                  output   =   output   +   num  
          loop  
  '设置返回值  
          gen_key         =         output  
  End   Function  
  '把结果返回给浏览器  
  response.write   "本实例生成的十三位随机字符串为:"  
  response.write   "<center>"  
  response.write   gen_key(7)  
  response.write   "</center>"  
  %>  
  </body>  
  </html>
 <%  
  '参数digits,表示随机数的位数  
  Function   GetKey(digits)  
   
  dim   char_array(36)  
  dim   output,num  
  char_array(0)   =   "0"  
  cha
    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>

    推荐热点

    • WAP常见问题问答大全(四)
    • ASP开发必备:WEB打印代码大全
    • ASP调用系统ping命令
    • asp缓存技术
    • ASP教程:第三篇 ASP基础
    • 用ASP+XML打造留言本(4)
    • 关于ASP Recordset 分页出现负数解决方法及建议
    • 用asp怎样编写文档搜索页面(5)
    • ASP处理多关键词查询实例代码
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1