复制代码 代码如下:

<%

'系统分配随机密码

FunctionCreatepass()

DimRan,i,LengthNum

LengthNum=6

Createpass=""

Fori=1ToLengthNum

Randomize

Ran=CInt(Rnd*2)

Randomize

IfRan=0Then

Ran=CInt(Rnd*25)+97

Createpass=Createpass&UCase(Chr(Ran))

ElseIfRan=1Then

Ran=CInt(Rnd*9)

Createpass=Createpass&Ran

ElseIfRan=2Then

Ran=CInt(Rnd*25)+97

Createpass=Createpass&Chr(Ran)

EndIf

Next

EndFunction

response.writecreatepass()

%>