<!--#include file="../Inc/Config.asp" -->
<!--#include file="Admin_Check.asp" -->
<!--#include file="../Inc/AdminClass.asp" -->
<!--#include file="../Inc/UbbCode.asp" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../Inc/edit.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#5578b8" leftmargin="0" topmargin="2">
<%
If request.form("subimt")<>"" then
DIM url,ARR,id
	url=replace(Request.ServerVariables("HTTP_REFERER"),"page=","")
	id=request.form("id")
	if id="" then
		Response.write"<script>location.href='"&url&"';</script>"		
		response.end
	end if
	conn.execute "delete from Tb_Reply where Reply_id in ("&id&")"
	Response.write"<script>alert('操作成功!');location.href='"&url&"';</script>"		
	Response.End
End if
%>
<SCRIPT language=javascript src="../inc/js.js"></SCRIPT>
<table width=100%  border=0 align="center" cellpadding=0 cellspacing=1 bgcolor=#5578b8>
  <tr><td><table width="100%" height="25" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr> 
    <td bgcolor="#FFFFFF">
<div align="center"><strong>回复管理</strong></div></td>
                        </tr>
                      </table></td></tr>
  <tr> 
    <td align=center valign="top" bgcolor=#f0f5f9> 
      <table width="100%" border="0">
        <tr> 
          <td valign="top"><form name="form1" method="post" action="">
              <table width="100%" border="0" cellpadding="2" cellspacing="1">
<%
dim pages,sql,Blog_List,rscount,iii
Pages = Request.QueryString("page")
If Not IsNumeric(Pages) Or Pages = "" Then
	Pages = 1
Else
	Pages = CLng(Pages)
End If

dim sqlstr
sqlstr="select * from Tb_Reply Order by Reply_ID Desc"
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sqlstr,Conn, 1, 1
SqlCount=SqlCount+1
if rs.bof and rs.eof then
	response.write("<tr><td height=25 colspan=4><div align=center>No Reply</div></td></tr>")
else
rs.PageSize = 25
rs.AbsolutePage = pages
rscount=rs.RecordCount
Blog_List=rs.getrows(25)
for iii=0 to Ubound(Blog_List,2)
%>
                <tr>
                  <td height="25" colspan="4" bgcolor="#FFFFFF">
<input name="id" type="checkbox" id="id" value="<%=Blog_List(0,iii)%>">
                    <%=Blog_List(5,iii)%> BY [ <%=Blog_List(4,iii)%> ] 时间 [ <font color="#FF0000"> 
                    <%=Blog_List(7,iii)%> </font>] IP [ <font color="#FF0000"><%=Blog_List(8,iii)%></font> 
                    ]</td>
                </tr>
                <tr> 
                  <td height="25" colspan="4"><div align="left" class="bian"><%=UBBCode(Blog_List(6,iii))%></div></td>
                </tr>
<%
Next
Rs.close:Set Rs=nothing
%>
                <tr> 
                  <td height="25" colspan="4"> <div align="center"> 
                      <INPUT name=all type=button id="all" onclick=CheckAll(this.form) value=全选>
<INPUT name=sall type=button id="sall" onclick=CheckOthers(this.form) value=反选>
                      <input name="Submit" type="reset" class="in" value="重置">
                      <INPUT name=subimt type=submit class="in" id="subimt" onClick="return ConfirmDel();" value=删除>
                    </div>
                    </td>
                </tr>
                <tr> 
                  <td height="25" colspan="4"><div align="center"> 
                      <%call pagelist(rscount,pages,25)%>
                    </div></td>
                </tr>
                <%
			  end if
			  %>
              </table>
            </form></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
<div align="center"><%Set Adminobj=Nothing:Set Cblogobj=Nothing%></div>
</body>
</html>
