gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\register5.asp

    <%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from 用户 where User_name='" & request.form("user") & "'"
rs.open sqltext,cn,1,1
if Request("Pwd")=Request("Pwd1") then
 if rs.EOF and request.form("user")<>empty then
name=trim(Request("user"))
real_name=trim(Request("real_name"))
pwd=trim(Request("Pwd"))
pwd1=trim(Request("Pwd1"))
sex=trim(Request("sex"))
Address=trim(Request("Address"))
phone=trim(Request("phone"))
postcode=trim(Request("postcode"))
set rs1=server.createobject("adodb.recordset")
sqltext="select * from 用户"
rs1.open sqltext,cn,1,1
set rs=server.createobject("adodb.recordset")
sqltext="select * from 用户"
rs.open sqltext,cn,3,3
for i=1 to rs1.recordcount-1
rs1.movenext
next

'添加一个用户到数据库
rs.addnew
               rs("user_name")=name
               rs("user_realname")=real_name
               rs("pwd")=pwd
               rs("sex")=sex
               rs("address")=Address
               rs("phone")=phone
               rs("postcode")=postcode
               rs("user_ID")=rs1("user_ID")+1
               rs("user_level")=1
rs.update
rs.close
 if DBError=0 then
Response.redirect "register4.asp?msg=恭喜你注册成功,请关闭窗口后在登录页登录!"
  end if
else
Response.redirect "register6.asp?msg=很抱歉用户已被人使用,请返回上一页重新输入不同的用户名!"
end if
else
Response.redirect "register6.asp?msg=两次输入密码不同,请返回上一页重新输入!" 
end if
%>