user_messagebox.asp

校园二手交易系统,具有完备的后台操作以及应用功能!

<!--#include file="inc/UserChk.asp"--><% 
'****************************************************
' 多多校园电子商务工作室        Power by ddtaobao.com
' Email:[e-mail]    OICQ:6334278     站长:小羽
' Web: http://www.ddtaobao.com    淘宝旺旺:qq63334278
' Copyright (C) 2006 ddtaobao.com All Rights Reserved
'****************************************************



set rs=server.createobject("adodb.recordset")
sql="select * from message where fbr='"&session("user_name")&"' order by id desc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%> 
<table cellspacing=1 cellpadding=2 width="100%" bgcolor=#C0C0C0 border=0>
  <tr align=middle bordercolor=#007db5 bgcolor=#007db5> 
    <td width="6%" bgcolor="#EFEFEF"><font class=end><b>已读</b></font></td>
    <td width="20%" bgcolor="#EFEFEF"><font class=end><b>接收人</b></font></td>
    <td width="38%" bgcolor="#EFEFEF"><font class=end><b>短信主题</b></font></td>
    <td width="20%" bgcolor="#EFEFEF"><font class=end><b>发送日期</b></font></td>
    <td width="16%" bgcolor="#EFEFEF"><font class=end><b>短信操作</b></font></td>
  </tr>
  <tr> 
    <td class=htd align=middle bgcolor=#FFFFFF colspan=5 height=30>共<font class=red>0</font>条短信<font class=gray>（为了节省空间，请及时删除无用信息）</font> 
    </td>
  </tr>
</table>
<% else %>
<TABLE cellSpacing=1 cellPadding=2 width="100%" bgColor=#C0C0C0 border=0>
  <TR align=middle borderColor=#007db5 bgColor=#007db5> 
    <TD width="6%" bgcolor="#EFEFEF"><FONT class=end><B>已读</B></FONT></TD>
    <TD width="20%" bgcolor="#EFEFEF"><FONT class=end><B>接收人</B></FONT></TD>
    <TD width="39%" bgcolor="#EFEFEF"><FONT class=end><B>短信主题</B></FONT></TD>
    <TD width="23%" bgcolor="#EFEFEF"><FONT class=end><B>发送日期</B></FONT></TD>
    <TD width="12%" bgcolor="#EFEFEF"><FONT class=end><B>短信操作</B></FONT></TD>
  </TR>
  <% 
while not rs.eof
%>
  <TR align=middle borderColor=#ffffff bgColor=#ffffff> 
    <TD> 
      <% if rs("ok")="0" then %>
      <img src="images/message03.gif" alt="对方已读此信件" width="21" height="14"> 
      <% else %>
      <img src="images/message02.gif" alt="对方未读此信件" width="21" height="14"> 
      <% end if %>
    </TD>
    <TD> 
      <a title="点击查看 <% =rs("jsr") %> 的详细资料" href="L_user.asp?pname=<% =rs("jsr") %>"><% =rs("jsr") %></a>
    </TD>
    <TD align=left> <div align="center">
        <% =rs("bt") %>
        </div></TD>
    <TD class=timtd> 
      <% =rs("date") %>
    </TD>
    <TD><a href="user_messageCK.asp?box=<% =rs("id") %>"><img src="images/message07.gif" width="12" height="13" border="0"></a></TD>
  </TR>
  <% rs.movenext
	   wend
		end if 
		%>
  <TR> 
    <% set tjj=conn.execute("Select count(*) as tjj1 From message where fbr='"&session("user_name")&"'") %>
    <TD class=htd align=middle bgColor=#EFEFEF colSpan=5 height=30>共<FONT class=red> 
      <% =tjj("tjj1") %>
      </FONT>条短信<FONT class=gray>（为了节省空间，请及时删除无用信息）</FONT> </TD>
  </TR>
</TABLE>