产生随机密码的函数

<%

response.write makepassword(16)

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

%>