用户资料 yfzl

用户注册、处理注册的部分代码

<form method="POST" action="">

用户账号：<input type="text" name="UserID" size="8">

登录密码：<input type="password" name="dlmm" size="8">

<input type="submit" value="注册" name="zc">

<%

'1.使用客户机表单提交的数据（如，用户账号 UserID）

'对服务器内存变量 UserID 赋值。

'定义服务器内存变量：用户账号

dim UserID

UserID=request.form("UserID")

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

if UserID<>""and dlmm<>"" then

if dlmm=qrmm then

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

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

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

if rs.eof then

rs.close

'4.打开用户资料表1，用AddNew向数据库请求添加新记录，

'向部分字段赋值,用Update写入

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

rs.AddNew

rs("UserID")=UserID

rs.Update

rs.close

'检索出新注册用户号

rs.open"select 用户号 from 用户资料表1 where UserID='"&UserID&"'"

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

%>

用户号：<%=rs("用户号")%>

用户账号：<%=UserID%>

<%

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

else

response.write"错误：已经存在使用"&dzyj&"邮箱注册的用户！"

end if

'关闭连接

rs.close

set rs=nothing

cn.close

else

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

end if

else

response.write"提示：请用户输入注册信息！"

end if

%>