<!--#include file="connn.asp"-->
<!--#include file="cookies.asp"-->
<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag<9 then
response.Write "<script LANGUAGE='javascript'>alert('您的级别无法操作此功能！');window.location='right.asp';</script>"
response.end
end if
if flag=10 then
response.Write "<script LANGUAGE='javascript'>alert('您只是后台测试员，请注意身份！');window.location='right.asp';</script>"
response.end
end if%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日志管理</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<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>

<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 sql
   	dim rs
%>

<body bgcolor=336699>
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
<td width="100%" align="center" height="25" bgcolor="#CC3300">
<font color=ffffff><b>后台等录情况</b></font>
</td></tr>
 <tr><td width="100%" align="center">   
<form method=Post action="log.asp" name=forms>
      <table border="0" cellspacing="1" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="2">
      <tr bgcolor="#F3F5F5">
      <td align="center">ID</td>
      
 <td align="center">用户名/内容</td> 
 <td align="center">IP</td>
 <td align="center">日期</td>
 <td align="center"><input name=chkall onClick=CheckAll(document.forms.chkall.checked) type=checkbox value=on>全 选 / <a href="javascript:OnDelete()">删 除</a> 
      </td> 
      </tr> 
         
      <tr bgcolor="#F3F5F5"> 
           
      <td colspan="5" align="center" height="20" width="622"> 
      <%
    sql="select * from FOX_count order by postdate desc" 
	Set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1 
 
  	if rs.eof and rs.bof then 
       		response.write "<p align='center'> 没有日志 </p>" 
   	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,"log.asp" 
            		showContent 
            		showpage totalput,MaxPerPage,"log.asp" 
       		else 
          		if (currentPage-1)*MaxPerPage<totalPut then 
            			rs.move  (currentPage-1)*MaxPerPage 
            			dim bookmark 
            			bookmark=rs.bookmark 
           			showpage totalput,MaxPerPage,"log.asp" 
            			showContent 
             			showpage totalput,MaxPerPage,"log.asp" 
        		else 
	        		currentPage=1 
           			showpage totalput,MaxPerPage,"log.asp" 
           			showContent 
           			showpage totalput,MaxPerPage,"log.asp" 
	      		end if 
	   	end if 
 
   	end if 
	         
   
   
   	sub showContent 
       	dim i 
	   i=0 
%> 
           
      </td> 
      </tr> 
      <%do while not rs.eof%> 
         
      <tr> 
           
      <td bgcolor="#F3F5F5"> 
      <p align="center"><%=rs("trackID")%> 
      </td> 
      <td bgcolor="#F3F5F5"> 
      <p align=center><%=rs("user")%></p> 
      </td> 
      <td bgcolor="#F3F5F5">
      <p align="center"><strong><font color="#FF3333"><%=rs("ip")%></font></strong></td> 
      <td bgcolor="#F3F5F5">
      <p align=center><%=rs("postdate")%></p>
      </td> 
      <td bgcolor="#F3F5F5"> 
      <p align="center"> 
       <input type='checkbox' name='selAnnounce' value='<%=cstr(rs("trackID"))%>'> 
      </td> 
      </tr>						    <% 
	i=i+1 
	      if i>=MaxPerPage then exit do 
	      rs.movenext 
	loop 
%> 
      <tr bgcolor="#F3F5F5" align="center"> 
      <td height="11" colspan="5" width="600"> 
      <DIV align="center"> 
       <CENTER> 
       <p></p>
       </CENTER> 
      </DIV> 
      <% 
   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 
  response.write "<p align='center'>&nbsp;" 
  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 FOX_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></td> 
  </tr> 
</table> 
</div>
</body> 
</html>
	<%rs.close 
	set rs=nothing   
   	conn.close 
   	set conn=nothing %>
</body>
</html></body></html>