www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/data/adminly.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<link href="../inc/mm.css" rel="stylesheet" type="text/css">
<%
call zwtj()
mytit="流量统计"
dim sclass
id=request("id")

select case action
case "" 
call show()
case "sdel"
call sdel()
end select
call connend()

sub sdel()
dim idstr,iid,i,j
if not Trim(Request.Form("idstr"))="" then
idstr=Trim(Request.Form("idstr"))&","
iid=split(idstr,",")
for i=0 to ubound(iid)-1
set rs=conn.execute("select * from tongji2 where fid="&iid(i))
do while not rs.eof 
conn.execute("delete * from tongji2 where fid="&iid(i))
rs.movenext
loop
next
end if
response.Redirect(url("action"))
end sub

'显示
sub show()
call record(rs,"select * from tongji order by id desc",1)
call head() 
dim sz
sz=20

call head() 
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#1E76A8">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="6" id="tit"><%= mytit %></td>
</tr>
<form action="<%= url("action") %>action=sdel" method="post" name="form1" id="form1">
<tr>
<td width="3%" height="20" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onclick="selectit()" /></td>
<td width="4%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="24%" align="center" bgcolor="#C5E0F3"><strong>当日IP数</strong></td>
<td width="23%" align="center" bgcolor="#C5E0F3"><strong>当日点击</strong></td>
<td width="19%" align="center" bgcolor="#C5E0F3"><strong>时间</strong></td>
<td width="27%" align="center" bgcolor="#C5E0F3"><strong>详细访问记录</strong></td>
</tr>
<% 
dim i
i=sz
dim bgc
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor="<%= bgc %>" onmouseover="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onmouseout="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1)" /></td>
<td align="center"><%= rs("id") %>&nbsp;</td>
<td align="center"><span class="fontr"><%= rs("tj") %></span></td>
<td align="center"><%= rs("lll") %></td>
<td align="center"><%= rs("mytime") %></td>
<td align="center"><% 
dim rs1
set rs1=conn.execute("select count(*) as tol from tongji2 where fid="&rs("id"))
Response.Write("<a href=""adminly2.asp?fid="&rs("id")&""">详细IP记录[<span class=""fontr"">"&rs1("tol")&"</span>]条</a>")
%></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr>
<td height="25" colspan="6" bgcolor="#C5E0F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11%"><input name="del" type="submit" id="del" onclick="syscz()" value="删除IP记录" class="button_1" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
<td width="89%" align="right"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table>
<% 
call recordend(rs)
call foot() 
end sub
%>