处理注册代码

<HTML>

<HEAD>

</HEAD>

'1.使用客户机表单提交的数据（如，用户姓名 yfxm）对服务器内存变量 yfxm 赋值。

'用户姓名、购书密码、确认密码、联系地址、联系电话、邮政编码、电子邮件

dim yfxm,gsmm,qrmm,lxdz,lxdh,yzbm,dzyj

yfxm=request.form("yfxm")

gsmm=request.form("gsmm")

qrmm=request.form("qrmm")

lxdz=request.form("lxdz")

lxdh=request.form("lxdh")

yzbm=request.form("yzbm")

dzyj=request.form("dzyj")

'2.用户输入完整的数据、两次输入的密码相同后，进行后面的操作

if yfxm<>""and gsmm<>""and lxdz<>""and lxdh<>""and yzbm<>""and dzyj<>"" then

if gsmm=qrmm then

'3.使用电子邮件确认用户未注册时，然后使用 SQL 语句对新用户注册。

'用“电子邮件”字段值=dzyj 变量值的条件，检索该用户的“用户号”。

rs.open"select 用户号 from 用户资料表 where 电子邮件='"&dzyj&"'",cn,3

if rs.eof then

'找不到使用"&dzyj&"注册的用户

rs.close

'4.打开用户资料表，用AddNew向数据库请求添加新记录，向部分字段赋值,用Update写入

rs.open "用户资料表",cn,adOpenDynamic,3

rs.AddNew

rs("用户姓名")=yfxm

rs("购书密码")=gsmm

rs("联系地址")=lxdz

rs("联系电话")=lxdh

rs("邮政编码")=yzbm

rs("电子邮件")=dzyj

rs.Update

rs.close

'检索出新注册用户号

rs.open"select 用户号 from 用户资料表 where 用户姓名='"&yfxm&"'"

'5.输出用户相应的信息

<P ALIGN="CENTER">用户注册成功！返回用户填写的结果，请检查确认！ </P>

<P ALIGN="CENTER">订购图书要用到用户号和购书密码，请注意保管！ </P>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</center>

</div>

'6.显示错误提示：用户已经存在、两次密码不一致、用户输入的信息不完整

else

response.write"<center><b>错误：已经存在使用"&dzyj&"注册的用户！</b>

</center>"

end if

'关闭连接

rs.close

set rs=nothing

cn.close

else

response.write"<center>错误：你两次输入的密码不一致！</center>"

end if

else

response.write"<center>错误：你输入的信息不完整！</center>"

end if

</FONT></p>

</BODY>

</HTML>