<head>
<STYLE type=text/css>
A:link {COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:visited {	COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:active { COLOR: #ff0000; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:hover {COLOR: #ff0000; TEXT-DECORATION: none}
BODY {FONT-SIZE: 9pt}
TH {FONT-SIZE: 9pt}
TD {FONT-SIZE: 9pt}
</STYLE>
<title>我的信箱</title>

</head>
<body bgcolor="#396BA5">
<!--#include file="conn.asp"-->    
<div align="center">
  <center>

<table border="0" width="600" cellspacing="1" cellpadding="3" height="73">
  <tr>
    <td width="100%" bgcolor="#C0C0C0" colspan="5" height="18" style="border-style: ridge; border-width: 1">
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="50%">短消息收件箱</td>
        </center>
        <td width="50%">
          <p align="right">[<a href="mess2.asp">写新邮件</a>]&nbsp;&nbsp;</td>   
      </tr>   
    </table>   
  </td>   
  </tr>   
  <center>   
  <tr>   
    <td width="7%" bgcolor="#D5D5D5" height="17">　</td>
    <td width="46%" align="center" bgcolor="#D5D5D5" height="17">主&nbsp; 题</td>    
    <td width="17%" align="center" bgcolor="#D5D5D5" height="17">来&nbsp; 自</td>   
    <td width="21%" align="center" bgcolor="#D5D5D5" height="17">发送时间</td>   
    <td width="9%" align="center" bgcolor="#D5D5D5" height="17">删除</td>   
  </tr>  
    
    
<%
set rs=Server.CreateObject("ADODB.RecordSet")                            
rs.open "Select * from message where incept='"&session("username")&"' ORDER BY sendtime DESC ",conn,1
if rs.eof or rs.bof then%> 
 
  <tr>  
    <td width="100%" bgcolor="#F5F5F5" height="14" colspan="5"> 
    <p align="center">您 的 收 件 箱 里 没 有 短 消 息 ！</p>
    </td> 
  </tr> 
 
<%else
while NOT rs.EOF

%>  
  <tr>   
    <td width="7%" bgcolor="#F5F5F5" height="14">  
    <%if rs("flag")=1 then %>  
    <font color="#FF0000">[新]</font>  
    <%else%>    
    [旧]   
    <%end if%>　
    </td> 
    <td width="46%" bgcolor="#F5F5F5" height="14"><a href="mess1.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td> 
    <td width="17%" bgcolor="#F5F5F5" height="14" align="center"><%=rs("sender")%></td> 
    <td width="21%" bgcolor="#F5F5F5" height="14" align="center"><%=rs("sendtime")%></td> 
    <td width="9%" bgcolor="#F5F5F5" height="14">
      <p align="center">[<a href="messdele.asp?id=<%=rs("id")%>">删除</a>]</p>
    </td> 
  </tr> 
<%
rs.movenext   
wend
end if%>
 
</table> 
 
  </center> 
</div> 
 
</body>