randompassword.asp
<%
Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword
genPassword = \"\"
Randomize
' 用Randomize生成随机种子.
For i = 1 to 7
' 循环7次，即创建7位随机密码.
intNum = Int(10 * Rnd + 48)
' 0-9的ASCII码范围是48-57.
intUpper = Int(26 * Rnd + 65)
' A-Z的ASCII码范围是65-90.
intLower = Int(26 * Rnd + 97)
' a-z的ASCII码范围是97-123.
intRand = Int(3 * Rnd + 1)
' 对Int(3 * Rnd + 1)取整得到intRand,会有3种结果,用select case判断当前的intRand值是1,2还是3.如果是1显示数字,是2显示大写字符,是3则显示小写字符.
Select Case intRand
Case 1
strPartPass = Chr(intNum)
' 用Chr方法换算到对应的ASCII值.
Case 2
strPartPass = Chr(intUpper)
Case 3
strPartPass = Chr(intLower)
End Select
genPassword = genPassword & strPartPass
Next
randomPassword = genPassword
' 将创建的密码保存在变量randomPassword中.
%>
<%=\"请保存好，您的密码是：\" & randomPassword%>
[1]
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
P70系列延期，华为新旗舰将在下月发布
3月20日消息，近期博主@数码闲聊站 透露，原定三月份发布的华为新旗舰P70系列延期发布，预计4月份上市。
而博主@定焦数码 爆料，华为的P70系列在定位上已经超过了Mate60，成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢？
根据目前爆料的消息来看，华为P70系列将推出三个版本，其中P70和P70 Pro采用了三角形的摄像头模组设计，而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智，但辨识度绝对拉满。