国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp 下產生任意位數隨機密碼的代碼

2024-05-04 11:01:27
字體：大 中 小
來源：轉載
供稿：網友
<%
'******************************
'函數：MakePassword(byval maxlen)
'參數：maxlen，要生成的密碼位數長度
'作者：阿里西西
'日期：2007/7/12
'描述：產生任意位數隨機密碼
'示例：<%=MakePassword(8)%> 
'******************************
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 
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 鄂伦春自治旗| 家居| 临泽县| 泗水县| 博湖县| 资讯 | 内江市| 于田县| 皋兰县| 桐庐县| 正宁县| 务川| 威信县| 平利县| 通州区| 镇安县| 松滋市| 永春县| 杭锦旗| 拜泉县| 瑞丽市| 永兴县| 高清| 乌海市| 横峰县| 勐海县| 商城县| 宕昌县| 怀仁县| 昌都县| 都江堰市| 化州市| 阳春市| 渭南市| 新河县| 孝昌县| 都安| 兴安盟| 邓州市| 晋宁县| 连山|