?? tj_page.asp
字號:
<%@ CODEPAGE = "936" %>
<%
'=================================
'
' 阿江酷站訪問統(tǒng)計(jì)系統(tǒng)
' Ajiang info@ajiang.net
' www.ajiang.net
'
' 版權(quán)所有·抄襲挪用必究
'
'=================================
%>
<!--#include file="inc_config.asp"-->
<%
'權(quán)限檢查
if session.Contents("master")=false and whatcan<2 then Response.Redirect "help.asp?id=004&error=您沒有查看被訪頁面統(tǒng)計(jì)的權(quán)限。"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
<title><%=countname%>－被訪問頁面統(tǒng)計(jì)</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000>
<!--#include file="inc_top.asp"-->
<br>
<table width=500 cellspacing=0 align=center>
<tr><td>
<p style="line-height: 100%;text-indent: -35; margin-left: 50; margin-top: 5; margin-bottom: 10">
Tips: 用鼠標(biāo)點(diǎn)指圖形柱或者網(wǎng)址可以看到對應(yīng)的訪問量。要得到某一時(shí)段的統(tǒng)計(jì)信息，請使用自定義統(tǒng)計(jì)。</p>
</td></tr>
</table>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
<tr><td colspan="3"><img src="images/photoup.gif"></td></tr>
<tr height="30">
<td width="1" class="backs"></td>
<td width="498"class="backq">
<img src="images/tb_title.gif" align=absmiddle> ∷∷∷ 被訪問頁面及訪問量 ∷∷∷<br>
<table border="0" cellpadding="0" cellspacing="0" width="450" align=center>
<tr height="9"><td></td></tr>
<tr height="10">
<td width="220"></td><td width="230"><img src="images/tu_back_up.gif"></td>
</tr>
<%
sql="select vpage,count(id) as allpage from view group by vpage order by count(id) DESC"
rs.Open sql,conn,1,1
maxallpage=0
sumallpage=0
do while not rs.EOF
if cint(rs("allpage"))>maxallpage then maxallpage=cint(rs("allpage"))
sumallpage=sumallpage+cint(rs("allpage"))
rs.MoveNext
loop
'防止除數(shù)為零而出錯(cuò)
if maxallpage=0 then maxallpage=1
if sumallpage=0 then sumallpage=1
rs.MoveFirst
j=0
do while not rs.EOF
thepage=rs("vpage")
vallpage=rs("allpage")
thelen=len(thepage)
if thelen =0 then
thepage="main.asp"
svpage="通過收藏或直接輸入網(wǎng)址訪問"
end if
if thelen <= 33 and thelen > 0 then
svpage=thepage
end if
if thelen >= 34 then
svpage=left(thepage,31) & "..."
end if
%>
<tr>
<td width="220" align=right><a href="<%=thepage%>" target="_blank"
title="<%=thepage & vbcrlf%>訪問<%=vallpage%>次，<%
'計(jì)算訪問量的百分?jǐn)?shù)，精確到小數(shù)后1位，小于零的在前面加字母0
lsbf=int(vallpage*1000/sumallpage)/10
if lsbf<1 then lsbf="0" & lsbf
Response.Write lsbf
%>%"><%=svpage%></a> </td>
<td width="230" background="images/tu_back_2.gif" align=left>
<img style="BORDER-left: #000000 1px solid;" src="images/tu.gif"
width="<%=(vallpage/maxallpage)*183%>" height="9"
alt="<%=thepage%>年，訪問<%=vallpage%>次，<%
'計(jì)算訪問量的百分?jǐn)?shù)，精確到小數(shù)后1位，小于零的在前面加字母0
lsbf=int(vallpage*1000/sumallpage)/10
if lsbf<1 then lsbf="0" & lsbf
Response.Write lsbf
%>%"> <%=vallpage%></td>
</tr>
<%
rs.MoveNext
j=j+1
'如果記錄超過40條，就退出
if j=40 then exit do
loop
%>
<tr height="10">
<td width="220"></td><td width="230"><img src="images/tu_back_down.gif"></td>
</tr>
<tr height="5"><td colspan=29></td></tr>
</table>
</td>
<td width="1" class="backs"></td>
</tr>
<tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
<br>
<!--#include file="inc_bottom.asp"-->
</body>
</html>
<%
'計(jì)算指定日期的訪問量
function vdaycon(theday)
theday=cdate(theday)
thetday=cdate(theday+1)
tmprs=conn.execute("Select count(id) as vdaycon from view where" & _
" vtime>=datevalue('" & theday & "') and vtime<=datevalue('" & thetday & "')")
vdaycon=tmprs("vdaycon")
if isnull(vdaycon) then vdaycon=0
end function
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -