www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/tj_where.asp
<!--#include file="tj_config.asp"-->
<%if Request.Cookies("venshop")("admin_name")="" or Request.Cookies("venshop")("admin_class")="" then
response.redirect "ad_login.asp"
elseif Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if%>
<link rel="stylesheet" type="text/css" href="inc/css.css">
</head>
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000>
<!--#include file="tj_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: 用鼠标点指图形柱或者文字可以看到对应的访问量。要得到某一时段的统计信息，请使用自定义统计。</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="img/photoup.gif"></td></tr>
<tr height="30">
<td width="1" class="backs"></td>
<td width="498"class="backq">
<img src="img/tb_title.gif" align=absmiddle> ∷∷∷ 访问者地区及访问量 ∷∷∷<br>
<table border="0" cellpadding="0" cellspacing="0" width="350" align=center>
<tr height="9"><td></td></tr>
<tr height="10">
<td width="120"></td><td width="230"><img src="img/tu_back_up.gif"></td>
</tr>
<%
sql="select vwhere,count(id) as allwhere from view group by vwhere order by count(id) DESC"
rs.Open sql,conn,1,1
maxallwhere=0
sumallwhere=0
do while not rs.EOF
if cint(rs("allwhere"))>maxallwhere then maxallwhere=cint(rs("allwhere"))
sumallwhere=sumallwhere+cint(rs("allwhere"))
rs.MoveNext
loop
'防止除数为0而出错
if maxallwhere=0 then maxallwhere=1
if sumallwhere=0 then sumallwhere=1
rs.MoveFirst
j=0
do while not rs.EOF
thewhere=rs("vwhere")
vallwhere=rs("allwhere")
thelen=len(thewhere)
if thelen =0 then
thewhere="main.asp"
svwhere="通过收藏或直接输入网址访问"
end if
if thelen <= 33 and thelen > 0 then
svwhere=thewhere
end if
if thelen >= 34 then
svwhere=left(thewhere,31) & "..."
end if
%>
<tr>
<td width="120" align=right><a title="<%=thewhere%>，访问<%=vallwhere%>次，<%
'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
lsbf=int(vallwhere*1000/sumallwhere)/10
if lsbf<1 then lsbf="0" & lsbf
Response.Write lsbf
%>%"><%=svwhere%></a> </td>
<td width="230" background="img/tu_back_2.gif" align=left>
<img style="BORDER-left: #000000 1px solid;" src="img/tu.gif"
width="<%=(vallwhere/maxallwhere)*183%>" height="9"
alt="<%=thewhere%>，访问<%=vallwhere%>次，<%
'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
lsbf=int(vallwhere*1000/sumallwhere)/10
if lsbf<1 then lsbf="0" & lsbf
Response.Write lsbf
%>%"> <%=vallwhere%></td>
</tr>
<%
rs.MoveNext
j=j+1
'如果记录超过40条，就退出
if j=40 then exit do
loop
%>
<tr height="10">
<td width="120"></td><td width="230"><img src="img/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="img/photodown.gif"></td></tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
<br>
<!--#include file="tj_bottom.asp"-->
</body>
</html>
<%
'计算指定日期的访问量
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
%>