asp 生成任意英文+数字位数长度的随机码函数
更新时间：2007年08月08日 12:10:46 作者：
<%
'******************************
'函数：Generator(Length)
'参数：Length,任意长度的数值，随机码位数
'作者：阿里西西
'日期：2007/7/15
'描述：生成任意英文+数字位数长度的随机码函数
'示例：Generator(80)
'******************************
Function Generator(Length)
Dim i, tempS
tempS = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
If isNumeric(Length) = False Then
Exit Function
End If
For i = 1 to Length
Randomize
Generator = Generator & Mid(tempS,Int((Len(tempS) * Rnd) + 1),1)
Next
End Function
%>
'******************************
'函数：Generator(Length)
'参数：Length,任意长度的数值，随机码位数
'作者：阿里西西
'日期：2007/7/15
'描述：生成任意英文+数字位数长度的随机码函数
'示例：Generator(80)
'******************************
Function Generator(Length)
Dim i, tempS
tempS = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
If isNumeric(Length) = False Then
Exit Function
End If
For i = 1 to Length
Randomize
Generator = Generator & Mid(tempS,Int((Len(tempS) * Rnd) + 1),1)
Next
End Function
%>
相关文章
自己的空间想做一个相册，找来找去用了picasa，功能很方便，唯一不足之处是获取外链太麻烦，一个一个的复制粘贴太辛苦，于是用asp+javascript的方法写了个简单的程序2009-05-05
UpdatePanel触发javascript脚本的方法附代码
UpdatePanel触发javascript脚本的方法附代码...2007-10-10
ASP开发中可能有时候会用大段的if... else 的判断，不过如果是动态Response.write的内容，你想更方便阅读代码，可以用Response.End()来终端ASP的执行，也就类似于Break的用法2014-10-10
asp下变量的变量实现一句话代码2008-04-04
asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取...2007-03-03
使用ASP列出NT用户组及用户...2007-01-01
asp实现过滤关键字的函数...2007-08-08
asp中去除html中style,javascript,css代码
剔除页面中html中除文字以外的任何代码，刚才发布了php版这个是ASP中的版本。2010-10-10
这篇文章主要介绍了ASP的chr(0)文件上传漏洞原理和解决方法介绍,chr(0)漏洞在上传文件时可以绕过扩展名验证,是一个危害非常大的漏洞,需要的朋友可以参考下2014-06-06
asp字符串加密解密函数...2007-06-06
最新评论