<!--#include file="inc/UserChk.asp"-->
<% 
'****************************************************
' 多多校園電子商務工作室        Power by ddtaobao.com
' Email:kayvin@sohu.com    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 jsr='"&session("user_name")&"' order by id desc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%>
<TABLE width="98%" border=0 cellPadding=2 cellSpacing=1 bgColor=#C0C0C0>
  <TR align=middle borderColor=#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="98%" 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("fbr") %> 的詳細資料" href="L_user.asp?pname=<% =rs("fbr") %>"><% =rs("fbr") %></a>
    </TD>
    <TD align=left> <div align="center"><A href="user_messageCK.asp?message=<% =rs("id") %>"> 
        <% =rs("bt") %>
        </A></div></TD>
    <TD class=timtd> 
      <% =rs("date") %>
    </TD>
    <TD><a href="?del=<% =rs("id") %>"><img src="images/message06.gif" alt="刪除此信件" width="18" height="18" border="0"></a></TD>
  </TR>
  <% rs.movenext
	   wend
		end if 
		%>
  <TR> 
    <% set tjj=conn.execute("Select count(*) as tjj1 From message where jsr='"&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>