<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
    LeadMailID=ChkRequest(request("LeadMailID"),1)	'防注入
	if LeadMailID="" then
	Show_Err("请输入您要要查看的信件ID!<br><br>－－－<a href='javascript:history.back()'>回去重来</a>－－－")
	response.end
	end if	
	
    Set RS=Server.CreateObject("ADODB.Recordset")
	SQL ="select * from "& db_wygkcn_LeadMail_Table &" where Checked=1 and  LeadMailID="&LeadMailID
	Rs.Open Sql,Conn,1,1
		
	if rs.EOF then
	Show_Err("非法信件ID，请确认信件是否存在或者您的信件未通过审核!<br><br>－<a href='javascript:history.back()'>回去重来</a>－")
	Response.End
	end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<meta name="Description" content="<%=SiteDescription%>">
<meta name="keywords" content="<%=SiteKeywords%>">
<title>阅读信件__<%=eChSys_Com%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="CSS/Wygkcn_Home.css" rel=stylesheet type=text/css>
<LINK href="CSS/Wygkcn_News.css" rel="stylesheet">
<script language="JavaScript">
<!--
function myform_onsubmit() {
	var i, n;
	if (document. myform.acceptnum.value=="")
		{
		  alert("对不起，请输入信件编号！")
		  document. myform.acceptnum.focus()
		  return false
		 }
	else if (document. myform.e_password.value=="")
		{
		  alert("对不起，请输入知情密码！")
		  document. myform.e_password.focus()
		  return false
		 }
}
//-->
</script>
</head>
<body>
<!--内容部分开始-->
<div id="EC_Content">
<!--#include file="Top.asp"-->
<!--中间内容部分开始-->
<div id=zl_center>
<!--左边部分开始-->
<div class="zl_left float_left">
<div class="E_c_dl_dh">
<H3>交流互动</H3>
<DIV class=E_c_dl_name>
<ul>
<li><a href="wygkcn_LeadMail.asp">校长信箱</a></li>
<li><a href="Complain.asp">投诉举报</a></li>

<li><a href="wygkcn_GuestBook.asp" target="_blank">留言咨询</a></li>
</ul>
</div>
</div>
<div class="new_art lianmu_bg">
<H3>最新批阅信件</H3>
<DIV class=new_art_list>
<ul class=list>
<%
	set rs_new=server.CreateObject("ADODB.RecordSet")
	rs_new.Source="select top 8 * from "& db_wygkcn_LeadMail_Table &"  where Checked=1 and HaveReply=1 order by LeadMailID desc"	
	rs_new.Open rs_new.Source,conn,1,1
	If Not rs_new.eof then
    do until rs_new.Eof
	topic=trim(rs_new("topic"))
	DisplayTopic=mid(Topic,1,20)
%>
<li>·<a href='wygkcn_ReadLeadMail.asp?LeadMailID=<%=rs_new("LeadMailID")%>'  target="_blank"><%=htmlencode(DisplayTopic)%>...</a></li>
<%
rs_new.MoveNext
loop
else
Response.write "<li>·暂无已批阅信件！</li>"				
End If
%>
</ul>
</div>
</div>

</div>
<!--左边部分结束-->

<!--右边部分开始-->
<div class="zl_right float_right">

<!--位置导航部分开始-->
<div class="position">
<img src="Images/lm_dot.gif" width="11" height="11">&nbsp;&nbsp;您的位置&nbsp;&nbsp;<a href="./" >首页</a> >> <a href="wygkcn_Conmunicate.asp">交流互动</a> >> <a href="wygkcn_LeadMail.asp">校长信箱</a> >>查看信件</div>
<!--位置导航部分结束-->
<div id=hd_cnt>
<H6>查看信件内容</H6>
<div class="list_hdcnt">
  <table width="100%" height="219" align="center" cellpadding="0" cellspacing="0" border="1" bordercolor="#BBBBBB">
    <tr>
      <td height="12" colspan="4" align="center" class="bs_bg">请输入知情密码查询详情</td>
    </tr>
	    <tr>
      <td height="12" colspan="4" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <form  action="wygkcn_LeadMail_Result.asp" method="post" name="myform" target="_blank" id="myform" onsubmit="return myform_onsubmit()"   language="javascript">
          <tr>
            <td width="14%" height="28" align="center" class="black_title">信件查询</td>
            <td width="12%" align="center">信件编号：</td>
            <td width="23%" align="center"><input name="acceptnum" id="acceptnum" type="text" value="<%=rs("acceptnum")%>"  size="20" /></td>
            <td width="15%" align="center">知情密码：</td>
            <td width="23%" align="center"><input name="e_password"  id="e_password"  type="password"  size="20" /></td>
            <td width="13%" align="center"><input name="Submit3" type="submit" value="搜 索" /></td>
          </tr>
        </form>
      </table></td>
    </tr>
    <tr>
      <td width="18%" height="25" align="right" class="black_title">信件编号：</td>
      <td width="32%" class="black_title"><%=trim(rs("AcceptNum"))%></td>
      <td width="19%" align="center" class="black_title">信件类型：</td>
      <td width="31%" align="left"><%=trim(rs("Content_Type"))%></td>
    </tr>
    <tr>
      <td height="24" align="right" class="black_title">信件标题：</td>
      <td colspan="3"  class="black_title"><%=trim(rs("Topic"))%></td>
    </tr>
    <tr>
      <td height="23" align="right" class="black_title">来信人姓名：</td>
      <td><%=trim(rs("YourName"))%></td>
      <td align="center" class="black_title">来信时间：</td>
      <td><%=rs("UpdateTime") %></td>
    </tr>
    <tr>
      <td height="56" align="right" class="black_title">来信内容：</td>
      <td colspan="3"><font color="red">*来信内容未显示*</font></td>
    </tr>
    <tr>
      <td height="27" align="right" class="black_title">回信时间：</td>
      <td colspan="3"><%if trim(rs("HaveReply"))=1 then %>
          <%=trim(rs("ReplyTime"))%>
          <%else%>
          <font color="red" >请耐心等待回复！</font>
          <%end if%>
      </td>
    </tr>
    <tr>
      <td height="44" align="right" class="black_title">回信内容：</td>
      <td colspan="3"   class="content_text"><%if trim(rs("HaveReply"))=1 then %>
          <%=trim(rs("ReplyContent"))%>
          <%else%>
          <font color="red" >请耐心等待回复！</font>
          <%end if%>
      </td>
    </tr>
  </table>
</div>
</div>
</div>
<!--右边部分结束-->
<div class=clear_float></div><!--清除浮动属性-->

</div>
<!--中间内容部分结束-->
<!--#include file="bottom.asp"-->
</div>
<!--内容部分结束-->
</body>
</html>