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") %> </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 %>