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

首頁 > 網站 > 建站經驗 > 正文

asp 一個簡單生,成隨機數程序

2019-11-02 15:30:54
字體：大 中 小
來源：轉載
供稿：網友

一個簡單生成隨機數程序
 Public Function GetRndCode(maxLen)
  Dim strNewPass,whatsNext,upper,lower,intCounter
  Randomize
  For intCounter = 1 To maxLen
   whatsNext = Int((1 - 0 + 1) * Rnd

雙視影院[www.aikan.tv/special/shuangshiyingyuan/]
+ 0)
   If whatsNext = 0 Then
    upper = 90
    lower = 65
   Else
    upper = 57
    lower = 48
   End If
   strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
  Next
  GetRndCode = strNewPass
 End Function
 
 使用方法
 code =GetRndCode(15)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 玉门市| 大连市| 班玛县| 汉源县| 西盟| 保康县| 沙洋县| 陆河县| 东海县| 洛阳市| 嘉祥县| 宜昌市| 巍山| 临洮县| 岳池县| 栾川县| 尚义县| 昭苏县| 天峨县| 马鞍山市| 宁都县| 陇西县| 铁岭县| 镇原县| 行唐县| 资源县| 乐亭县| 波密县| 乐清市| 鄱阳县| 阳春市| 莆田市| 沿河| 甘谷县| 灵台县| 鹿泉市| 苍山县| 巢湖市| 大冶市| 弥渡县| 邯郸市|