<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
E_PassWord=trim(checkstr(Request("E_PassWord")))
AcceptNum=trim(checkstr(Request("AcceptNum")))

set rs=server.CreateObject("ADODB.RecordSet")
sql1="select * from "& db_wygkcn_LeadMail_Table &" where E_PassWord='"&E_PassWord &"' and AcceptNum='"&AcceptNum&"'"
rs.Open sql1,conn,1,1
if E_PassWord="" or  AcceptNum="" then
	%>
	<script language=javascript>
		alert("请输入信件编号与知情密码！")
		history.back()
	</script>
	<body onload=javascript:window.close()></body> 
	<%
	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>
<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" type="text/css">
</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="282"  align="center" cellpadding="0" cellspacing="0" border="1" bordercolor="#BBBBBB">
<%
if rs.eof then
Response.write "<tr><td height=300 align=center bgcolor=#FFFFFF><font color=red>您输入的信件编号或知情密码错误！</font></td><tr>"
else
  if rs("Checked")=1 then   
%>				  
                  <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><%=trim(rs("YourName"))%></td>
                    <td align="center"  class="black_title">来信时间：</td>
                    <td><%=rs("UpdateTime") %></td>
                  </tr>
                  <tr>
                    <td height="24" align="right" class="black_title"> 联系邮件：</td>
                    <td class="black_title"><%=trim(rs("email"))%></td>
                    <td align="center" class="black_title">联系电话：</td>
                    <td class="black_title"><%=trim(rs("TelePhone"))%></td>
                  </tr>
                  <tr>
                    <td height="24" align="right" class="black_title">联系地址：</td>
                    <td class="black_title"><%=trim(rs("Address"))%></td>
                    <td align="center" class="black_title">邮政编码：</td>
                    <td class="black_title"><%=trim(rs("Zip"))%></td>
                  </tr>
                  <tr>
                    <td height="25" align="right" class="black_title">信件标题：</td>
                    <td colspan="3" class="black_title"><%=trim(rs("Topic"))%></td>
                  </tr>
                  <tr>
                    <td height="56" align="right" class="black_title">来信内容：</td>
                    <td colspan="3"  class="content_text"><%=trim(rs("content"))%></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>
<%
  else
  Response.write "<tr><td height=100 align=center bgcolor=#FFFFFF><font color=red>您的信件还未通过审核，请耐心等待！</font></td><tr>"
  end if
end if				
%>				  
          </table>
</div>
</div>
</div>
<!--右边部分结束-->
<div class=clear_float></div><!--清除浮动属性-->

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