reg_user_ok.asp

<VC++网络游戏建摸与实现>源代码

<%response.Expires = 0%>
<!--#include file="head.inc"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from RegUser where UserId='" & request.form("uid") & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查用户名是否已经注册过
if rs.recordcount >= 1 then 
   if rs("userid")=request.form("uid") then
      Response.Redirect "messagebox.asp?msg=此用户名已经注册过，请选用其他用户名!"
      response.end
      rs.close
   end if
end if

set rs=server.createobject("adodb.recordset")
sqltext="select * from RegUser"
rs.open sqltext,conn,3,3

'添加一个用户到数据库
rs.addnew
rs("Userid")=request.form("uid")
rs("Password")=request.form("pwd")
rs("WtPass")=request.form("question")
rs("DaPass")=request.form("answer")
rs("UserName")=request.form("Name")
rs("userSex")=request.form("userSex")
rs("Email")=request.form("Email")
rs("tel")=request.form("usephone")
rs("Address")=request.form("haddr")
rs("postalcode")=request.form("postcode")
rs.update
%>
<%
set rs_detail=server.createobject("adodb.recordset")
sqltext2="select * from RegUser where UserId='" & request.form("uid") & "'"
rs_detail.open sqltext2,conn,1,1
%>
<TITLE><%=ForumName%>·会员注册成功</TITLE>
<CENTER>
<FORM name=FORM1 action=logincheck.asp method=post>
<INPUT type=hidden value=<%=request.form("uid")%> name=UserName>
<INPUT type=hidden value=<%=request("pwd")%> name=UserPass> 
<TABLE width=700 height=180>
  <TR><TD></TD></TR>
  <TR><TD height=20></TD></TR>
  <TR><TD><P><B><font color="#ff6600">注册成功！</font></B></P>
<p>&nbsp;&nbsp;&nbsp;&nbsp;恭喜您成为本站会员，现在您可以尽享网络游戏乐趣，<br>&nbsp;&nbsp;&nbsp;&nbsp;您的用户名是<b><font color="#ff6600"><%=request("uid")%></font></b>，请记住您的密码：<b><font color="#ff6600"><%=request("pwd")%></font></b>.<br></p></TD></TR>
  <TR><TD height=15></TD></TR>
</TABLE>
      <BR><BR><input type="submit" value="进入游戏" name="B4" class="stbtm2">
</DIV></TD></TR></TBODY></TABLE></FORM><br>
<!--#include file="end.inc"-->
</DIV></BODY>
<%
rs.close
rs_detail.close
conn.close
%>