<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<HEAD>

<TABLE width="83%" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#e3e3e3></TD>
    <TD width=705 valign="top">
      <DIV align=center>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=1></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=1></TD></TR></TBODY></TABLE>
      <TABLE height=30 cellSpacing=0 cellPadding=0 width=804 
      background=Admin_Images/main_bg.gif border=0>
        <TBODY>
        <TR>
          <TD width="804" bgcolor="#0066CC">留言信息管理：</TD>
        </TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=1></TD></TR></TBODY></TABLE>
      <div align="center">
      <TABLE cellSpacing=1 cellPadding=5 width=715 
      bgColor=#cdcdcd border=0>
        <TBODY>
        <TR bgColor=#fafafa>
          <TD width="703" height=80>
          <div align=center>
            <table width="772" height="252" border="1" cellpadding="0" cellspacing="0" bordercolor="#666666" id="table4">
				<tr>
					<td height="19" colspan="4" align="center" bgcolor="#0066CC">&nbsp;</td>
					</tr>
<%
 Set rs = Server.CreateObject("ADODB.RecordSet") 
 Sql = "select * from YuQaIFS_Feedback where Feedback_fs = 'send' order by Feedback_id desc"
 Rs.Open sql,conn,1,3
 If not rs.eof then
   If not isempty(request("page")) then   
    pagecount=cint(request("page"))   
   else   
    pagecount=1
   end if
   Rs.pagesize=150
   Rs.AbsolutePage=pagecount
   do while not Rs.eof
   i=i+1
%>
				<tr>
				  <td bgcolor="#F0F0F0" align="center" height="28"><div align="left"><font color="#000000">编号</font>: 　 </div></td>
				  <td bgcolor="#F0F0F0" align="center" height="28"><div align="left"><%=Rs("Feedback_id")%></div></td>
				  <td colspan="2" rowspan="4" align="center" bgcolor="#F0F0F0">&nbsp;</td>
				  </tr>
				<tr>
				  <td bgcolor="#F0F0F0" align="center" height="33"><div align="left"><font color="#000000">留言时间</font>:　</div></td>
				  <td bgcolor="#F0F0F0" align="center" height="33"><div align="left"><%=Rs("Feedback_phone")%></div></td>
				  </tr>
				<tr>
				  <td bgcolor="#F0F0F0" align="center" height="29"><div align="left"><font color="#000000">留言者IP</font>:　</div></td>
				  <td bgcolor="#F0F0F0" align="center" height="29"><div align="left"><%=Rs("Feedback_address")%></div></td>
				  </tr>
				<tr>
				  <td bgcolor="#F0F0F0" align="center" height="28"><div align="left"><font color="#000000">留言状态</font>:　</div></td>
				  <td bgcolor="#F0F0F0" align="center" height="28"><div align="left">
				    <% Select Case Rs("Feedback_zt")
					Case 0
					  response.write "<font color=#FF0000><b>未读</b></font>"
					Case 1
					  response.write "<b>已读</b>"
					End Select%>
				    </div></td>
				  </tr>
				<tr>
					<td width="105" bgcolor="#F0F0F0" align="center" height="54"><div align="left"><font color="#000000">留言标题</font>:　</div></td>
					<td width="486" height="54" align="center" bgcolor="#F0F0F0"><div align="left"><font color="#FF0000"><%=Rs("Feedback_title")%></font></a></div></td>
					<td height="54" colspan="2" align="center" valign="bottom" bgcolor="#F0F0F0">
					  <div align="left"><a href="Admin_Action.asp?Action=1&id=<%=Rs("Feedback_id")%><% If Rs("Feedback_zt") = 0 Then Response.write "&zt=w" End if%>">删除</a></div></td>
					</tr>
<%
 If i>=Rs.pagesize Then exit do
 Rs.movenext
 loop
 Else
%>
				<tr>
					<td bgcolor="#F0F0F0" align="center" colspan="4" height="23"><div align="left">暂无留言</div></td>
				</tr>
<%
 End If
%>
				<tr>
					<td bgcolor="#0066CC" align="center" colspan="3" height="20">
				<p>每一页显示<font color="#FF0000"><b><%=Rs.pagesize%></b></font>条纪录 共有<font color="#FF0000"><b><%=Rs.recordcount%></b></font>条纪录 目前在第<font color="#FF0000"><b><%=CINT(pagecount)%></b></font> 页                      
                        <% if pagecount=1 and Rs.pagecount<>pagecount and Rs.pagecount<>0 then%>
                        <a href="">下一页</a>                      
                        <% end if %>                      
                        <% if Rs.pagecount>1 and Rs.pagecount=pagecount then %>                      
                        <a href="">上一页</a>                      
                        <%end if%>                      
                        <% if pagecount<>1 and Rs.pagecount<>pagecount then%>                      
                        <a href="">上一页</a> <a href="">下一页</a>                      
                        <% end if %>
                	</td>
					<td bgcolor="#0066CC" align="center" height="20" width="161">
					<font color="#800000"><b>
					<a href="Admin_Action.asp?Action=6">清空留言					</a></b></font></td>
				</tr>
			</table>
			</div>			</TD>
          </TR>
        <TR bgColor=#fafafa>
          <TD bgColor=#f0f0f0 height=24>&nbsp;</TD>
        </TR></TBODY></TABLE></div>
<BR></DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%
 Rs.close
 Set rs = nothing
%>  