<!--#include file=CONN.ASP-->
<!--#include file=../config.asp-->
<!--#include file=cookies.asp-->
<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag<8 then
response.Write "<script LANGUAGE='javascript'>alert('你目前的级别不允许此操作！');history.go(-1);</script>"
response.end
end if
%>
<link href="images/fox.css" rel="stylesheet" type="text/css">
<style type=text/css>
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY: "宋体", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #CCCC99; 
	scrollbar-highlight-color: #CC9933; 
	scrollbar-arrow-color: #FFFFFF; 
	scrollbar-base-color: #CC9933
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#111111; text-decoration:none; }
a:hover { color:#384780;text-decoration:underline; }
.sec_menu { border-left:2px solid #CC3300; border-right:2px solid #CC3300; border-bottom:2px solid #CC3300; overflow:hidden; background:#ffffff; }
.menu_title {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title span { position:relative; top:2px; left:8px; color:#FFFF00; font-weight:bold; }
.menu_title2 {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#FEFEFE; font-weight:bold; }
input,select,Textarea{
font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
</style>
<%
dim ts,rsbo,sqlbo
dim ThisPage,Pagesize,Allrecord,Allpage,tj
ts=trim(request("ts"))
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
%>
<table border="0" width="100%" id="table3" cellspacing="1">
						<tr>
							<td bgcolor="#CC3300" height="40" width="24%" align="center">
							<p align="center">
							<b>
							<font color="#FFFFFF">&nbsp;<a href="userhf.asp"><span style="text-decoration: none"><font color="#FFFFFF">所有回复</font></a></span></font></b></td>
							<td bgcolor="#CC3300" height="40" width="25%" align="center">
							<a href="userhf.asp?ts=1"><span style="text-decoration: none"><font color="#FFFFFF">信息回复</font></span></a></td>
							<td bgcolor="#CC3300" height="40" width="25%" align="center">
							<font color="#FFFFFF">&nbsp;</font><a href="userhf.asp?ts=2"><span style="text-decoration: none"><font color="#FFFFFF">张贴回复</font></span></a></td>
							<td bgcolor="#CC3300" height="40" width="25%" align="center">
							<font color="#FFFFFF">&nbsp;</font><a href="userhf.asp?ts=3"><span style="text-decoration: none"><font color="#FFFFFF">商品回复</font></span></a></td>
						</tr>
						<tr>
							<td bgcolor="#FFFFFF" height="40" colspan="4">
            <%
tj=1
set rsbo=server.createobject("adodb.recordset")
Select Case ts
Case "1"
sqlbo="select * from FOX_hf where ts=0 order by hfsj desc"
Case "2"
sqlbo="select * from FOX_hf where ts=1 order by hfsj desc"
Case "3"
sqlbo="select * from FOX_hf where ts=3 order by hfsj desc"
Case Else
sqlbo="select * from FOX_hf order by hfsj desc"
End Select
rsbo.open sqlbo,conn,1,1
rsbo.Pagesize=5
Pagesize=rsbo.Pagesize
Allrecord=rsbo.Recordcount
Allpage=rsbo.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsbo.move (ThisPage-1)*Pagesize
if rsbo.eof then
response.write "还没有回复！"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169">

            <%do while not rsbo.eof%>
            <tr bgcolor="#CCCCCC">
              <td colspan="5" height="1"></td>
            </tr> 
                       <tr valign="middle" bgcolor="#F7F7F7">
              <td height="21" colspan="2" class="p10t" bgcolor="#D9EBE5">
				<p align="center">
				<a href="userhfdel.asp?id=<%=rsbo("id")%>"><span style="text-decoration: none"><font color="#008080">删除它</font></span></a></td>
              <td height="21" colspan="3" class="p10t" bgcolor="#D9EBE5"><strong style="font-weight: 400"><%if rsbo("ts")=0 then%><a href="../xinxiinfo.asp?fox=<%=rsbo("xxid")%>">信息对应</a><%elseif rsbo("ts")=1 then%><a href="../adinfo.asp?fox=<%=rsbo("xxid")%>">张贴对应</a><%else%><a href="../shopinfo.asp?fox=<%=rsbo("xxid")%>">商品对应</a><%end if%><font color="#cc0000"> &nbsp;</font></strong>回复时间：<font color="#666666"><%=rsbo("hfsj")%></font></td>
            </tr>

            <tr>
              <td height="36" width="4%" class="p9t" bgcolor="#F5F5F5">
				<p align="right">
				　</td>
              <td height="36" class="p9t" bgcolor="#F5F5F5" colspan="2">
				内容：</td>
              <td height="37" width="40%" class="index_bk2"><%=rsbo("neirong")%>
 </td>
              <td height="37" width="40%" class="index_bk2"><%if IsNull(rsbo("hfneirong")) then%><font color="#FF0000">发布者未应答</font><%else%><%=rsbo("hfneirong")%><%end if%>
</td>
            </tr>

			<%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsbo.movenext
        loop
        %>

            </table>

				<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse" id="table170">
                <tr>
                  <td height="25" width="151" class="p9t"><p align="center"> 共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
                  <td height="25" width="126" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="25" width="118" class="p9t"><p align="center">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
                  <td height="25" width="187" class="p9t"><p align="center">
 <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&ts="&ts&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&ts="&ts&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&ts="&ts&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&ts="&ts&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsbo.close
 set rsbo=nothing%>       

 </td>
						</tr>
					</table></body></html>