edituserinfocheck.asp

ASPTest 网络基础网页设计

<!-- #include file="Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
If Request("txtUserNick") = "" OR Request("txtOldPWD") = "" OR Request("txtUserPWD") = "" OR Request("txtPWDSubmit") = "" Then
  %>
  <p align=center><font color="red">输入信息不完整,请重新输入信息</font></p>
  <!-- #include file="EditUserInfoInput.asp" -->
<%
ElseIf Request("txtUserPWD") <> Request("txtPWDSubmit") Then
  %>
  %>
  <p align=center><font color="red">新密码与确认密码不一致,请重新输入信息</font></p>
  <!-- #include file="EditUserInfoInput.asp" -->
<% 
Else
  rs.Open "SELECT * FROM Lily_Users WHERE UserID='"&Session("UserID")&"' AND UserPWD='"&Request("txtOldPWD")&"'",cn,2,3
  If rs.Eof Then
    %>
    <p align=center><font color="red">旧密码输入错误,请重新输入信息</font></p>
    <!-- #include file="EditUserInfoInput.asp" -->
  <%
  Else
    rs("UserNick") = Request("txtUserNick")
    rs("UserPWD") = Request("txtUserPWD")
    rs("UserGender") = Request("rdUserGender")
    rs("BirthDay") = Request("txtmonth")&"-"&Request("txtDay")&_
       "-"&Request("txtYear")
    If Request("txtEmail")<>"" Then
      rs("Email") = Request("txtEmail")
    End If
    If Request("txtOicq")<>"" Then
      rs("OicqNum") = Request("txtOicq")
    End If
    If Request("txtUserName")<>"" Then
      rs("UserName") = Request("txtUserName")
    End If
    If Request("txtHomePage")<>"" Then
      rs("HomePage") = Request("txtHomePage")
    End If
    If Request("txtDescription")<>"" Then
      rs("Description") = Request("txtDescription")
    End If
    rs.Update
  End If
  rs.Close
  %>
  <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"><%=Session("UserID")%>　</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>
<%
End If
Set rs = Nothing
%><!-- #include file="cnClose.asp" --><!-- #include file="Bottom.htm" -->