reginfoadd.asp

ASPTest 网络基础网页设计

<%
Dim rsUserNew,rsUserCheck
Set rsUserNew = Server.CreateObject("ADODB.RecordSet")
Set rsUserCheck = Server.CreateObject("ADODB.RecordSet")

'检测用户名是否存在如果存在，则提示错误
'检测输入信息是否完整,如果不完整,则提示错误,并让用户重新输入

If (Request("txtUserID")="" OR Request("txtUserPWD")="") OR (Request("txtPWDSubmit")="" OR Request("txtUserNick")="") Then
  Response.Write "<p align=center><font color=red>输入信息不完整,请重新输入信息</font></p>"
  %>
  <!-- #include file="RegInfoInput.asp" -->
<%
ElseIf Request("txtUserPWD")<>Request("txtPWDSubmit") Then
  Response.Write "<p align=center><font color=red>确认密码与用户密码不一致,请重新输入信息</font></p>"
  %>
  <!-- #include file="RegInfoInput.asp" -->
<%
Else    
  rsUserCheck.Open "SELECT * FROM Lily_Users WHERE UserID='"&_
    request("txtUserID")&"'",cn
  If Not rsUserCheck.Eof Then '有重复用户名，提示错误信息
    Response.Write "<p align=center><font color=red>该用户ID已存在,请输入新的用户ID</font></p>"
    %>
    <!-- #include file="RegInfoInput.asp" -->
  <%
  Else '可以正确生成用户
    rsUserNew.Open "SELECT * FROM Lily_Users",cn,2,3
    rsUserNew.AddNew
    rsUserNew("UserID") = Request("txtUserID")
    rsUserNew("UserNick") = Request("txtUserNick")
    rsUserNew("UserPWD") = Request("txtUserPWD")
    rsUserNew("UserGender") = Request("rdUserGender")
    rsUserNew("BirthDay") = Request("txtmonth")&"-"&Request("txtDay")&_
       "-"&Request("txtYear")
    If Request("txtEmail")<>"" Then
      rsUserNew("Email") = Request("txtEmail")
    End If
    If Request("txtOicq")<>"" Then
      rsUserNew("OicqNum") = Request("txtOicq")
    End If
    If Request("txtUserName")<>"" Then
      rsUserNew("UserName") = Request("txtUserName")
    End If
    If Request("txtHomePage")<>"" Then
      rsUserNew("HomePage") = Request("txtHomePage")
    End If
    If Request("txtDescription")<>"" Then
      rsUserNew("Description") = Request("txtDescription")
    End If
    rsUserNew("RegistTime") = Now
    rsUserNew.Update
    %>
  <p align="center"><font size="2" color="#FF0000">注册成功,欢迎加入百合论坛,您的注册信息为:</font>
  <p align="center">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="367" align="center">
    <tr>
      <td width="89" align="right">用户名:</td>
      <td width="275" align="center"><%=Request("txtUserID")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">用户昵称:</td>
      <td width="275" align="center"><%=Request("txtUserNick")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">密码:</td>
      <td width="275" align="center"><%=Request("txtUserPWD")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">性别:</td>
      <td width="275" align="center"><%=Request("rdUserGender")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">生日:</td>
      <td width="275" align="center">
        <%=Request("txtYear")%>-<%=Request("txtMonth")%>
          -<%=Request("txtDay")%>　  
      </td>
    </tr>
    <tr>
      <td width="89" align="right">电子邮件:</td>
      <td width="275" align="center"><%=Request("txtEmail")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">主页:</td>
      <td width="275" align="center"><%=Request("txtHomePage")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">qq:</td>
      <td width="275" align="center"><%=Request("txtOicq")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right">个人描述:</td>
      <td width="275"><pre><%=Request("txtDescription")%></pre></td>
    </tr>
    <tr>
      <td width="364" colspan="2" align="center"><a href="index.asp">进入论坛</a>
      <a href="EditUserInfo.asp">修改资料</a></td>
    </tr>
  </table>
  <%
    rsUserNew.Close
    Session("UserID") = Request("txtUserID")
  End If
  rsUserCheck.Close
End If

Set rsUserNew = Nothing
Set rsUserCheck = Nothing
%>