?? 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 + -