userinfo.asp

ASPTest 网络基础网页设计

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

<!-- #include file="cnOpen.asp" -->
<%
Dim rsUser
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open "SELECT * FROM Lily_Users WHERE UserID='"&Request("UserID")&"'",cn
%>

<p align="center"><span lang="zh-cn"><font size="2" color="#FF0000">该</font></span><font size="2" color="#FF0000"><span lang="zh-cn">用户</span>的注册信息为:</font>
  <p align="center">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="367" align="center" height="141">
    <tr>
      <td width="89" align="right" height="30">用户名:</td>
      <td width="275" align="center" height="30"><%=rsUser("UserID")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">用户昵称:</td>
      <td width="275" align="center" height="30"><%=rsUser("UserNick")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">性别:</td>
      <td width="275" align="center" height="30"><%=rsUser("UserGender")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">生日:</td>
      <td width="275" align="center" height="30"><%=rsUser("Birthday")%>  </td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">电子邮件:</td>
      <td width="275" align="center" height="30"><%=rsUser("Email")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">主页:</td>
      <td width="275" align="center" height="30"><%=rsUser("HomePage")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">qq:</td>
      <td width="275" align="center" height="30"><%=rsUser("Oicqnum")%>　</td>
    </tr>
    <tr>
      <td width="89" align="right" height="30">个人描述:</td>
      <td width="275" height="30"><pre><%=rsUser("Description")%></pre></td>
    </tr>
    </table>
<%
rsUser.Close
Set rsUser = Nothing
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="Bottom.htm" -->