<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/char.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/sql.asp"-->
<%
	end if
	tid=ReplaceBadChar(int(Request.Cookies("admin_school_id")))
	id=ReplaceBadChar(int(Trim(Request.QueryString("id"))))
	action=ReplaceBadChar(Trim(Request.QueryString("action")))
	if id="" then
		response.write"<SCRIPT language=JavaScript>alert('对不起，非法操作！');"
		response.write"javascript:window.close();</SCRIPT>"
		response.end
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from smailbox where id="&id&" and sid="&tid&""
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write"<SCRIPT language=JavaScript>alert('该邮件不存在');"
		response.write"javascript:window.close();</SCRIPT>"
		response.end
	else
		conn.Execute "update smailbox set newmail=1 where id="&id&" and sid="&tid&""
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%= homename %>----院校会员专区</title>
<link href="../company/images/css.css" rel="stylesheet" type="text/css">
</head>
<style>
<!--
body {
	background-color: #FFFFFF;
}
-->
</style>
<body>
<table width="405"  border="0" align="left" cellpadding="5" cellspacing="2" style="border:1 solid #006666 ">
  <tr>
    <td width="389" height="22" align="center" bgcolor="#33CCCC"><%= rs("title") %>&nbsp;</td>
  </tr>
  <tr>
    <td height="200" valign="top" bgcolor="#FFFFFF"><p><%= rs("mainbox") %>&nbsp;</p></td>
  </tr>
  <tr>
    <td height="22" align="center" bgcolor="#FFFFFF"><img src="../person/images/home.gif" width="148" height="28" border="0" alt="系统信息，无法回复">&nbsp;&nbsp;&nbsp;&nbsp;<img src="../person/images/back.gif" width="148" height="28" style="cursor:hand;" onClick="window.close()" alt="关闭窗口"></td>
  </tr>
</table>
<%
	End If
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>
</body>
</html>
