📄 fvisitor.asp
字号:
<!--#include file="../ManageAdmin/CheckAdminLogined.asp"-->
<!-- #Include File=Conn.asp -->
<%
Response.Expires=0
Dim Conn,Sql,Rs
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 href="Images/AdminCss.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#FFFFFF topmargin=0 leftmargin=0>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._网站访问监控._最近30位访问者信息分析 </td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><b>最近30位访问者信息分析</b><font color="#FFFFFF"><b>
</b></font> </td>
<td align="right" background="images/title2.gif"> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top"><br>
<table width="98%" border=0 cellpadding=0 cellspacing=1 bgcolor="333333" >
<tbody>
<tr>
<td height="33"> <table border=0 cellpadding=3 cellspacing=0 width="100%" bgcolor="#FFFFFF">
<tbody>
<tr bgcolor="e4e4e4">
<td colspan=6 align="center" height=1 bgcolor="cecece">
</td>
</tr>
<tr bgcolor="f7f7f7">
<td width="14%" align=left>日期</td>
<td width="16%" align=left>时间</td>
<td width="26%" align=left>地址</td>
<td width="44%" colspan="3" align=left>链接页面</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan="6" height="1" bgcolor="333333"></td>
</tr>
<%for i=0 to Rows%>
<tr bgcolor="#FFFFFF">
<td align=left width="14%"><%=Assay(1,i)%></td>
<td align=left width="16%"><%=FormatDateTime(Assay(2,i),4)%></td>
<td align=left width="26%"><%=Assay(4,i)%></td>
<td align=left colspan="3" width="44%">
<% If Assay(8,i)="直接输入或书签导入" Then%>
<%=Left(Assay(8,i),40)%>
<%Else%>
<a href="<%=Assay(8,i)%>"><%=Left(Assay(8,i),40)%></a>
<%End If%>
</td>
</tr>
<%Next%>
<tr align="right" bgcolor="e4e4e4">
<td colspan=6> <p> </p></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br> <br>
</td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -