📄 站点统计.txt
字号:
请支持我们站点以网养网，点击我们的广告，谢谢大家！
www.topcn.com的网站流量统计显示部分的asp程序(siteinfo.asp)
--------------------------------------------------------------------------------
【icewater】 于 00-4-24 17:40:26 加贴在 Joy ASP ↑：
<%@language=vbscript%>
<!--#INCLUDE FILE="global.asa" -->
<%
public osnumber(6)
public osname(6)
public browser(2)
public browsname(2)
browsname(0)="IE"
browsname(1)="Netscape"
browsname(2)="其他浏览器"
osname(0)="Windows 95"
osname(1)="Windows 98"
osname(2)="Windows NT "
osname(3)="sun os"
osname(4)="linux"
osname(5)="Windows 3.2"
osname(6)="其他操作系统"
UserName=request("UserName")
sitetype=request("sitetype")
'Response.Write sitetype
if sitetype=0 then
Sittype="个人站点"
elseif sitetype=1 then
Sittype="商业站点"
end if
set conn=server.CreateObject ("ADODB.connection")
conn.Open dbserver,dbuser,dbpasswd
cbsSQL = "Select WhichDay, DayHigh FROM DH WHERE UserName='" & UserName & "'"
Set cbsRS= conn.Execute(cbsSQL)
IF NOT cbsRS.EOF THEN
WhichD=cbsRS("WhichDay")
DayH=cbsRS("DayHigh")
ELSE
WhichD="明日开始统计"
DayH=0
END IF
cbsRS.close
cbsSQL = "Select WhichDayTime, HourHigh FROM HH WHERE UserName='" & UserName & "'"
Set cbsRS= conn.Execute(cbsSQL)
IF NOT cbsRS.EOF THEN
WhichDT=cbsRS("WhichDayTime")
HourH=cbsRS("HourHigh")
ELSE
WhichDT="明日开始统计"
HourH=0
END IF
cbsRS.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>你的站点信息——总览</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta http-equiv="Page-Enter" content="revealTrans(Duration=1.0,Transition=23)">
</head>
<body bgcolor="#FFFFFF" topmargin="2" marginwidth="0" marginheight="0">
<!-- title bar space -->
<div align="center"><center>
<table border="0" width="80%" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="690" bgcolor="#FFCC66">
<div align="center">
<center>
<table border="1" width="60%" bgcolor="#FFFFFF"
cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%">
<script language="JavaScript" SRC="http://www.topcn.com/images/ad/customer.js">
</script>
</td>
</tr>
</table>
</center>
</div>
<p align="center"><strong><font color="#003366">你的站点信息——总览</font></strong></p>
<div align="center">
<center>
<table border="0" width="70%" bgcolor="#FFFFDD"
cellspacing="0">
<tr>
<td width="100%">
<p align="center"><font color="#000000"><strong><a href="register.asp"
target="_blank">加入排行榜</a> <a href="modify.asp" target="_blank">更改站点信息</a> <a
href="index.asp" target="_blank">龙虎榜首页</a></strong></font>
</td>
</tr>
</table>
</center>
</div>
<%
str0="select count(*) from ReadTable where UserName='"&UserName&"'"
set rs0=conn.Execute (str0)
judge=rs0(0)
rs0.close
if judge=0 then
totalday=0
totalaccess=0
usrfromlocal=0
usrfromgd=0
usrfromnation=0
usrfromforeign=0
avgperday=0
browser(0)=0
browser(1)=0
browser(2)=0
osnumber(0)=0
osnumber(1)=0
osnumber(2)=0
osnumber(3)=0
osnumber(4)=0
osnumber(5)=0
else
'Response.Write str&"test"
str="select TotalDay,TotalAccess,UsrFromLocal,UsrFromGD,UsrFromNation,UsrFromForeign,"
str=str&"IE,Netscape,OtherBrowser,Win95,Win98,WinNT,Win32,Linux,SunOS,OtherOS"
str=str&" from ReadTable where Username='"&UserName&"'"
set rs=conn.Execute (str)
if rs(0)<>"" then
totalday=rs(0)
else
totalday=0
end if
if rs(1)<>"" then
totalaccess=rs(1)
else
totalaccess=0
end if
usrfromlocal=rs(2)
usrfromgd=rs(3)
usrfromnation=rs(4)
usrfromforeign=rs(5)
if totalday=0 then
avgperday=0
else
avgperday=FormatNumber((totalaccess/totalday),-1,-1,-1,-2)
end if
if rs(6)<>"" then
browser(0)=rs(6)
else
browser(0)=0
end if
if rs(7)<>"" then
browser(1)=rs(7)
else
browser(1)=0
end if
if rs(8)<>"" then
browser(2)=rs(8)
else
browser(2)=0
end if
if rs(9)<>"" then
osnumber(0)=rs(9)
else
osnumber(0)=0
end if
if rs(10)<>"" then
osnumber(1)=rs(10)
else
osnumber(1)=0
end if
if rs(11)<>"" then
osnumber(2)=rs(11)
else
osnumber(2)=0
end if
osnumber(3)=rs(12)
osnumber(4)=rs(13)
osnumber(5)=rs(14)
rs.close
end if
str1="select SiteName,SubSiteType,SiteURL,LoginDate from siteinfo where UserName='"&UserName&"'"
set rs1=conn.Execute (str1)
subsitetype=rs1(1)
sitename=rs1(0)
siteurl=rs1(2)
logindate=rs1(3)
rs1.close
str2="select SubtypeName from Subtypetable where SubtypeID="&subsitetype
'Response.Write str2&"hellp"
set rs2=conn.Execute (str2)
Subsitename=rs2(0)
'Response.Write Subsitename&"hellp"
rs2.close
conn.Close
%> <img src="/scripts/Count.exe?srgb=00ff00&prgb=101010&ft=0&df=sample.dat&trgb=000000" width=1 height=1>
<script>
document.write("<a href=http://www.topcn.com/siteinfo.asp?UserName=gnetcenter&SiteType=1 target=_blank><img src=http://www1.topcn.com:8081/statistics.asp?gnetcenter&referURL="+escape(top.document.referrer)+"&curURL="+escape(top.document.URL)+"&imgStyle=0"+" border=0 width=1 height=1 alt='Top中文网站龙虎榜' ></a>");
</script>
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table width="90%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<div align="center"></div>
</td>
<td bgcolor="#FFFFFF" width="70">
<div align="center"><font color="#000066">总 览</font></div>
</td>
<td>
<div align="center"></div>
</td>
<td bgcolor="#FFFFCC" width="70">
<div align="center"><a href="sitemonth.asp?UserName=<%=UserName%>&sitetype=<%=sitetype%>">年
报 表</a></div>
</td>
<td>
<div align="center"></div>
</td>
<td bgcolor="#FFFFCC" width="70">
<div align="center"><a href="siteday.asp?sitetype=<%=sitetype%>&UserName=<%=UserName%>">月
报 表</a></div>
</td>
<td>
<div align="center"></div>
</td>
<td bgcolor="#FFFFCC" width="70">
<div align="center"><a href="siteweek.asp?sitetype=<%=sitetype%>&UserName=<%=UserName%>">周
报 表</a></div>
</td>
<td>
<div align="center"></div>
</td>
<td bgcolor="#FFFFCC" width="70">
<div align="center"><a href="sitetime.asp?sitetype=<%=sitetype%>&UserName=<%=UserName%>">日
报 表</a></div>
</td>
<td>
<div align="center"></div>
</td>
<td bgcolor="#FFFFCC" width="70">
<div align="center"><a href="sitehistory.asp?sitetype=<%=sitetype%>&UserName=<%=UserName%>">历史报表</a></div>
</td>
<td>
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center"><font face="幼圆" size="3"
color="#0080C0"><strong><a href="<%=siteurl%>" target="_blank"><br>
<%=sitename%></a> 信息总览</strong></font></p>
<div align="center">
<center>
<table border="1" width="70%" bgcolor="#FFFFDC"
bordercolor="#FFCC66" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFCC">
<tr bgcolor="#FFCC66">
<td align="right" colspan="2">
<p align="left"><font color="#000000"><strong>站点统计数据分析：</strong></font>
</td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">站点名称</font></td>
<td width="65%"><font color="#000000"><a href="<%=siteurl%>"><%=sitename%></a></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">站点性质</font></td>
<td width="65%"><font color="#000000"><%=Sittype%>之中的<%=Subsitename%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">开始统计日期</font></td>
<td width="65%"><font color="#000000"><%=logindate%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">总统计天数</font></td>
<td width="65%"><font color="#000000"><%=totalday%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">总浏览人数</font></td>
<td width="65%"><font color="#000000"><%=totalaccess%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">本地</font></td>
<td width="65%"><font color="#000000"><%=usrfromlocal%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">省内</font></td>
<td width="65%"><font color="#000000"><%=usrfromgd%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">国内</font></td>
<td width="65%"><font color="#000000"><%=usrfromnation%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">国外</font></td>
<td width="65%"><font color="#000000"><%=usrfromforeign%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">平均每天访问量</font></td>
<td width="65%"><font color="#000000"><%=avgperday%></font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">最高日访问量</font></td>
<td width="65%"><font color="#000000"><%=DayH%> [<%=WhichD%>]</font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFCC66" width="35%"><font color="#000000">最高时访问量</font></td>
<td width="65%"><font color="#000000"><%=HourH%> [<%=WhichDT%>]</font></td>
</tr>
</table>
</center>
</div>
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td align="center"> <!-- #Include file="include.htm" --> </td>
</tr>
</table>
<div align="center">
<center>
<table border="1" width="70%" bgcolor="#FFFFDC"
bordercolor="#FFCC66" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFCC">
<tr bgcolor="#FFCC66">
<td colspan="4" align="center">
<p align="left"><font color="#000000"><u><strong>浏览器使用分析：</strong></u></font>
</td>
</tr>
<tr bgcolor="#FFCC66">
<td align="center" width="140"><font color="#000000">浏
览 器</font></td>
<td align="center" width="80"><font color="#000000">使用人次</font></td>
<td align="center" width="80"><font color="#000000">百分比</font></td>
<td align="center" width="150">
<div align="center"><font color="#000000">图 示</font></div>
</td>
</tr>
<%
for i=0 to 2
if Cstr(browser(i))="" then
browser(i)=0
ratebrower=0
else
if totalaccess<>0 then
'Response.Write "hello="&browser(i)&"hell="&totalaccess&"</p>"
ratebrowser=FormatNumber((browser(i)/totalaccess),4,-1,-1,-2)*100
else
ratebrowser=0
end if
end if
%>
<tr>
<td align="center" bgcolor="#FFCC66" width="140"><font color="#000000"><%=browsname(i)%></font></td>
<td align="center" width="80"><font color="#000000"><%=browser(i)%></font></td>
<td align="center" width="80"><font color="#000000"><%=ratebrowser&"%"%></font></td>
<td align="left" width="150">
<p align="left"><font color="#000000"><img src="redbar.gif" <%if ratebrowser>100 then%> width="100"
<%else
if ratebrowser<1 then%>
width="1"
<%else%>
width="<%=ratebrowser%>"
<%end if
end if
%>
height="10"></font>
</td>
</tr>
<%next%>
</table>
</center>
</div>
<p>
<div align="center">
<center>
<table border="1" width="70%" bgcolor="#FFFFDC"
bordercolor="#FFCC66" cellspacing="0" bordercolordark="#FFFFCC" bordercolorlight="#000000">
<tr>
<td colspan="4" align="center" bgcolor="#FFCC66">
<p align="left"><font color="#000000"><strong><u>操作系统使用分析：</u></strong></font>
</td>
</tr>
<tr>
<td width="140" align="center" bgcolor="#FFCC66"><font color="#000000">操作系统</font></td>
<td width="80" bgcolor="#FFCC66">
<p align="center"><font color="#000000">使用人次</font>
</td>
<td width="80" bgcolor="#FFCC66">
<p align="center"><font color="#000000">百分比</font>
</td>
<td width="150" bgcolor="#FFCC66">
<p align="center"><font color="#000000">图 示</font>
</td>
</tr>
<%
for i=0 to 6
if Cstr(osnumber(i))="" then
osnumber(i)=0
rate=0
else
if totalaccess<>0 then
rate=FormatNumber((osnumber(i)/totalaccess),4,-1,-1,-2)*100
'rate=LEFT((osnumber(i)/totalaccess) *100,4)
else
rate=0
end if
end if
%>
<tr>
<td width="140" bgcolor="#FFCC66" align="center"><font color="#000000"><%=osname(i)%></font></td>
<td width="80" align="center"><font color="#000000"><%=osnumber(i)%></font></td>
<td width="80" align="center"><font color="#000000"><%=rate&"%"%></font></td>
<td width="150" align="left">
<p align="left"><font color="#000000"><img src="redbar.gif" <%if rate>100 then%> width="100"
<%else
if rate<1 then
%>
width="1"
<%else%>
width="<%=rate%>"
<%
end if
end if %> height="10"></font>
</td>
</tr>
<%next%>
</table>
</center>
</div>
<p>
</td>
</tr>
</table>
</center>
</div>
<p>
</td>
</tr>
<!--webbot bot="Include" U-Include="include.htm" TAG="BODY" -->
<tr>
<td valign="top" width="690" bgcolor="#FFCC66">
<p align="right"> <font color="#000000"> ＝＝广东视聆通应用研究开发中心＝＝</font>
</td>
</tr>
</table>
</center></div>
</body>
</html>
--------------------------------------------------------------------------------
贴子转发：
E-mail地址：
--------------------------------------------------------------------------------
相关主题：
www.topcn.com的网站流量统计显示部分的asp程序(siteinfo.asp) - 【icewater】 00-4-24 17:40:26 [ID:225352 点击:10] (12662 Bytes) (0)
--------------------------------------------------------------------------------
回复：
版 面：Joy ASP ↑ *为必填项目 第一次发言请去注册>> 怎样使用UBBCode>> UBB Code Editor>> NEW!
姓 名：* 密码： * 密码遗忘请点这里>>
Email：
主 题：*
表 情：
内 容（最多16KB） 使用签名 设置签名>>
链接地址：
链接标题：
链接图片：
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -