📄 fvisitor.asp

📁 购物系统(本版为正式商业版

💻 ASP

字号:

<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%><!-- #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 rel="stylesheet" href="Info/Style.css">
</HEAD>
<BODY bgColor=#FFFFFF>
<CENTER>
<!-- #Include File=Header.asp-->
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
    <tbody>
      <tr bgcolor="#C7D3E6">
        <td height="22" colspan=6 align="center"> <font color="#FFFFFF">最 近 30 位 访 问 者 信 息 分 析 </font></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td width="14%" height="22" align=left>日期</td>
        <td width="16%" height="22" align=left>时间</td>
        <td width="26%" height="22" align=left>地址</td>
        <td width="44%" height="22" colspan="3" align=left>链接页面</td>
      </tr>
      <%for i=0 to Rows%>
      <tr bgcolor="#F0F3F8">
        <td width="14%" height="22" align=left><%=Assay(1,i)%></td>
        <td width="16%" height="22" align=left><%=FormatDateTime(Assay(2,i),4)%></td>
        <td width="26%" height="22" align=left><%=Assay(4,i)%></td>
        <td width="44%" height="22" colspan="3" align=left>
          <% 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%>
    </tbody>
  </table>
  <!-- #Include File=End.asp-->
</CENTER>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -