系統(tǒng)分配隨機(jī)密碼
更新時(shí)間：2006年10月31日 00:00:00 作者：
復(fù)制代碼 代碼如下:
<%
'系統(tǒng)分配隨機(jī)密碼
Function Createpass()
Dim Ran, i, LengthNum
LengthNum = 6
Createpass = ""
For i = 1 To LengthNum
Randomize
Ran = CInt(Rnd * 2)
Randomize
If Ran = 0 Then
Ran = CInt(Rnd * 25) + 97
Createpass = Createpass & UCase(Chr(Ran))
ElseIf Ran = 1 Then
Ran = CInt(Rnd * 9)
Createpass = Createpass & Ran
ElseIf Ran = 2 Then
Ran = CInt(Rnd * 25) + 97
Createpass = Createpass & Chr(Ran)
End If
Next
End Function
response.write createpass()
%>
相關(guān)文章
asp 使用正則表達(dá)式替換word中的標(biāo)簽，轉(zhuǎn)為純文本
asp里使用正則表達(dá)式清除后臺(tái)編輯器里復(fù)制粘貼內(nèi)容的word格式，將其轉(zhuǎn)換成純文本2010-04-04
這篇文章主要為大家介紹了源碼分析MinimalApi是如何在Swagger中展示，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-06-06
ASPJPEG學(xué)習(xí)手記...2006-08-08
ASP轉(zhuǎn)換格林威治時(shí)間函數(shù)DateDiff()應(yīng)用
ASP提供了一個(gè)叫 DateDiff() 的函數(shù)，這個(gè)函數(shù)可以返回一個(gè)時(shí)間差的秒，那就是說我們放進(jìn)去一個(gè)格林威治標(biāo)準(zhǔn)時(shí)間與現(xiàn)在的時(shí)間對(duì)比一下返回秒就OK2014-06-06
經(jīng)常使用游標(biāo)，但一些具體的說明不是很清楚，書上的東西太乏味2008-11-11
用ASP實(shí)現(xiàn)對(duì)ORACLE數(shù)據(jù)庫(kù)的操作
用ASP實(shí)現(xiàn)對(duì)ORACLE數(shù)據(jù)庫(kù)的操作...2007-03-03
這篇文章主要介紹了ASP(VBScript)中整除和取余方法,需要的朋友可以參考下2014-12-12
asp實(shí)現(xiàn)讀取數(shù)據(jù)庫(kù)輸出json代碼
這篇文章主要介紹了asp實(shí)現(xiàn)讀取數(shù)據(jù)庫(kù)輸出json代碼的方法的相關(guān)資料,需要的朋友可以參考下2015-03-03
好多asp后臺(tái)都提供了一個(gè)可以在線執(zhí)行sql語(yǔ)句的功能，今天看到了，用到了事務(wù)管理，就是出錯(cuò)了就回滾的操作，不錯(cuò)，建議大家看看，以后能用的到2008-03-03
ASP實(shí)現(xiàn)GB2312字符與區(qū)位碼的相互轉(zhuǎn)換的代碼
ASP實(shí)現(xiàn)GB2312字符與區(qū)位碼的相互轉(zhuǎn)換的代碼...2007-05-05