📄 fydetal.asp
字号:
<HTML><HEAD><TITLE>中华健康网--免费网站流量分析系统</TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="Generator" CONTENT="免费统计,计数器,免费计数器,流量统计">
<META NAME="Author" CONTENT="免费统计,计数器,免费计数器,流量统计">
<META NAME="Keywords" CONTENT="免费统计,计数器,免费计数器,流量统计,htm,asp,sql,mssql">
<META NAME="Description" CONTENT="免费统计,计数器,免费计数器,流量统计">
<link rel="stylesheet" href="images/css.css" type="text/css"></HEAD><BODY bgColor=#e1e1e1 topMargin=60>
<TABLE width=569 height=471 border=0 align="center" cellPadding=0 cellSpacing=0
borderColor=#111111 class=ttbb
style="BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; BORDER-LEFT: 1px dotted; BORDER-BOTTOM: 1px dotted; BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD style="POSITION: relative" width=569 bgColor=#ffffff colSpan=3 height=45><div id="9126" style="position:absolute; left:0px; top:-31px; border-style:none;"><img src="images/logo.gif" width="560" height="78" border="0"></div></TD>
</TR>
<tr align="center">
<td width=569 height=24 colspan=3 bgcolor=#0374b8>
<!--#include file="head.asp" -->
<%if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if
if errornum<>1 then%>
</td>
</tr>
<TR>
<TD width=569 colspan="3" vAlign=top bgColor=#66ccff><div align="center">
<div align="center">
<table width=98% border=0 align=center cellPadding=0 cellSpacing=0 style="border-collapse: collapse" >
<tr>
<td colspan="5" align="center" class=tdc1 height="23"><strong><font color="#990000">详细记录(只显示最新
<%=scount%> 条记录)</font></strong></td>
</tr>
<tr class=tdc1 >
<td height="22" width="21%"> <p align="center" >时间 </td>
<td height="22" width="13%"> <p align="center">操作系统</td>
<td height="20" width="10%"> <p align="center">浏览器</td>
<td height="22" width="15%"> <p align="center">来访ip</td>
<td width="41%" height="22"> <p align="center">来源地址</td>
</tr>
<% page=request.querystring("page")
if page="" then
page=1
end if
pages = ""&t_page&""
sqlt = "select count(*) as tt from fcount where fuser='"&view&"'"
set rst=conn.execute(sqlt)
tt=rst("tt")
set rst=nothing
if tt>scount then
for i=1 to (tt-scount)
strsql = "delete from fcount where fid =(select min(fid) from fcount where fuser='"&view&"')"
conn.Execute (strsql)
next
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select fwindows,ftime,furl,fip,fsystem from fcount where fuser='"&view&"' order by ftime desc"
rs.Open sql,conn,1,1
rs.pagesize = pages
if not(rs.eof or rs.bof) then
maxpagecount=rs.pagecount
rs.absolutepage = page
rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
do while not rs.eof and rcount1 <rs.pagesize
%>
<tr>
<td class=tdc height="22" width="21%"><%=rs("ftime")%></td>
<td class=tdc height="22" width="13%"><%=rs("fwindows")%></td>
<td class=tdc height="22" width="10%"><%=rs("fsystem")%></td>
<td class=tdc height="22" width="15%"><%=rs("fip")%></td>
<td class=tdcheight="22"><a href='<%=rs("furl")%>' target=_blank><%=rs("furl")%></a></td>
</tr>
<% rs.movenext
rcount1=rcount1+1
loop
set rs=nothing%>
<tr align="left">
<td colspan="5" class=tdc > <a href=<%=url1%>page=1><<</a>
<% for i=pagestart to pageend
if i=0 then
i=1
end if
strurl="<a href="&url1&"page="&i&">["&i&"]</a>"
response.write strurl
response.write " "
next
%>
<a href=<%=url1%>page=<%=maxpagecount%>>>></a> ..页次:<%=page%>/<%=maxpagecount%>页
每页:<%=pages%> 总访问人数:<%=rcount%></td>
</tr>
<%end if%>
</table>
</div>
<%else%>
<!--#include file="error.asp" -->
<%end if%>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -