<%dbs="../"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="uccook.asp"-->
<!--#include file="uc.asp"-->
<%
id=request("id")
if id="" or IsNumeric(id)<>true then
	response.write"请输入正确的ID号！"
	response.end
end if
sql="select * from H_Message  where id="&id&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1 
if rs.eof then
response.Write"<div align=center>没有这个邮件</div>"
response.End()
else
M_UID=rs("UID")
M_YID=rs("YID")
M_Mtitle=rs("Mtitle")
M_Mchar=RS("Mchar")
M_Rdate=RS("Rdate")
rs.close
''''''更新邮件状态
upsql="Update H_Message set Mdu=1 where id="&id
conn.execute(upsql)
end if 
if request("act")="del" then
if M_UID=0 then
response.Write "<script >alert('提示：\n\n对不起，系统邮件不允许删除...');history.back(-1);</script>"
response.End()
end if
conn.execute("delete from H_Message where id="&id&"")
response.Write "<script >alert('提示：\n\n恭喜,删除成功\n\n立即返回...');location.href='MReceived.asp';</script>"
response.End()
end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<title><%=W_title%>,总管理中心</title>


<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript src="images/jquery.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript src="images/function.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript type=text/javascript>
<!--


/*
function AddnewType()
*/
-->
</SCRIPT>

<META content="MSHTML 6.00.3790.4426" name=GENERATOR>
</HEAD>
<BODY><!--用户中心头部-->
<!--#include file="top.asp"-->
<table width="960" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="150" valign="top"><!--#include file="left.asp"--></td>
      <td width="810" align="right" valign="top"><table width="800" border="0" cellpadding="0" cellspacing="0">
            <tr>
                <td width="20" align="center"><img src="images/ico_4.gif" width="12" height="12"></td>
                <td height="30" align="left"><a href="index.asp" target="_self">用户中心</a> <span class="uc_huise">&gt; 发布信息</span></td>
            </tr>
            <tr>
                <td height="1" colspan="2" bgcolor="#EEEEEE"></td>
        </tr>
        </table>
            <table width="600" height="5" border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td></td>
                </tr>
            </table>
		
		    <table width="800" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="67" height="25"><span style="padding-right:25px;">主</span>题：</td>
                <td width="733" align="left"><%=M_Mtitle%></td>
              </tr>
              <tr>
                <td height="25">发 件 人：</td>
                <td align="left"><%
				if M_UID=0 then
				UCF="系统"
				else
				UCF=conn.execute("select ucuser from H_user where id="&M_UID&"")("ucuser")
				end if
				%><%=UCF%></td>
              </tr>
              <tr>
                <td height="25">收 件 人：</td>
                <td align="left">
				<%
				if M_YID=0 then
				UCs="系统"
				else
				UCs=conn.execute("select ucuser from H_user where id="&M_YID&"")("ucuser")
				end if
				%><%=UCS%>
				- <%=M_Rdate%></td>
              </tr>
              <tr>
                <td height="1" colspan="2" bgcolor="#84BD00"></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td height="138" colspan="2" align="left" valign="top"><table width="700" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td><span class="content"><%=M_Mchar%></span></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td height="1" colspan="2" bgcolor="#E8E8E8"></td>
              </tr>
              <tr>
                <td height="28" colspan="2" align="left" style="padding-top:5px;">
				
				<table width="400" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                      <td><table width="88" height="25" border="0" cellpadding="0" cellspacing="0" class="UCform">
                        <tr>
						<%
				if M_UID=0 then
				UCF="系统"
				else
				UCF=conn.execute("select ucuser from H_user where id="&M_UID&"")("ucuser")
				end if
				%>
                          <td align="center" valign="middle"><a href="MU.asp?HMuser=<%=UCF%>&HMtxt=<%=M_Mtitle%>" target="_self">回复</a></td>
                        </tr>
                      </table></td>
                      <td><table width="88" height="25" border="0" cellpadding="0" cellspacing="0" class="UCform">
                        <tr>
                          <td align="center" valign="middle"><a href="?act=del&id=<%=id%>" target="_self">删除</a></td>
                        </tr>
                      </table></td>
                      <td><table width="138" height="25" border="0" cellpadding="0" cellspacing="0" class="UCform">
                        <tr>
                          <td align="center" valign="middle">查看发件人的空间</td>
                        </tr>
                      </table></td>
                    </tr>
                  </table>
				  
				  
				  </td>
              </tr>
            </table></td>
    </tr>
</table>
<!--#include file="end.asp"-->

</BODY></HTML>
