<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/function.asp" -->
<!--#include file="../Include/html.inc"-->
<% uname=session("cuid") 
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from cmailbox where reid='"&uname&"'and newmail=0"
rs.open sql,conn,1,1
mailnum=rs.recordcount
rs.close                                                                    
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
if request("del")<>"" then 
conn.Execute("delete * from cmailbox where id="&request("del"))
response.write"<SCRIPT language=JavaScript>alert('信件删除成功！');"
response.write"javascript:window.close();</SCRIPT>" 
response.end
end if
sql1="select * from cmailbox where id="&request("id")
rs.open sql1,conn,1,1
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('信件不存在或已被删除！');"
response.write"javascript:window.close();</SCRIPT>"
response.end
end if
newmail=rs("newmail") %>
<TITLE>查看贵公司收到的站内信息——<%=site_info(0)%></TITLE>
<link href="../Include/Style1.css" rel="stylesheet" type="text/css" />
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style2 {color: #FFFFFF}
-->
</style>
</HEAD>
<!--#include file="../Include/top.asp" -->
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber6" bgcolor="#000000" height="1">
    <tr>
      <td width="100%"></td>
    </tr>
  </table>
  </center>
</div>



<div align="center">
  <center>
    <table width="770" height="3" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" bgcolor="#111111" id="AutoNumber27" style="border-collapse: collapse">
      <tr>
        <td width="100%"></td>
      </tr>
    </table>
    <table width="770" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FFFFFF">
      <tr>
        <td><div align="center">
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="762" height="100">
              <param name="movie" value="../Include/images/b33.swf">
              <param name=quality value=high>
              <embed src="../Include/images/b33.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="762" height="100"></embed>
            </object>
        </div></td>
      </tr>
    </table>
    <table width="770" height="3" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" bgcolor="#111111" id="AutoNumber27" style="border-collapse: collapse">
      <tr>
        <td width="100%"></td>
      </tr>
    </table>
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#E7E3E7" width="770" id="AutoNumber62" bgcolor="#FFFFFF">
    <tr>
      <td width="100%" valign="top">
      <p>　</p>
      <div align="center">
        <center>
        <table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="70%" id="AutoNumber65" bgcolor="#E7E3E7">
          <tr bgcolor="#FF9E31">
            <td colspan="3">
            <p align="center"><font color="#FFFFFF">======&gt;&gt;&gt; 企 业 站 内 信 箱 
            &lt;&lt;&lt;======</font></td>
          </tr>
          <tr>
            <td width="19%" align="right">发 信 人：</td>
            <td width="81%" colspan="2">　<%=rs("sendname")%></td>
          </tr>
          <tr>
            <td width="19%" align="right">信件标题：</td>
            <td colspan="2">　<%=rs("title")%></td>
          </tr>
          <tr>
            <td width="19%" align="right">发信时间：</td>
            <td colspan="2">　<%=rs("sdate")%></td>
          </tr>
          <tr>
            <td colspan="3"><br>
            <br>　　<%=rs("mailtext")%>
　</td>
          </tr>
          <tr>
            <td colspan="3">
            <table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber66">
              <tr>
                <td width="33%" align="center"><a href="viewmail.asp?del=<%=rs("id")%>">删除信件</a>　</td>
                <td width="33%" align="center"><a href="sendmail.asp?reid=<%=rs("senduid")%>">回复信件</a>　</td>
                <td width="34%" align="center"><a href="javascript:window.close()">关闭窗口</a>　</td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </center>
      </div>
      <p>　</p>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber63">
        <tr>
          <td width="100%">　</td>
        </tr>
      </table>      </td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber19" bgcolor="#111111" height="1">
    <tr>
      <td width="100%"></td>
    </tr>
  </table>
  </center>
</div>
<!--#include file="../Include/Bottom.asp" -->
</BODY></HTML>
<% rs.close                                                                    
set rs=nothing
if newmail="0" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql2="update cmailbox set newmail=newmail+1 where id="&request("id")
rs.open sql2,conn,1,1
end if %>