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
%>
后一页:没有了
- 相关阅读
- ewebeditor 删除信息时同时删除相关上传文件
- 山西省太原夏日阳光国际旅行社
- 刘浏家俱
- png显示叉号的解决办法(IE无法显示PNG格式图片的解决办法)
- 蒸汽消音器
- ASP汉字转拼音,支持自定义特殊词语
- 你们负责对网站的后期推广吗?
- asp经典正则表达式应用收藏
- 共有0条关于《asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)》的评论
- 发表评论
正在加载评论......
返回顶部发表评论
网友评论声明,请自觉遵守互联网相关政策法规。
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- asp利用hasOwnProperty验证某个json中的某个标签是否存在
- asp用BcO将二进制转八进制然后再OcB将八进制转二进制
- asp用BcH将二进制转十六进制然后再HcB将十六进制转二进制
- asp用cDec将二进制转十进制然后再用cBit将十进制转二进制
- 纯asp根据当前日期计算出相应的星座
- asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法