<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!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">
<noscript><iframe scr="*"></iframe></noscript>
<script language="JavaScript">
<!--
function na_select_form (fname, type_name) 
{
  document.forms[fname].elements[type_name].select()
  document.forms[fname].elements[type_name].focus()
}
// -->
</script>
<script language="javascript">
<!--
function checkdata()
{
if (document.form1.Content_Type.value=="")
	{
	  alert("对不起，请选择信件类型！")
	  return false
	 }
if (document.form1.YourName.value=="")
	{
	  alert("对不起，请输入您的姓名！")
	  return false
	 }
if (document.form1.email.value=="")
	{
	  alert("对不起，请输入您的联系邮箱！")
	  return false
	 }
if (document.form1.TelePhone.value=="")
	{
	  alert("对不起，请输入您的联系电话！")
	  return false
	 }
if (document.form1.Address.value=="")
	{
	  alert("对不起，请输入您的联系地址！")
	  return false
	 }
if (document.form1.Address.value=="")
	{
	  alert("对不起，请输入您的邮政编码！")
	  return false
    }
if (document.form1.Topic.value=="")
	{
	  alert("对不起，请输入您要信件标题！")
	  return false
	 }
if (document.form1.content.value=="")
	{
	  alert("对不起，请输入您要信件内容！")
	  return false
	 }
if (document.form1.E_PassWord.value=="")
	{
	  alert("对不起，请输入知情密码！")
	  return false
	 }
}
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
		 }
}
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<script  language="JavaScript">
<!-- Hide from older browsers...

//Function to format text in the text box
function FormatText(command, option){
	
  	frames.message.document.execCommand(command, true, option);
  	frames.message.focus();
}

//Function to clear form
function ResetForm(){

	if (window.confirm('确认要清空对话框内容?')){
	 	frames.message.document.body.innerHTML = ''; 
	 	return true;
	 } 
	 return false;		
}

//Function to open pop up window
function openWin(theURL,winName,features) {
  	window.open(theURL,winName,features);
}

function setMode(newMode)
{
  bTextMode = newMode;
  var cont;
  if (bTextMode) {
    cleanHtml();
    cleanHtml();

    cont=message.document.body.innerHTML;
    message.document.body.innerText=cont;
  } else {
    cont=message.document.body.innerText;
    message.document.body.innerHTML=cont;
  }
  message.focus();
}

function cleanHtml()
{
  var fonts = message.document.body.all.tags("FONT");
  var curr;
  for (var i = fonts.length - 1; i >= 0; i--) {
    curr = fonts[i];
    if (curr.style.backgroundColor == "#ffffff") curr.outerHTML	= curr.innerHTML;
  }

}

// -->
</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=server.CreateObject("ADODB.RecordSet")
	rs.Source="select top 8 * from "& db_wygkcn_LeadMail_Table &"  where Checked=1 and HaveReply=1 order by LeadMailID desc"	
	rs.Open rs.Source,conn,1,1
	If Not rs.eof then
    do until rs.Eof
	topic=trim(rs("topic"))
	DisplayTopic=mid(Topic,1,20)
%>
<li>·<a href='wygkcn_ReadLeadMail.asp?LeadMailID=<%=rs("LeadMailID")%>'  target="_blank"><%=htmlencode(DisplayTopic)%>...</a></li>
<%
Rs.MoveNext
loop
else
Response.write "<li>·暂无已批阅信件！</li>"				
End If
%>
</ul>
</div>
</div>
<div class="new_art lianmu_bg">
<H3>最新办结投诉举报</H3>
<DIV class=new_art_list>
<ul class=list>
<%
	set rs=server.CreateObject("ADODB.RecordSet")
	rs.Source="select top 8 * from "& db_wygkcn_Complain_Table &"  where Checked=1 and HaveReply=1 order by ComplainID desc"		
	rs.Open rs.Source,conn,1,1
	If Not rs.eof then
    do until rs.Eof
	topic=trim(rs("topic"))
	DisplayTopic=mid(Topic,1,20)
%>
<li>·<a href='wygkcn_ReadComplain.asp?ComplainID=<%=rs("ComplainID")%>' target="_blank"><%=htmlencode(DisplayTopic)%>...</a></li>
<%
Rs.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> >> 交流互动 >> 列表
</div>
<!--位置导航部分结束-->
<div id=hd_cnt>
<H6>交流互动</H6>
<div class="list_hdcnt">
<table width="100%" align="center" cellpadding="0" cellspacing="0" border="1" bordercolor="#BBBBBB">
   <tr>
      <td colspan="9" align="left" class="mylink bs_bg"><a href="wygkcn_LeadMail.asp">&nbsp;&nbsp;校长信箱</a> -- <a  href="wygkcn_LeadMail.asp?Content_Type=社情民意反馈" >社情民意反馈</a> | <a href="wygkcn_LeadMail.asp?Content_Type=反映问题" >反映问题</a> | <a href="wygkcn_LeadMail.asp?Content_Type=咨询" >咨询</a> | <a  href="wygkcn_LeadMail.asp?Content_Type=意见建议" >意见建议</a></td>
          </tr>
                    <tr class="blue_tit" align="center">
                      <td width="16%" height="25" >信件类型</td>
                          <td width="53%" >信件标题</td>
                          <td width="15%" >来信日期</td>
                          <td width="16%" >处理状态</td>
                    </tr>
                    <%
	Content_Type=ChkRequest(Request("Content_Type"),0) '防注入
	set rs=server.CreateObject("ADODB.RecordSet")
	if Content_Type="" then
	rs.Source="select top 8 * from "& db_wygkcn_LeadMail_Table &"  where Checked=1 order by LeadMailID desc"	
	else
	rs.Source="select top 8 * from "& db_wygkcn_LeadMail_Table &"  where Checked=1 and Content_Type='"& Content_Type &"'order by LeadMailID desc"	
	end if
	rs.Open rs.Source,conn,1,1
	If Not rs.eof then
    do until rs.Eof
	topic=trim(rs("topic"))
	DisplayTopic=mid(Topic,1,26)
%>
<tr class="normal_tr" onmouseover="this.className='Hover_tr'" onmouseout="this.className='normal_tr'">
                      <td height="23" align=center  ><%=rs("Content_Type")%></td>
                          <td align="left" > ·<a href='wygkcn_ReadLeadMail.asp?LeadMailID=<%=rs("LeadMailID")%>'  target="_blank"><%=htmlencode(DisplayTopic)%>...</a></td>
                          <td align=center><%=year(rs("UpdateTime")) %>-<%=Month(rs("UpdateTime")) %>-<%=Day(rs("UpdateTime")) %></td>
                          <td align=center >
                            <%if trim(rs("HaveReply"))=1 then %>
                            已阅批
                            <%else%>
                            <font color=red >未阅批</font>
                      <%end if%></td>
          </tr>
                    <%
Rs.MoveNext
loop
else
Response.write "<tr><td bgcolor=#ffffff align=center valign=middle colspan=4 height=80>&nbsp;<font color=red >暂时没有来信！</font></td></tr>"				
End If%>

                    <tr>
                      <td height=25 colspan=4  align=right valign=middle><a href="wygkcn_LeadMail.asp" target="_blank" >更多>></a></td>
                    </tr>
        </table>
<br>
<table width="100%" align="center" cellpadding="0" cellspacing="0" border="1" bordercolor="#BBBBBB">
                      <tr>
                        <td colspan="9" align="left" class="mylink bs_bg"><a href="Complain.asp" >&nbsp;&nbsp;投诉举报</a> -- <a href="Complain.asp?ComplainClass=投诉" >投诉</a> | <a href="Complain.asp?ComplainClass=举报" >举报</a> </td>
                      </tr>
                      <tr class="blue_tit" align="center">
                        <td width="16%" height="25">类型</td>
                        <td width="53%" >举报标题</td>
                        <td width="15%">举报日期</td>
                        <td width="16%" >办理状态</td>
                      </tr>
                      <%
	ComplainClass=ChkRequest(Request("ComplainClass"),0) '防注入
	set rs=server.CreateObject("ADODB.RecordSet")
	if ComplainClass="" then
	rs.Source="select top 8  * from "& db_wygkcn_Complain_Table &"  where Checked=1 order by ComplainID desc"	
	else
	rs.Source="select top 8  * from "& db_wygkcn_Complain_Table &"  where Checked=1 and ComplainClass='"&ComplainClass&"' order by ComplainID desc"	
	end if
	rs.Open rs.Source,conn,1,1
	If Not rs.eof then
	
    do until rs.Eof 
	topic=trim(rs("topic"))
	DisplayTopic=mid(Topic,1,25)
%>
<tr class="normal_tr" onmouseover="this.className='Hover_tr'" onmouseout="this.className='normal_tr'">
                        <td height="23" align=center ><%=rs("ComplainClass") %></td>
                        <td align="left" > ·<a href='wygkcn_ReadComplain.asp?ComplainID=<%=rs("ComplainID")%>' target="_blank"><%=htmlencode(DisplayTopic)%>...</a></td>
                        <td align="center"><%=year(rs("UpdateTime")) %>-<%=Month(rs("UpdateTime")) %>-<%=Day(rs("UpdateTime")) %></td>
                        <td align=center><%if trim(rs("HaveReply"))=1 then %>
                          <font color=red >已办结</font>
                          <%else%>
未办结
<%end if%></td>
          </tr>
                      <%
Rs.MoveNext
loop
else
Response.write "<tr><td bgcolor=#FFFFFF align=center valign=middle colspan=4 height=80>&nbsp;<font color=red >暂没有举报！</font></td></tr>"				
End If%>
                      <tr>
                        <td height=26 colspan=4  align=right valign=middle><a href="Complain.asp" target="_blank">更多>></a></td>
                      </tr>
        </table>
<br>
</div>
</div>
</div>
<!--右边部分结束-->
<div class=clear_float></div><!--清除浮动属性-->

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