<div class=ECHUANG_hudong>
<div class="hd_ec_title_bg"><span class="float_right"><a href="wygkcn_Conmunicate.asp" target="_blank">更多>></a></span></div>

<div class="vote_YANGHUI float_left">

<div class=vote_list>
<%if showvote="1" then%>
<table width="184" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set Rs=Conn.Execute("SELECT * FROM " & db_wygkcn_Vote_Table & " where IsChecked=1") 
If Rs.Eof Then
%>
   <tr>
     <td height="25" colspan="2" align="left">尚无任何投票调查</td>
   </tr>
<%else%>
   <tr>
     <td height="25" colspan="2" align="center" valign="middle" class="black_title"><%=rs("Title")%></td>
   </tr>
<form action="wygkcn_Vote.asp" method="post" name="research" target="newwindow" id="research">
   <tr>
     <td colspan="2" align="left">
<%
for i=1 to 8
if rs("Select"&i)<>"" then
%>
<input style=" border:0 "  <%if i=1 then%>checked<%end if%> name="Options" type="<%if Rs("SelectClass")=0 Then%>radio<%end if%>  <%if Rs("SelectClass")=1 Then%>CheckBox<%end if%>" value="<%=i%>">
<%=i%>.<%=rs("Select"&i)%><br>
<%
end if
next
%>
     </td>
   </tr>
   <tr>
     <td height="48" colspan="2" align="center">
	 <input style="cursor:hand;width:50px;height:18px;border:1px solid #bbb;background:#fff;color:#333;text-align:center;line-height:16px;" type="submit" value="提 交" id="submit1" name="submit1">
      <input onclick="javascript:vote()" type="button" value="查 看" id="button1" name="button1" style="cursor:hand;width:50px;height:18px;border:1px solid #bbb;background:#fff;color:#333;text-align:center;line-height:16px;">	 </td>
   </tr>
</form>
<%end if%>
</table>

<%
else
Response.Write "<table><tr><td align=center>管理员关闭了调查,请稍后访问！</td></tr></table>"
end if
%>

</div>

</div>
<div class="hd slide_bg float_right">
<UL class=T_Menu_style>
  <LI class=selectd id=S_MenuMy_11 onclick="openurl('wygkcn_GuestBook.asp')" onMouseOver="Show_SubLmy(1,1);return false">留言咨询 </LI>
  <LI id=S_MenuMy_12 onclick="openurl('wygkcn_LeadMail.asp')" onmouseover="Show_SubLmy(1,2); return false">校长信箱 </LI>
  <LI id=S_MenuMy_13 onclick="openurl('Complain.asp')" onMouseOver="Show_SubLmy(1,3); return false">投诉举报 </LI>
</UL>

<DIV id=S_ContMy_11>
<!--#include file="ReviewIndex.asp"-->
</div>
<DIV id=S_ContMy_12 style="DISPLAY: none">
 <table width="98%" height="88" align="center" cellpadding="0" cellspacing="0" border="1" bordercolor="#BBBBBB">
				<tr align="center" class="blue_tit">
                  <td width="16%" height="24" bgcolor="#FFFFFF">状态</td>
                  <td width="58%" bgcolor="#FFFFFF">信件标题</td>
                  <td width="26%" bgcolor="#FFFFFF" >信件日期</td>
                </tr>
                <%
Set RS=Server.CreateObject("ADODB.Recordset")
SQL ="select top 7 * from "& db_wygkcn_LeadMail_Table &"where checked=1 order by LeadMailID desc"
Rs.Open Sql,Conn,1,1

if not rs.EOF then
Do While Not Rs.EOF
topic=trim(rs("topic"))
DisplayTopic=mid(Topic,1,14)
%>
<tr class="normal_tr" onmouseover="this.className='Hover_tr'" onmouseout="this.className='normal_tr'">
                  <td height="22" align="center" ><%if trim(rs("ReplyContent"))<>"" then %>
                      已阅批
                      <%else%>
                      <font color="red" >未阅批</font>
                      <%end if%>                  </td>
                  <td align="left"> ·<a  class=list href='wygkcn_ReadLeadMail.asp?LeadMailID=<%=rs("LeadMailID")%>' target="_black"><%=htmlencode(DisplayTopic)%>..</a></td>
                  <td align="center" ><%=year(rs("UpdateTime")) %>-<%=Month(rs("UpdateTime")) %>-<%=Day(rs("UpdateTime")) %></td>
                </tr>
                <%
Rs.Movenext
Loop
Rs.Close
Set Rs=Nothing
else
Response.Write "<tr><td height=25 colspan=3 bgcolor=ffffff align=center><font color=red>暂无来信！</font></td></tr>"
End If
%>
</table>

</div>

<DIV id=S_ContMy_13 style="DISPLAY: none">
<table width="98%" align="center" cellpadding="0" cellspacing="0"  border="1" bordercolor="#BBBBBB">
				<tr align="center" class="blue_tit">
                  <td width="16%" height="24" bgcolor="#FFFFFF">状态</td>
                  <td width="58%" bgcolor="#FFFFFF">投诉举报标题</td>
                  <td width="26%" bgcolor="#FFFFFF">日 &nbsp;期</td>
                </tr>
<%
Set RS=Server.CreateObject("ADODB.Recordset")
SQL="select top 7 * from "& db_wygkcn_Complain_Table &"  where checked=1  order by ComplainID desc"
Rs.Open Sql,Conn,1,1

If Not rs.eof then
Do While Not Rs.EOF
topic=trim(rs("topic"))
DisplayTopic=mid(Topic,1,14)
%>
<tr class="normal_tr" onmouseover="this.className='Hover_tr'" onmouseout="this.className='normal_tr'">
                  <td height="22" align="center"><%if trim(rs("HaveReply"))=1 then %>
                    已办结
                    <%else%>
                   <font color="red" >未办结</font>
                   <%end if%> 
				  </td>
                  <td align="left"> ·<a  class="list" href='wygkcn_ReadComplain.asp?ComplainID=<%=rs("ComplainID")%>' target="_black"><%=htmlencode(DisplayTopic)%>..</a></td>
                  <td align="center"><%=year(rs("UpdateTime")) %>-<%=Month(rs("UpdateTime")) %>-<%=Day(rs("UpdateTime")) %></td>
                </tr>
                <%
Rs.Movenext
Loop
Rs.Close
Set Rs=Nothing
else
Response.Write "<tr><td height=25 colspan=3 bgcolor=ffffff align=center><font color=red>暂无投诉举报</font></td></tr>"
End If
%>
</table>

</div>
</div>
<div class="clear_float"></div>
</div>