主页

请问各位高手！站点统计功能如何实现？如果解决问题另赠送300分，说话算话！

yaoming2002 2002-07-19 08:34:42

请问一般的实现形式是什么？请具体一点详细说说原理，要用的什么属性和方法和页面怎样安排的，并请给出实例……谢谢了！
我们现在有一个成熟的网站，但就是没有这个东西，源码我也下载了看，不太懂，请大家给说个清楚的行么？

...全文

23 条回复

切换为时间正序

请发表友善的回复…

发表回复

yaoming2002 2002-07-21

请大家原谅，太忙了，明天就结帐

回复赞

daehappy 2002-07-21

up!gz!

回复赞

freezwy 2002-07-20

去www.asp300.com在载一个吧，足够你使用的。

回复赞

hwstu 2002-07-20

库结构如下：
FAddress
TAddress(文本) TAddNum(长整)

FArea
TArea(文本) TAreNum(长整)

FBrowser
TBrowser(文本) TBrwNum(长整)

FIpone
TIpone(文本) TOneNum(长整)

FIptwo
TIptwo(文本) TTwoNum(长整)

FMozilla
TMozilla(文本) TMozNum(长整)

FRefer
TRefer(文本) TRefNum(长整)

FScreen
TScreen(文本) TScrNum(长整)

FSystem
TSystem(文本) TSysNum(长整)
程序部分我随时可以发给你，我想这个是非常完全的网站统计的了，对于各个地区的IP列表你要不断的更新。其它统计报表很快的就可以搞定
FVisit
0(长整) 1(长整) 2(长整) 3(长整) 4(长整) 5(长整) 6(长整) 7(长整) 8(长整) 9(长整) 10(长整)

FWeburl
TWeburl(文本) TWebNum(长整)

InfoList
Name(文本) Url(文本) TotalNum(长整) StartDate(文本) MonthNum(长整) MonthMaxNum(长整) OldMonth(文本) MonthMaxDate(文本) DayNum(长整) DayMaxNum(长整) OldDay(文本) DayMaxDate(文本) HourNum(长整) HourMaxNum(长整) OldHour(文本) HourMaxTime(文本) LiaoningNum(长整) ChinaNum(长整) OtherNum(长整) PassWord(文本)

IpInfo
StartIp(文本) EndIp(文本) Area(文本) Address(文本)

IpScope
StartIp(文本) EndIp(文本) Scope(文本)

StatDay
0(长整) 1(长整) 2(长整) 3(长整) 4(长整) 5(长整) 6(长整) 7(长整) 8(长整) 9(长整) 10(长整) 11(长整) 12(长整) 13(长整) 14(长整) 15(长整) 16(长整) 17(长整) 18(长整) 19(长整) 20(长整) 21(长整) 22(长整) 23(长整) TDay(文本)

StatMonth
1(长整) 2(长整) 3(长整) 4(长整) 5(长整) 6(长整) 7(长整) 8(长整) 9(长整) 10(长整) 11(长整) 12(长整) 13(长整) 14(长整) 15(长整) 16(长整) 17(长整) 18(长整) 19(长整) 20(长整) 21(长整) 22(长整) 23(长整) 24(长整) 25(长整) 26(长整) 27(长整) 28(长整) 29(长整) 30(长整) 31(长整) TMonth(文本)

StatWeek
1(长整) 2(长整) 3(长整) 4(长整) 5(长整) 6(长整) 7(长整) TWeek(文本)

StatYear
1(长整) 2(长整) 3(长整) 4(长整) 5(长整) 6(长整) 7(长整) 8(长整) 9(长整) 10(长整) 11(长整) 12(长整) TYear(文本)

Visitor
Id(长整) SDate(日期/时间) STime(日期/时间) Ip(文本) Address(文本) System(文本) Browser(文本) Screen(文本) Referer(文本)

回复赞

coffee_cn 2002-07-20

我的程序已经发到你的邮箱！

回复赞

ehom 2002-07-20

还有
Request.ServerVariables("HTTP_REFERER")为发出的请求页面

回复赞

ehom 2002-07-20

错了!
Request.ServerVariables("HTTP_USER_AGENT")为浏览器和操作系统

回复赞

ehom 2002-07-20

统计人数的程序到处有,用Request.ServerVariables()可以获得部分东西!如Request.ServerVariables("REMOTE_ADDR")为客户IP,分析IP可以得到地域
Request.ServerVariables("REMOTE_ADDR")为浏览器和操作系统
...

回复赞

tripofdream 2002-07-20

回复人： yaoming2002(飞雪) ( ) 信誉：100 2002-07-19 21:08:00 得分:0

我想要一个特别完全的功能，应该在数据库里存储信息的，谢谢

建议研究一下WEB站点的log文档，里面有足够多的信息。（当然你也可以在IIS中设置把WEB站点日志存放到数据库中，那样处理就更方便）

回复赞

yaoming2002 2002-07-20

request.servervariables("remote_addr")
到底是提供者的ip还是访问者的？

回复赞

tripofdream 2002-07-20

回复赞

meizz 2002-07-20

另外再给你加一点：
本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统<%=Request.ServerVariables("OS")%>

//怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "<font color=#FF0000>您通过了代理服务器，"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if%>

回复赞

meizz 2002-07-20

<%
Dim objBC
Set objBC=Server.CreateObject("MSWC.BrowserType")
%>
<html><head><link rel="stylesheet" type="text/css" href="../library/cadway.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提取与 ASP 相关的服务器或客户端的一些信息</title></head>

