?? fvisitor.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>網(wǎng)站統(tǒng)計分析系統(tǒng)</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="Info/Style.css">
</HEAD>
<BODY bgColor=#FFFFFF>
<CENTER>
<!-- #Include File=Header.asp-->
<table width="640" border=1 bordercolor=#000099 cellpadding=0 cellspacing=0 >
<tbody>
<tr>
<td height="33">
<table border=0 cellpadding=3 cellspacing=0 width="100%" bgcolor="#FFFFFF">
<tbody>
<tr>
<td colspan=6 align="center" bgcolor="#000099"> <font color="#FFFFFF">最
近 30 位 訪 問 者 信 息 分 析 </font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td align=left width="14%">日期</td>
<td align=left width="16%">時間</td>
<td align=left width="26%">地址</td>
<td align=left colspan="3" width="44%">鏈接頁面</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">
<td colspan=6 bgcolor="#000099">
<p> </p>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<!-- #Include File=End.asp-->
</CENTER>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -