usercp.asp

ASP整套的建站源代码

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

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



top
%>







<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title>控制面板</title>
<table width="750" 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="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif">　控制面板</td>
</tr>
</table>
<br>



<TABLE  align=center width="730" background=images/title_sub.gif>
  <TBODY>
  <TR>
    <Td align="center"><b><font color="#000000"><a href="usercp.asp">
    <font color="##000000">控制面板首页</font></a></TH> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="editprofile.asp">
    <font color="#000000">基本资料修改</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000">
    <a href="editprofile.asp?menu=contact"><font color="#000000">联系资料修改</TH></font></a></font></b><TD align="center"><b><font color="#000000">
    <a href="editprofile.asp?menu=pass"><font color="#000000">用户密码修改</TH> </font>
    </a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="message.asp">
    <font color="#000000">用户短信服务</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="friend.asp">
    <font color="#000000">编辑好友列表</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="favorites.asp">
    <font color="#000000">用户收藏管理</TH></font></a></font></b></TR></TBODY></TABLE>
<HR width="730" SIZE=1>

<TABLE cellSpacing=6 cellPadding=0 width="750" align=center>
  <TBODY>
  <TR align=middle>
    <TD vAlign=top width="28%">
      <TABLE style="WIDTH: 202" height="100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
        <TBODY>
        <TR>
          <TD height=25 background="images/title_sub.gif" align="center" colspan="2" width="188">
          <font color="#000000"><b>用户头像</TH></b></font></TR>
        <TR align=middle>
          <TD colspan="2" width="188"><img border="0" width="32" height="32" src="images/face/<%=userface%>.gif"></TD></TR>
        <TR>
          <TD height=25 background="images/title_sub.gif" align="center" colspan="2" width="188">
          <font color="#000000"><b>基本资料</TH></b></font></TR>


       <%
sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn
response.write "<TR><TD>用户等级： "&rs("levelname")&"<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=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
        <TBODY>
        <TR>
          <TD align=left height=25 background="images/title_sub.gif">
          <font color="#000000"><b>-=&gt; 论坛短讯息</b></font></TD></TR>
        <TR>
          <TD align="center"><a href="message.asp"><FONT 
            color=#ff0000>收件箱</FONT></a><font color="#FF0000"> </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=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
        <TBODY>
        <TR>
          <TD align=left colSpan=5 height=25 background="images/title_sub.gif" >
          <font color="#000000"><b>-=&gt; 最新收到的短讯</TH></b></font></TR>
        <TR>
          <TD class=tabletitle2 vAlign=center align=middle 
          width=30>　</TD>
          <TD class=tabletitle2 vAlign=center align=middle 
          width=100><B>发件人</B></TD>
          <TD class=tabletitle2 vAlign=center align=middle 
          width=300><B>内容</B></TD>
          <TD class=tabletitle2 align=middle 
          width=160><B>日期</B></TD>
          <TD class=tabletitle2 vAlign=center align=middle 
          width=50><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
ii=ii+1
%>
   
        <TR>
          <TD vAlign=center align=middle>
          <IMG 
            src="images/f_norm.gif"></TD>
          <TD vAlign=center align=middle><A 
            href="profile.asp?username=<%=rs("author")%>" 
            target=_blank><%=rs("author")%></A>　</TD>
          <TD><A href=# onclick="javascript:open('friend.asp?menu=look&page=<%=ii-1%>','','width=320,height=170')"><%=content%></A>　</TD>
          <TD align="center"><%=rs("time")%></FONT>　</TD>
          <TD align="center"><%=size%>　</TD></TR>
          
<%          
RS.MoveNext
loop
RS.Close      
%>          
          
          
          
          </TD></TR></TBODY></TABLE><BR>
      <TABLE style="WIDTH: 100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
        <TBODY>
        <TR>
          <TD align=left height=25 background="images/title_sub.gif">
          <font color="#000000"><b>-=&gt; 
  最近发表的文章</TH></b></font></TR></TBODY></TABLE>
    <%
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 

%>
<TABLE style="WIDTH: 100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>

  <tr>
    <td align="left">&nbsp;□　<a href=showtopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("id")%>><%=rs("topic")%></a> -- <%=rs("lasttime")%></td>
  </tr>
</table>

<%


RS.MoveNext
loop
RS.Close

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