asp产生不重复的随机数
作者:亮亮 来源:亮亮博客 时间:2008-06-03 13:29:00
没什么说的,就是生成随机数而已!!
相关文章推荐:8个asp生成随机字符的函数
<%
Function gen_key(digits)
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "a"
char_array(11) = "b"
char_array(12) = "c"
char_array(13) = "d"
char_array(14) = "e"
char_array(15) = "f"
char_array(16) = "g"
char_array(17) = "h"
char_array(18) = "i"
char_array(19) = "j"
char_array(20) = "k"
char_array(21) = "l"
char_array(22) = "m"
char_array(23) = "n"
char_array(24) = "o"
char_array(25) = "p"
char_array(26) = "q"
char_array(27) = "r"
char_array(28) = "s"
char_array(29) = "t"
char_array(30) = "u"
char_array(31) = "v"
char_array(32) = "w"
char_array(33) = "x"
char_array(34) = "y"
char_array(35) = "z"
randomize
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
gen_key = output & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now)
End Function
strrad=gen_key(5)
response.Write(strrad)
%>
标签:随机,不重复,asp,函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
ASP实现控制虚拟主机功能的函数ADSI
2008-10-12 13:12:00
Mysql导入TXT文件
2012-01-05 19:01:10
FF和IE之间7个JavaScript的差异[译]
2009-05-04 18:19:00
验证码的最高境界
2008-05-08 14:17:00
![](https://img.aspxhome.com/file/UploadPic/20085/8/200858142214740s.png)
ASP申请单动态添加实现方法及代码
2008-11-04 11:09:00
suggest项目总结-用户体验篇
2008-01-30 20:04:00
![](https://img.aspxhome.com/file/UploadPic/20081/30/2008130203327601s.jpg)
分享一些可视信息设计资源
2009-10-06 15:19:00
![](https://img.aspxhome.com/file/UploadPic/200910/6/ui-info-share-banner-41s.jpg)
数学公式“四又二分之一”
2009-01-14 20:03:00
Linux操作系统下MySQL数据库的使用方法
2008-12-26 09:24:00
获得当前数据库对象依赖关系的实用算法
2009-01-08 13:28:00
记录下两个正则表达式的使用
2009-11-30 12:56:00
ASP实现GB2312字符与区位码的相互转换
2009-12-28 10:27:00
谈谈XHTML中CDATA
2007-09-17 12:45:00
如何使用w3 upload上传组件上传文件?
2010-05-16 15:11:00
5个常见的XHTML验证错误
2010-01-15 20:24:00
![](https://img.aspxhome.com/file/UploadPic/20101/15/200px-xhtml-23s.png)
人性化网页设计技巧
2007-10-15 13:02:00
SQL Server创建索引教程
2010-07-02 21:09:00
一个ASP站内搜索的实例源代码
2007-09-21 12:13:00
SQL Servr 2008空间数据应用系列四:基础空间对象与函数应用
2011-02-23 15:01:00
![](https://img.aspxhome.com/file/UploadPic/20112/2011223125024125s.jpg)
解决IE下提示“无法打开Internet站点 已终止操作”的错误
2009-03-04 12:04:00