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

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