📄 log.asp

📁 网上流行的MOVE站点
💻 ASP
字号:
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日志管理</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="../css/style.css">
<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>
<table border="0" width="600" cellspacing="0" cellpadding="0" align="center">
  <tr>
<td width="600" align="center"><font color=ffffff><b>影院后台等录情况</b></font>
</td></tr>
 <tr><td width="600" align="center">   
<form method=Post action="log.asp" name=forms>
      <table border="0" cellspacing="1" width="600" 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 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 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> 
</body> 
</html>
	<%rs.close 
	set rs=nothing   
   	conn.close 
   	set conn=nothing %>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -