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

<%@ 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
%>