龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

asp 一个简单生成随机数程序

时间:2012-12-31 22:56来源:未知 作者:admin 点击: 次
分享到：

asp教程 一个简单生成随机数程序
 Public Function GetRndCode(maxLen)
  Dim strNewPass,whatsNext,upper,lower,intCounter
  Randomize
  For intCounter = 1 To maxLen
   whatsNext = Int((1 - 0 + 1) * Rnd + 0)
   If whatsNext = 0 Then
    upper = 90
    lower = 65
   Else
    upper = 57
    lower = 48
   End If
   strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
  Next
  GetRndCode = strNewPass
 End Function
 
 使用方法
 code =GetRndCode(15)


精彩图集
精彩文章

热门标签

渐进式 PowerEdge 表链接 定时执行任务 .net添加Cookie 控制台 卡号 流量监控 Inodes response.set 登陆 getopt 常用工具类 双冒号 地方 安全检测 mysql.sock CSSvista MYSQLI_STORE 绑定虚拟 ifelse 用户密码 promise化 bezier曲线 VC库函数 地址栏 namespace 树形结构 spring 鼠标拖动 匿名用户 振兴 switch语句 jquery基础教程 看表 图片垂直居中 SQLServer200 开机自启动 win2003+IIS 添加app SFTP 检查电子邮件 类型关键字 策略模式 邮件发送 MD5算法 图像标签 绑定类型 diff OpenSSL adb命令大全 新记录 TimerTask 删除分区表 checkbox多选 百度站点地图 获取结点 皇后 Rolling 哈弗曼算法

赞助商链接