用户密码（好）是随机生成的，这意味着通过随机生成密码，然后向注册用户发送密码电子邮件，您可以确认用户的电子邮件是否填写正确。
描述：通过随机生成密码，然后向注册用户发送密码电子邮件，您可以确认用户的电子邮件是否正确。自动生成的密码通常更安全，并且可以过滤这些无效用户。
把下面的代码保存为一个random.asp文件：
复制代码代码如下所示：
<
Sub StrRandomize（strseed）
朦胧的我，nseed
nseed = CLNG（0）
我= 1 Len（strseed）
nseed = nseed异或（（256 *（（（我1）mod 4）* AscB（MID（strseed，我，1 )))))))
下一个
随机nseed
端子
功能generatepassword（nlength）
朦胧的我，bmadeconsonant，C，nrnd
const strdoubleconsonants =bdfglmnpst
const strconsonants =bcdfghklmnpqrstv
const strvocal =可
generatepassword =
bmadeconsonant = false
我nlength = 0
nrnd = RND
如果generatepassword和（bmadeconsonant <><>真）和（nrnd＜0.15）然后
C =中（strdoubleconsonants，int（Len（strdoubleconsonants）*、+ 1），1）
C＝C
i = i + 1
bmadeconsonant =真
其他的
如果（真的bmadeconsonant）（nrnd＜0.95）然后
C =中（strconsonants，int（Len（strconsonants）*、+ 1），1）
bmadeconsonant =真
其他的
C =中（strvocal，int（Len（strvocal）*、+ 1），1）
bmadeconsonant = false
最后如果
最后如果
generatepassword = generatepassword C
下一个
如果Len（generatepassword）> nlength然后
generatepassword =左（generatepassword，nlength）
最后如果
端功能
%>
然后可以在目标程序中调用上面的代码，并且可以自动生成密码。（只是一个例子，你可以将其粘贴到一个test.asp文件，然后运行测试，ASP）。
复制代码代码如下所示：

<
产生一个六位的代码
StrRandomize CStr（现在）CSTR（RND）
response.write generatepassword（6）
%>

<
产生一个8位的代码
StrRandomize CStr（现在）CSTR（RND）
response.write generatepassword（8）
%>

<
产生一个10位的代码
StrRandomize CStr（现在）CSTR（RND）
response.write generatepassword（10）
%>

<
产生1000个密码
暗淡的T，T2
对于t = 1到500
对于T2 = 1到661
StrRandomize CStr（现在）CSTR（RND）
下一个
StrRandomize CStr（现在）CSTR（RND）
response.write generatepassword（6）
response.write
下一个
%>