用ASP产生随即密码的程序

我们在制作网站的时候希望用户注册，而且注册时我们不需要用户自己设置密码，而通常需要用户输入正确的邮件地址，当成功注册后我们的程序自动随机的生成密码，发送邮件给注册用户的邮箱。今天给大家介绍随机密码生成的程序：

<%@ Language = VBScript %>

<% Option Explicit %>

<% Response.Buffer = True %>

<%

' 声明变量

Dim intCounter, intDecimal, strPassword

' 随机生成6个密码

For intCounter = 1 To 6

' Generate a random number between 65 and 90.

Randomize

intDecimal = Int((26 * Rnd) + 1) + 64

' Create random Password String

strPassword = strPassword & Chr(intDecimal)

Next

' Output the random password

Response.Write "Random Password = " & strPassword

%>