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