原创著作,产权保护 政府、投票、评选、公安、学校、问卷、视频会议专注发展中小企事业 系统报价 | 支付帐号 | 授权查证
    计算机著作版权登记号:2014SR032463 手机:+86-1373066-4304 | QQ:1213920482 欢迎选择智睿软件系统 欢迎选择智睿软件系统
智睿软件系统
asp 生成随机码,随机数可自定义长度
来源:智睿 浏览:585 次 发布时间:2023-01-04 21:47:26

案例1-随机码

<%
function makePassword(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function
%>
<%
'6是长度
%>
<%=makePassword(6)%>
案例2-随机码

 <%
'ASP生成随机字符串(数字+大小写字母)练习
'阿会楠练习,为我所用,非我所想 
Function randKey(obj)
 Dim char_array(80)
 Dim temp
 For i = 0 To 9 
  char_array(i) = Cstr(i)
 Next
 For i = 10 To 35
  char_array(i) = Chr(i + 55)
 Next
 For i = 36 To 61
  char_array(i) = Chr(i + 61)
 Next
 Randomize
 For i = 1 To obj
  'rnd函数返回的随机数在0~1之间,可等于0,但不等于1
  '公式:int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数,可等于下限但不可等于上限
  temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)
 Next
 randKey = temp
End Function
Response.Write(randKey(6))
%>

【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
上一篇:智睿学校网站管理系统 V 10.5.9 中小学网站系统,学校网站系统源码 下一篇:智睿政府网站管理系统 V 10.1.9 政府机关网站系统,集团网站系统