生成随机字符串的函数，可以做为验证码一类的使用

response.write GetRndStr(15) & "<br>"

response.write GetRndStr(30) & "<br>"

Function GetRndStr(LengthNum)

If isDebug Then On Error Resume Next End If

Dim Ran,i

GetRndStr=""

For i=1 To Abs(LengthNum)

Randomize

Ran = CInt(Rnd * 2)

Randomize

If Ran = 0 Then

Ran = CInt(Rnd * 25) + 97

GetRndStr =GetRndStr& UCase(Chr(Ran))

ElseIf Ran = 1 Then

Ran = CInt(Rnd * 9)

GetRndStr = GetRndStr & Ran

ElseIf Ran = 2 Then

Ran = CInt(Rnd * 25) + 97

GetRndStr =GetRndStr& Chr(Ran)

End If

End Function

相关阅读: asp显示随机密码; uni-app开发的微信小程序在线支付; 微信公众号生成带参数的二维码asp源码下载; asp随机显示字符长度与类型（可随机显示数字、小写字母、大写字母，可以做为随机密码使用）; asp利用函数生成指定位数的随机数字符串; 生成随机字符串的函数; ASP FSO的一些方法与拥有的属性; 简单Asp图片验证码,收集大概35种各种各样图片样式验证码，还有语音验证码

更多>>ASP相关信息: ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明; asp显示随机密码; 通过阿里云服务接口获得ip地址详细信息; iis点开后任务栏上有显示，但是窗口看不到的解决办法; RSA加密解密插件

更多>>最新添加: dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT; Android移动端自动化测试：使用UIAutomatorViewer与Selenium定位元素; 抖音直播音挂载小雪花懂车帝小程序; javascript获取浏览器指纹可以用来做投票; 火狐Mozilla Firefox出现：无法载入您的Firefox配置文件它可能已经丢失或是无法访问问题解决集合处理办法