📄 fydetal.asp
字号:
<!--#include file="top.asp" -->
<%
'******************************
'
' 『头发乱了』访客单用户统计系统
' 张金义 2001_jinge@sohu.com
' http://www.99321.com
'
' 版权所有:哈哈大侠
'
'******************************
%>
<BODY aLink=#90d5e5 bgColor=#ffffff link=#90d5e5 text=#666666 topMargin=0
vLink=#90d5e5>
<DIV align=center><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0
style="COLOR: #272727; FONT-SIZE: 10pt">
<TBODY>
<TR>
<TD height=18 width=18><IMG height=18 src="img/t-ani2-a1.gif" width=18></TD>
<TD background=img/t-ani2-a2.gif></TD>
<TD height=18 width=26><IMG height=18 src="img/t-ani2-a3.gif" width=26></TD></TR>
<TR>
<TD background=img/t-ani2-a4.gif></TD>
<TD bgColor=#ffffff height=350 width=600 ><div align="center">
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 style="border-collapse: collapse" align=center >
<tr>
<td colspan="5" align="center" <%=hColor1%> class=tdc1 height="23">详细记录</td>
</tr>
<tr class=tdc1 >
<td height="22" width="22%" <%=hColor2%>>
<p align="center" >时间 </td>
<td height="22" width="12%" <%=hColor2%>>
<p align="center">操作系统</td>
<td <%=hColor2%> height="20" width="10%">
<p align="center">浏览器</td>
<td height="22" width="15%" <%=hColor2%>>
<p align="center">来访ip</td>
<td height="22" width="40%" <%=hColor2%>>
<p align="center">来源地址</td>
</tr>
<% page=request.querystring("page")
if page="" then
page=1
end if
pages = ""&t_page&""
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select fwindows,ftime,fcome,fip,fsystem from fcount 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 bgcolor=<%=tcolor2%> height="22" width="22%"><%=rs("ftime")%></td>
<td class=tdc bgcolor=<%=tcolor2%> height="22" width="12%"><%=rs("fwindows")%></td>
<td class=tdc bgcolor=<%=tcolor2%> height="22" width="10%"><%=rs("fsystem")%></td>
<td class=tdc bgcolor=<%=tcolor2%> height="22" width="15%"><%=rs("fip")%></td>
<td class=tdc bgcolor=<%=tcolor2%> height="22" width="40%"><a href='<%=rs("fcome")%>' target=_blank><%=rs("fcome")%></a></td>
</tr>
<% rs.movenext
rcount1=rcount1+1
loop
set rs=nothing%>
<tr align="left">
<td colspan="5" bgcolor=<%=tColor1%> class=tdc > <a href=?page=1><<</a>
<% for i=pagestart to pageend
if i=0 then
i=1
end if
strurl="<a href=?page="&i&">["&i&"]</a>"
response.write strurl
response.write " "
next
%><a href=?page=<%=maxpagecount%>>>></a> ..页次:<%=page%>/<%=maxpagecount%>页 每页:<%=pages%> 总访问人数:<%=rcount%></td></tr>
<%end if%>
</table>
</div><!--#include file="bq.asp" -->
</TD>
<TD background=img/t-ani2-a5.gif></TD></TR>
<TR>
<TD height=26 width=18><IMG height=26 src="img/t-ani2-a6.gif" width=18></TD>
<TD background=img/t-ani2-a7.gif></TD>
<TD height=26 width=26><IMG height=26 src="img/t-ani2-a8.gif" width=26></TD></TR></TBODY></TABLE></DIV>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -