📄 fvisitor.asp
字号:
<!-- #include file="ConnStatData.asp" -->
<!-- #Include File="CheckAdmin.asp"-->
<%
Response.Expires=0
Dim Rows,i
Sql="Select Top 30 * From Visitor Order By Id DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
Assay=Rs.GetRows
Rows=Ubound(Assay,2)
Else
Rows=-1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>
<HTML>
<HEAD>
<TITLE>网站统计分析系统</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="../admin/images/admin.css">
</HEAD>
<%
Dim SERVER_NAME
SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
if Instr(session("AdminPurview"),"|40,")=0 then
response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
response.end
end if
'========判断是否具有管理权限
%>
<BODY>
<div align="center">
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
<tr>
<th colspan="8">网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表</th>
</tr>
<tr>
<td align="center" class="forumrow"><a href="Infolist.asp">统计概况</a></td>
<td align="center" class="forumrow"><a href="FVisitor.asp">最近访问</a></td>
<td align="center" class="forumrow"><a href="StatYear.asp">年 报 表</a></td>
<td align="center" class="forumrow"><a href="StatMonth.asp">月 报 表</a></td>
<td align="center" class="forumrow"><a href="StatWeek.asp">周 报 表</a></td>
<td align="center" class="forumrow"><a href="StatDay.asp">日 报 表</a></td>
<td align="center" class="forumrow"><a href="History.asp">历史报表</a></td>
<td align="center" class="forumrow"><a href="Rereg.asp">修改信息</a></td>
</tr>
<tr>
<td align="center" class="forumrow"><a href="FArea.asp">地区分析</a></td>
<td align="center" class="forumrow"><a href="FAddress.asp">地址分析</a></td>
<td align="center" class="forumrow"><a href="FIptwo.asp">IP 地 址</a></td>
<td align="center" class="forumrow"><a href="Fweburl.asp">链接页面</a></td>
<td align="center" class="forumrow"><a href="FCounter.asp">访问次数</a></td>
<td align="center" class="forumrow"><a href="FSystem.asp">操作系统</a></td>
<td align="center" class="forumrow"><a href="FBrowser.asp">浏 览 器</a></td>
<td align="center" class="forumrow"><a href="FScreen.asp">屏幕大小</a></td>
</tr>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
<tr>
<th colspan="4">最近30位访问者信息分析</th>
</tr>
<tr>
<td width="15%" class="title">访问日期</td>
<td width="15%" class="title">访问时间</td>
<td width="15%" class="title">所在地址</td>
<td width="55%" class="title">链接页面</td>
</tr>
<%for i=0 to Rows
Exfor=Exfor+1%>
<tr onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
<td class="forumrowhighlight"><%=Assay(1,i)%></td>
<td class="forumrowhighlight"><%=FormatDateTime(Assay(2,i),4)%></td>
<td class="forumrow"><%=Assay(4,i)%></td>
<td class="forumrowhighlight"><% If Assay(8,i)="直接输入或书签导入" Then%>
<%=Left(Assay(8,i),56)%>
<%Else%>
<a href="<%=Assay(8,i)%>"><%=Left(Assay(8,i),56)%></a>
<%End If%></td>
</tr>
<%If Exfor>=30 Then Exit For
Next%>
</table>
</div>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -