usercp.asp

一个超市管理系统

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

<%

if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if



top
%>








<title>控制面板</title>
<table width=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif">　控制面板</td>
</tr>
</table>
<br>



<div align="center">
  <center>



<TABLE width="95%" class=a1 style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" height="20">
  <TBODY>
  <TR>
      <Td width="14%" align="center"><b><font color="#FFFFFF"><a href="usercp.asp"> 
        <font color="#FFFFFF">控制面板首页</font></a></TH> </font> </b> 
      <TD width="14%" align="center"><b><font color="#FFFFFF"><a href="EditProfile.asp"> 
        <font color="#FFFFFF">基本资料修改</TH> </font></a> </font> </b> 
      <TD width="13%" align="center"><b><font color="#FFFFFF"> <a href="EditProfile.asp?menu=contact"><font color="#FFFFFF">编辑论坛选项</TH></font></a></font></b>
      <TD width="14%" align="center"><b><font color="#FFFFFF"> <a href="EditProfile.asp?menu=pass"><font color="#FFFFFF">用户密码修改</TH> 
        </font> </a> </font> </b> 
      <TD width="14%" align="center"><b><font color="#FFFFFF"><a href="message.asp"> 
        <font color="#FFFFFF">用户短信服务</TH> </font></a> </font> </b> 
      <TD width="14%" align="center"><b><font color="#FFFFFF"><a href="friend.asp"> 
        <font color="#FFFFFF">编辑好友列表</TH> </font></a> </font> </b> 
      <TD width="17%" align="center"><b><font color="#FFFFFF"><a href="favorites.asp"> 
        <font color="#FFFFFF">用户收藏管理</TH></font></a></font></b></TR></TBODY></TABLE>
  </center>
</div>
<HR width="95%" SIZE=1>

<TABLE cellSpacing=6 cellPadding=0 width=97% align=center>
  <TBODY>
  <TR align=middle>
    <TD vAlign=top width="28%">
      <TABLE style="WIDTH: 202" height="100%" cellSpacing=1 cellPadding=3 align=center border=0 class=a2>
        <TBODY>
        <TR>
          <TD height=25 class=a1 align="center" colspan="2" width="188">
          <b>用户头像</TH></b></TR>
        <TR align=middle>
          <TD colspan="2" width="188" bgcolor="#FFFFFF"><img border="0" width="32" height="32" src="images/face/<%=userface%>.gif"></TD></TR>
        <TR>
          <TD height=25 class=a1 align="center" colspan="2" width="188">
          <b>基本资料</TH></b></TR>


       <%
sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn
response.write "<TR><TD bgcolor=#FFFFFF>用户等级： <Script>document.write(level("&rs("experience")&","&rs("membercode")&")+levelname)</Script><br>用户门派： "&rs("faction")&"<br>用户体力： "&rs("userlife")&"<br>发表原贴： "&rs("posttopic")&"<br>发表回贴： "&rs("postrevert")&"<br>精华帖数： "&rs("goodtopic")&"<br>被删原贴： "&rs("deltopic")&"<br>社区银两： "&rs("money")&"<br>用户经验： "&rs("experience")&"<br>登陆次数： "&rs("degree")&"<br>注册时间： "&rs("regtime")&"<br>上次登陆： "&rs("landtime")&"</TD></TR>"

rs.close
%>   


       </TBODY></TABLE></TD>
    <TD vAlign=top>
      <TABLE style="WIDTH: 100%" height=29 cellSpacing=1 cellPadding=3 align=center border=0 class=a2>
        <TBODY>
        <TR>
          <TD align=left height=25 class=a1>
          <b>-=&gt; 论坛短讯息</b></TD></TR>
        <TR>
          <TD align="center" bgcolor="#FFFFFF"><a href="message.asp"><FONT 
            color=#ff0000>收件箱</FONT></a><font color="#FF0000">&nbsp; </font>共有 <B>[<%=conn.execute("Select count(id)from message where incept='"&Request.Cookies("username")&"'")(0)%>]</B> 条讯息，<a href="message.asp?send=1"><FONT 
            color=#ff0000>已发送讯息</FONT></a><B> [<%=conn.execute("Select count(id)from message where author='"&Request.Cookies("username")&"'")(0)%>]</B> 条。<BR></TD></TR></TBODY></TABLE><BR>
      <TABLE  style="WIDTH: 100%" cellSpacing=1 cellPadding=3 align=center border=0 class=a2>
        <TBODY>
        <TR>
          <TD align=left colSpan=5 height=25 class=a1>
          <b>-=&gt; 最新收到的短讯</TH></b></TR>
        <TR>
          <TD vAlign=center align=middle 
          width=30 bgcolor="#FFFFFF">　</TD>
          <TD vAlign=center align=middle 
          width=100 bgcolor="#FFFFFF"><B>发件人</B></TD>
          <TD vAlign=center align=middle 
          width=300 bgcolor="#FFFFFF"><B>内容</B></TD>
          <TD align=middle 
          width=160 bgcolor="#FFFFFF"><B>日期</B></TD>
          <TD vAlign=center align=middle 
          width=50 bgcolor="#FFFFFF"><B>大小</B></TD></TR>
          
<%

sql="select top 5 author,content,time from message where incept='"&Request.Cookies("username")&"' order by time Desc"
rs.Open sql,Conn
Do While Not RS.EOF 
size=Len(""&rs("content")&"")
if size>20 then
content=left(""&rs("content")&"",16)&"..."
else
content=rs("content")
end if
%>
   
        <TR>
          <TD vAlign=center align=middle bgcolor="#FFFFFF">
          <IMG 
            src="images/f_norm.gif"></TD>
          <TD vAlign=center align=middle bgcolor="#FFFFFF"><A href="Profile.asp?username=<%=rs("author")%>" ><%=rs("author")%></A>　</TD>
          <TD bgcolor="#FFFFFF"><A href=message.asp><%=content%></A>　</TD>
          <TD align="center" bgcolor="#FFFFFF"><%=rs("time")%></FONT>　</TD>
          <TD align="center" bgcolor="#FFFFFF"><%=size%>　</TD></TR>
          
<%          
RS.MoveNext
loop
RS.Close      
%>          
          
          
          
          </TD></TR></TBODY></TABLE><BR>
      <TABLE style="WIDTH: 100%" cellSpacing=1 cellPadding=3 align=center border=0 class=a2>

        <TR>
          <TD align=left height=25 class=a1>
          <b>-=&gt; 
  最近发表的文章</TH></b></TR>
    <%
sql="select top 5 * from forum where deltopic<>1 and username='"&Request.Cookies("username")&"' order by lasttime Desc  "
rs.Open sql,Conn

Do While Not RS.EOF 

%>

  <tr>
    <td align="left" bgcolor="#FFFFFF">&nbsp;□　<a onclick=min_yuzi() target=message href=ShowPost.asp?id=<%=rs("id")%>><%=rs("topic")%></a> -- <%=rs("lasttime")%></td>
  </tr>


<%


RS.MoveNext
loop
RS.Close

  %>
</table></TD></TR></TBODY></TABLE>
  
<%
htmlend
%>