📄 infolist.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
Sql="Select * From InfoList"
Rs.Open Sql,Conn,1,1
On Error Resume Next
Name=Rs("Name")
Url=Rs("Url")
DayNum=Rs("DayNum")
TotalNum=Rs("TotalNum")
MonthMaxNum=rs("MonthMaxNum")
MonthMaxDate=Rs("MonthMaxDate")
DayMaxNum=Rs("DayMaxNum")
DayMaxDate=Rs("DayMaxDate")
HourMaxNum=Rs("HourMaxNum")
HourMaxTime=Rs("HourMaxTime")
LiaoningNum=Rs("LiaoningNum")
ChinaNum=Rs("ChinaNum")
OtherNum=Rs("OtherNum")
StartDate=Rs("StartDate")
StatDayNum=DateDiff("D",StartDate,Date)+1
If StatDayNum<=0 Then
   AveDayNum=StatDayNum
Else
   AveDayNum=Cint(TotalNum/StatDayNum)
End If
Rs.Close
Sql="Select Top 1 * From FBrowser Order By TBrwNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxBrw=Rs("TBrowser")
MaxBrwNum=Rs("TBrwNum")
End If
Rs.Close
Sql="Select Top 1 * From FSystem Order By TSysNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxSys=Rs("TSystem")
MaxSysNum=Rs("TSysNum")
End If
Rs.Close
Sql="Select Top 1 * From FScreen Order By TScrNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxScr=Rs("TScreen")
MaxScrNum=Rs("TScrNum")
End If
Rs.Close
Sql="Select Top 1 * From FArea Order By TAreNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxAre=Rs("TArea")
MaxAreNum=Rs("TAreNum")
End If
Rs.Close
Sql="Select Top 1 * From FWeburl Order By TWebNum DESC"
Rs.Open Sql,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
MaxWeb=Rs("TWeburl")
MaxWebNum=Rs("TWebNum")
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>
<STYLE type=text/css></STYLE>
<link rel="stylesheet" href="Info/Style.css">
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
</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=3 align="center"> <span class="style1">网 站 综 合 统 计 信 息</span> </td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>网站名称</td>
        <td height="22" align=right><%=Name%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>网站网址</td>
        <td height="22" align=right><a href="<%=Url%>"><%=Url%></a></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>总统计天数</td>
        <td height="22" align=right><%=StatDayNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>开始统计日期</td>
        <td height="22" align=right><%=StartDate%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>总访问量</td>
        <td height="22" align=right><%=TotalNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>平均日访量</td>
        <td height="22" align=right><%=AveDayNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" colspan=3 align=left></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>今日访问量</td>
        <td height="22" align=right><%=DayNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>最高月访量</td>
        <td height="22" align=right><%=MonthMaxNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>最高月访量月份</td>
        <td height="22" align=right><%=MonthMaxDate%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>最高日访量</td>
        <td height="22" align=right><%=DayMaxNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>最高日访量日期</td>
        <td height="22" align=right><%=DayMaxDate%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>最高时访量</td>
        <td height="22" align=right><%=HourMaxNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>最高时访量时间</td>
        <td height="22" align=right><%=HourMaxTime%>      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>省内访问人数</td>
        <td height="22" align=right><%=LiaoningNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>国内访问人数</td>
        <td height="22" align=right><%=ChinaNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>国外访问人数</td>
        <td height="22" align=right><%=OtherNum%></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" colspan=3 align=left></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>常用浏览器</td>
        <td height="22" align=right><%=MaxBrw%> (<%=MaxBrwNum%>)</td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>常用操作系统</td>
        <td height="22" align=right><%=MaxSys%> (<%=MaxSysNum%>)</td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>常用屏幕分辨率</td>
        <td height="22" align=right><%=MaxScr%> (<%=MaxScrNum%>)</td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>访问最多的地区</td>
        <td height="22" align=right><%=MaxAre%> (<%=MaxAreNum%>)</td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td height="22" align=left>访问最多的网站</td>
        <td height="22" align=right>
          <% If MaxWeb="直接输入或书签导入" Then%>
          <%=Left(MaxWeb,40)%> (<%=MaxWebNum%>)
          <%Else%>
          <a href="<%=MaxWeb%>"><%=Left(MaxWeb,40)%></a> (<%=MaxWebNum%>)
        <%End If%></td>
      </tr>
    </tbody>
  </table>
  <!-- #Include File=End.asp-->
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -