asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
以下是测试显示12位的随机数:
asp纯数字随机数:<%=qwbm_shuijima(18,1)%>
asp小写字母随机数:<%=qwbm_shuijima(18,2)%>
asp大写字母随机数:<%=qwbm_shuijima(18,3)%>
asp数字、小写字母、大写字母随机数:<%=qwbm_shuijima(18,0)%>
以下是测试显示36位的随机数:
asp纯数字随机数:<%=qwbm_shuijima(36,1)%>
asp小写字母随机数:<%=qwbm_shuijima(36,2)%>
asp大写字母随机数:<%=qwbm_shuijima(36,3)%>
asp数字、小写字母、大写字母随机数:<%=qwbm_shuijima(36,0)%>
<%
'(取指定长度随机字符串 ,0:数字+大小写字母;1:数字 2:小写;2:大写)
Function qwbm_shuijima(sj_length,sj_mode)
sj_mima_shuzi = "0123456789" '数字
sj_mima_xiaoxie = "abcdefghijklmnopqrstuvwxyz" '小写字母
sj_mima_daxie = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" '大写字母
Select Case sj_mode
Case 1:sj_mima_data = sj_mima_shuzi
Case 2:sj_mima_data = sj_mima_xiaoxie
Case 3:sj_mima_data = sj_mima_daxie
Case else:sj_mima_data = sj_mima_shuzi & sj_mima_xiaoxie & sj_mima_daxie
End Select
sj_j = Len(sj_mima_data)
Randomize(Timer)
For i = 1 To sj_length
sj_sow = sj_sow & Mid(sj_mima_data, Int(sj_j * Rnd + 1), 1)
Next
qwbm_shuijima = sj_sow
End Function
%>
后一页:没有了
- 相关阅读
- 利用CSS制作的网站中新闻文章列表效果
- 深山留言板系统(七夕情人节留言板专用模板) v3.7
- 手机网站
- asp与数据库sql的种种操作
- asp正则表达式 替换HTML源文件里的链接地址
- ASP技巧:让Len,Left,Right函数识别中文
- 乌鲁木齐旅游
- 网站终于在计划时间内完成了
- 共有0条关于《asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)》的评论
- 发表评论
正在加载评论......
返回顶部发表评论
网友评论声明,请自觉遵守互联网相关政策法规。
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- asp利用hasOwnProperty验证某个json中的某个标签是否存在
- asp用BcO将二进制转八进制然后再OcB将八进制转二进制
- asp用BcH将二进制转十六进制然后再HcB将十六进制转二进制
- asp用cDec将二进制转十进制然后再用cBit将十进制转二进制
- 纯asp根据当前日期计算出相应的星座
- asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法