家庭/个人应用

开发平台：
ASP/ASPX

rizhi.asp：源码内容
							<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<!--#include file="../checkpost.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="inc/Admin_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 leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top1.asp"-->
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="100%"><table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table></td>
  </tr>
 <tr><td width="100%" align="center">   
<form method=Post action="rizhi.asp" name=forms>
        <table border="0" cellspacing="1" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="2" class="border">
          <tr bgcolor="#429AEF"> 
            <td width="43" height="20" align="center" bgcolor="#429AEF"><STRONG><font color="#FFFFFF">ID</font></STRONG></td>
      
            <td width="126" align="center"><strong><font color="#FFFFFF">内容/用户名</font></strong></td> 
            <td width="137" align="center" widht=46><font color="#FFFFFF"><strong>IP</strong></font></td>
            <td width="151" align="center" widht=46><font color="#FFFFFF"><strong>日期</strong></font></td>
            <td width="129" align="left"> 
              <input name=chkall onClick=CheckAll(document.forms.chkall.checked) type=checkbox value=on>
              <font color="#FFFFFF"><strong>全 选 / </strong></font><strong><a href="javascript:OnDelete()"><font color="#FFFFFF">删 
              除</font></a> </strong></td> 
      </tr> 
         
          <tr> 
            <td height="20" colspan="5" align="center" class="tdbg"> 
              <%
    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,"rizhi.asp" 
            		showContent 
            		showpage totalput,MaxPerPage,"rizhi.asp" 
       		else 
          		if (currentPage-1)*MaxPerPage<totalPut then 
            			rs.move  (currentPage-1)*MaxPerPage 
            			dim bookmark 
            			bookmark=rs.bookmark 
           			showpage totalput,MaxPerPage,"rizhi.asp" 
            			showContent 
             			showpage totalput,MaxPerPage,"rizhi.asp" 
        		else 
	        		currentPage=1 
           			showpage totalput,MaxPerPage,"rizhi.asp" 
           			showContent 
           			showpage totalput,MaxPerPage,"rizhi.asp" 
	      		end if 
	   	end if 
 
   	end if 
	         
   
   
   	sub showContent 
       	dim i 
	   i=0 
%>
            </td> 
      </tr> 
      <%do while not rs.eof%> 
         
          <tr> 
            <td height="11" width="43" class="tdbg"> 
              <p align="center"><%=rs("trackID")%> 
      </td> 
            <td width="126" class="tdbg"> 
              <p align=center><%=rs("user")%></p> 
      </td> 
            <td width="137" class="tdbg"> 
              <p align="center"><strong><font color="#FF3333"><%=rs("ip")%></font></strong></td> 
            <td width="151" class="tdbg"> 
              <p align=center><%=rs("postdate")%></p>
      </td> 
            <td width="129" class="tdbg"> 
              <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 align="center" class="tdbg"> 
            <td height="11" colspan="5"> 
              <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 %>

						