📄 infolist.asp
字号:
<!-- #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">
</HEAD>
<BODY bgColor=#FFFFFF>
<CENTER>
<!-- #Include File=Header.asp-->
<table width="640" border=1 bordercolor=#000099 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td>
<table border=0 cellpadding=3 cellspacing=0 width="100%" bgcolor="#FFFFFF">
<tbody>
<tr>
<td colspan=4 align="center" bgcolor="#000099">
<font color=#ffffff>网 站 综 合 统 计 信 息</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>网站名称</td>
<td align=right colspan=2><%=Name%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>网站网址</td>
<td align=right colspan=2><a href="<%=Url%>"><%=Url%></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>总统计天数</td>
<td align=right colspan=2><%=StatDayNum%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>开始统计日期</td>
<td align=right colspan=2><%=StartDate%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>总访问量</td>
<td align=right colspan=2><%=TotalNum%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>平均日访量</td>
<td align=right colspan=2><%=AveDayNum%></td>
</tr>
<tr bgcolor="#000099">
<td align=left colspan=4 height="2"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>今日访问量</td>
<td align=right colspan=2><%=DayNum%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>最高月访量</td>
<td align=right colspan=2><%=MonthMaxNum%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>最高月访量月份</td>
<td align=right colspan=2><%=MonthMaxDate%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>最高日访量</td>
<td align=right colspan=2><%=DayMaxNum%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>最高日访量日期</td>
<td align=right colspan=2><%=DayMaxDate%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>最高时访量</td>
<td align=right colspan=2><%=HourMaxNum%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>最高时访量时间</td>
<td align=right colspan=2><%=HourMaxTime%>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>省内访问人数</td>
<td align=right colspan=2><%=LiaoningNum%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>国内访问人数</td>
<td align=right colspan=2><%=ChinaNum%></td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>国外访问人数</td>
<td align=right colspan=2><%=OtherNum%></td>
</tr>
<tr>
<td align=left colspan=4 height="2" bgcolor="#000099"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>常用浏览器</td>
<td align=right colspan=2><%=MaxBrw%> (<%=MaxBrwNum%>)</td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>常用操作系统</td>
<td align=right colspan=2><%=MaxSys%> (<%=MaxSysNum%>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>常用屏幕分辨率</td>
<td align=right colspan=2><%=MaxScr%> (<%=MaxScrNum%>)</td>
</tr>
<tr bgcolor="#E4E4E4">
<td align=left colspan=2>访问最多的地区</td>
<td align=right colspan=2><%=MaxAre%> (<%=MaxAreNum%>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan=2>访问最多的网站</td>
<td align=right colspan=2>
<% If MaxWeb="直接输入或书签导入" Then%>
<%=Left(MaxWeb,40)%> (<%=MaxWebNum%>)
<%Else%>
<a href="<%=MaxWeb%>"><%=Left(MaxWeb,40)%></a> (<%=MaxWebNum%>)
<%End If%></td>
</tr>
<tr align="right">
<td colspan=4 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 + -