<body bgcolor=#85a3ff>
<center><span style="width: 760;font-size:28px;color:#f0f000;font-family:华文新魏;
position:relative;filter:glow(color=#0060b0, strength=5)">
提取与 ASP 相关的服务器或客户端的一些信息</span></center>
<table border=1 cellSpacing=1 cellPadding=2 align=center width=710
bordercolorlight="#ACDFCC" bordercolordark="#600000" bgcolor=#ffffff>
<tr><td colspan=5 class=12 align=right bgcolor=#85a3ff>
梅花雨 Ver 1.0 </td></tr>
<tr><td class=blue width=140>目前网页虚拟路径：</td>
<td class=red width=177> <%= Request.ServerVariables("path_info") %></td>
<td width=10 rowspan=8 bgcolor=#85a3ff></td>
<td class=blue width=130>本网页的实际路径：</td>
<td class=red width=243> <%= Request.ServerVariables("path_Translated") %></td></tr>
<tr><td class=blue>服务器端的IP地址：</td>
<td class=red> <%= Request.ServerVariables("local_addr") %></td>
<td class=blue>服务器软件的版本：</td>
<td class=red> <%= Request.ServerVariables("server_software") %></td>
<tr><td class=blue>服务器连接口编号：</td>
<td class=red> <%= Request.ServerVariables("server_port") %></td>
<td class=blue>服务器的HTTP版本：</td>
<td class=red> <%= Request.ServerVariables("server_Protocol") %></td></tr>
<tr><td class=blue>远程主机的名称：</td>
<td class=red> <%= Request.ServerVariables("remote_host") %></td>
<td class=blue>远程主机的IP地址：</td>
<td class=red> <%= Request.ServerVariables("remote_addr") %></td></tr>
<tr><td class=blue>服务器的名称或IP：</td>
<td class=red> <%= Request.ServerVariables("server_name") %></td>
<td class=blue>描述内容的语系：</td>
<td class=red> <%= Request.ServerVariables("http_accept_language") %></td></tr>
<tr><td class=blue>站点主目录的位置：</td>
<td class=red> <%= Server.MapPath("/") %></td>
<td class=blue>本网页所在位置：</td>
<td class=red> <%= Server.MapPath("./") %></td></tr>
<tr><td class=blue>本网页上一级目录：</td>
<td class=red> <%= Server.MapPath("../") %></td>
<td class=blue>服务器端CGI版本：</td>
<td class=red> <%= Request.ServerVariables("gateway_interface") %></td></tr>
<tr><td class=blue>子与母端联机类型：</td>
<td class=red> <%= Request.ServerVariables("http_connection") %></td>
<td class=blue>浏览器端主机名：</td>
<td class=red> <%= Request.ServerVariables("http_host") %></td></tr>
<tr><td class=blue>浏览器端相关信息：</td>
<td class=red colspan=4> <%= Request.ServerVariables("http_user_agent") %></td></tr>
<tr><td class=blue>用户浏览器的名称：</td>
<td class=red> <% = objBC.Browser %></td>
<td width=10 rowspan=5 bgcolor=#85a3ff></td>
<td class=blue>用户浏览器的版本：</td>
<td class=red> <% = objBC.Version %></td></tr>
<tr><td class=blue>是否BETA测试软件：</td>
<td class=red> <% = objBC.Beta %></td>
<td class=blue>ActiveXControls：</td>
<td class=red> <% = objBC.ActiveXControls %></td></tr>
<tr><td class=blue>是否支持背景声音：</td>
<td class=red> <% = objBC.BackgroundSounds %></td>
<td class=blue>是否支持 Cookies：</td>
<td class=red> <% = objBC.Cookies %></td></tr>
<tr><td class=blue>是否支持框架网页：</td>
<td class=red> <% = objBC.Frames %></td>
<td class=blue>是否支持表格网页：</td>
<td class=red> <% = objBC.Tables %></td></tr>
<tr><td class=blue>支持 JavaScript：</td>
<td class=red> <% = objBC.JavaScript %></td>
<td class=blue>是否支持VBScript：</td>
<td class=red> <% = objBC.VBScript %></td></tr>
<tr><td class=blue>用户名</td>
<td class=red> <% = Request.ServerVariables("AUTH_USER") %></td>
<td class=blue>是否支持VBScript：</td>
<td class=red> <% = objBC.VBScript %></td></tr>
</table>
<% Set objBC=Nothing %>
</body>
</html>

回复赞

yaoming2002 2002-07-20

我正在研究Request.ServerVariables，谁能详细讲解一下啊，我的要求是详细，没别的。

回复赞

yaoming2002 2002-07-20

to:疯狂绅士

yaominga@netease.com

回复赞

纪俊 2002-07-19

在www.aspsky.net上有仿制的太极连，取下载一个看看。

回复赞

yaoming2002 2002-07-19

问题是您给的统计数据太少了点，又不是说计数器，它还包括流量分析，包括各页面的访问记录

回复赞

apple749769 2002-07-19

那把统计数据放在数据库里不就行了吗？？

回复赞

yhncom_36de 2002-07-19

那很简单，设一个变量，存放在数据库里面，就可以了！

回复赞

yaoming2002 2002-07-19

我想要一个特别完全的功能，应该在数据库里存储信息的，谢谢

回复赞

发动态

发帖子

ASP

创建于2007-09-28

加入

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。

申请成为版主

社区公告

暂无公告