<!--#include file="Conn.asp"-->
<!--#include file="cookies.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>狗扑社区 www.gope.cn</title>
<LINK href="images/Admin_css.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript>
<!--

function CheckAll(v)
	{
		var i;
		for (i=0;i<document.forms.elements.length;i++)
		{
			var e = document.forms.elements[i];
		        e.checked = v;
		}
	}
	
function OnDelete()
 {
		var del, a, i;
		del = new String("");
		for(i = 0; i < document.forms.elements.length ; i ++)
		{
			var e = document.forms.elements[i];
			if(e.name == 'selAnnounce')
			{
			   if ( e.checked == true)
			   {
		   		a = e.value;
				del = del + a + ";";
			   }
			};
		}

 if(del == "")
		{
			alert("请选择要删除的日志")

		}
else
		{
	if(confirm("确定要删除吗?")==true)

 {

document.forms.submit();
		}
		}
	}
//-->
</SCRIPT>
</head>
<%
   	const MaxPerPage=20
   	dim totalPut   
   	dim CurrentPage
   	dim TotalPages
   	dim i,j
   	dim idlist
   	dim title

	title=request("txtitle")
   	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
  	if not isempty(request("selAnnounce")) then
     		idlist=request("selAnnounce")
     		if instr(idlist,",")>0 then
			dim idarr
			idArr=split(idlist)
			dim id
		for i = 0 to ubound(idarr)
	       		id=clng(idarr(i))
	       		call deleteannounce(id)
		next
     		else
			call deleteannounce(clng(idlist))
     		end if
  	end if 

   	dim rs
%>
<body>
<form method=Post action="sd_log.asp" name=forms>
<table height="1" border="0" cellpadding="3" cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="5" class="admintitle">后台等录情况</td>
  </tr>
  <tr>
<td height="30" align="center" bgcolor="#FFFFFF">ID</td>
 <td align="center" bgcolor="#FFFFFF">用户名/内容</td> 
 <td align="center" bgcolor="#FFFFFF">IP</td>
 <td align="center" bgcolor="#FFFFFF">日期</td>
 <td align="center" bgcolor="#FFFFFF"><input name=chkall onClick=CheckAll(document.forms.chkall.checked) type=checkbox value=on>全 选 / <a href="javascript:OnDelete()">删 除</a> </td> 
</tr>
  <tr>
<td height="30" align="center" bgcolor="#FFFFFF" colspan="5"><%
    sql="select * from sd_count order by sd_postdate desc" 
	Set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1 
 
  	if rs.eof and rs.bof then 
       		response.write "没有日志" 
   	else 
      		totalPut=rs.recordcount 
      		if currentpage<1 then 
          		currentpage=1 
      		end if 
      		if (currentpage-1)*MaxPerPage>totalput then 
	   		if (totalPut mod MaxPerPage)=0 then 
	     			currentpage= totalPut \ MaxPerPage 
	  		else 
	      			currentpage= totalPut \ MaxPerPage + 1 
	   		end if 
 
      		end if 
       		if currentPage=1 then 
           		showpage totalput,MaxPerPage,"sd_log.asp" 
            		showContent 
            		showpage totalput,MaxPerPage,"sd_log.asp" 
       		else 
          		if (currentPage-1)*MaxPerPage<totalPut then 
            			rs.move  (currentPage-1)*MaxPerPage 
            			dim bookmark 
            			bookmark=rs.bookmark 
           			showpage totalput,MaxPerPage,"sd_log.asp" 
            			showContent 
             			showpage totalput,MaxPerPage,"sd_log.asp" 
        		else 
	        		currentPage=1 
           			showpage totalput,MaxPerPage,"sd_log.asp" 
           			showContent 
           			showpage totalput,MaxPerPage,"sd_log.asp" 
	      		end if 
	   	end if 
 
   	end if 
	         
   
   
   	sub showContent 
       	dim i 
	   i=0 
%></td>
</tr>
      <%do while not rs.eof%> 
  <tr>
<td height="30" align="center" bgcolor="#FFFFFF"><%=rs("trackID")%></td>
 <td align="center" bgcolor="#FFFFFF"><%=rs("sd_user")%></td> 
 <td align="center" bgcolor="#FFFFFF"><strong><font color="#FF3333"><%=rs("sd_ip")%></font></strong></td>
 <td align="center" bgcolor="#FFFFFF"><%=rs("sd_postdate")%></td>
 <td align="center" bgcolor="#FFFFFF"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("trackID"))%>'></td> 
</tr>
<% 
	i=i+1 
	      if i>=MaxPerPage then exit do 
	      rs.movenext 
	loop 
%> 
  <tr>
<td height="30" align="center" bgcolor="#FFFFFF" colspan="5">
<% 
   end sub  
 
function showpage(totalnumber,maxperpage,filename) 
  dim n 
  if totalnumber mod maxperpage=0 then 
     n= totalnumber \ maxperpage 
  else 
     n= totalnumber \ maxperpage+1 
  end if 

  if CurrentPage<2 then 
    response.write "首页 上一页</font>&nbsp;" 
  else 
    response.write "<a href="&filename&"?page=1&pl="&request("pl")&">首页</a>&nbsp;" 
    response.write "<a href="&filename&"?page="&CurrentPage-1&"&pl="&request("pl")&">上一页</a>&nbsp;" 
  end if 
  if n-currentpage<1 then 
    response.write "下一页 尾页</font>" 
  else 
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&pl="&request("pl")&">" 
    response.write "下一页</a> <a href="&filename&"?page="&n&"&pl="&request("pl")&">尾页</a>" 
  end if 
   response.write "&nbsp;页次：</font><strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页</font> " 
    response.write "&nbsp;共<b>"&totalnumber&"</b>条 <b>"&maxperpage&"</b>条/页</font> " 
           
end function       

 sub deleteannounce(id) 
    dim sql,deletefile  
    sql="delete from sd_count where trackID="&cstr(id) 
    conn.execute sql
    if err.Number<>0 then 
	err.clear 
	response.write "删 除 失 败 !<br>" 
    end if 
  End sub 
%>
</td>
</tr>
</table>
</form>
<%rs.close 
set rs=nothing   
conn.close 
set conn=nothing %>
<!--#include file="sd_copy.asp"-->
</body>
</html>
