完整的访问统计程序（二程序篇）

/*
原创：豆腐
请大家在转载和使用的时候保留这条信息
/
/ dbcn.asp
创建数据库连接的公用程序
*/

 1   
 2function OpenConn()   
 3'创建数据库连接   
 4dim ConnStr   
 5dim uid   
 6dim pwd   
 7dim db   
 8uid="BBC"   
 9pwd="BBC"   
10db="BBC"   
11Softserver="Softdepserver"   
12Set Conn = Server.CreateObject("ADODB.Connection")   
13ConnStr="Provider=SQLOLEDB.1;UID=" & uid & ";PWD=" & pwd & ";database=" & db & ";server=" &   
14Softserver & ""   
15  
16Conn.Open ConnStr   
17  
18set OpenConn=Conn   
19end function   
20  
21function OpenRst()   
22'创建数据库记录集   
23set Rst=Server.CreateObject ("ADODB.Recordset")   
24set OpenRst=Rst   
25end function

/*
staticFunc
统计程序所需要用到的函数库
*/

1   
2set conn=openConn()   
3set rst=openRst()   
4sub WriteDateTable(intStart,intEnd,strArray,ccount)   
5'生成统计表

1<table border="1" width="100%">

for i= intStart to intEnd

1<tr>
2<td width="30%">```
3=strArray(i)
4```</td>
5<td width="60%">

if rst.eof then
setbar 0,ccount
else
if rst(1)=i then
setbar rst(3),ccount
if not rst.eof then rst.movenext
else
setbar 0,ccount
end if
end if

1</td>
2</tr>

1</table>

1   
2end sub

1   
2sub setBar(num,ccount)   
3'生成统计条   
4if ccount=0 then   
5percent=0   
6else   
7percent=cInt(num/ccount*10000)/100   
8end if   
9strGif="bar.gif"

1<img height="10" src="```
2=strGif
3```" width="```
4=percent+5
5```"/>

1<font color="red">```
2=percent
3```%</font>

1<td align="center">

=num

1</td>

1   
2end sub

 1   
 2sub writeDayStatic(userid)   
 3'生成日统计   
 4i=0   
 5dim strArray(100)   
 6for i=0 to 23   
 7strArray(i)= cStr(i) & "点--" & cstr(i+1) & "点"   
 8next   
 9i=0   
10set rst=openRst()   
11strSQL="select sum(num) as ccount from dateStatic where userid='" & userid & "'"   
12rst.open strSQL,conn,3,3   
13if isnull(Rst("ccount")) then   
14ccount=0   
15else   
16ccount=Rst("ccount")   
17end if   
18strSQL="select * from dateStatic where userid='" & userid & "' order by hourid"   
19set rst=openRst()   
20rst.open strSQL,conn,3,3

访问总数``` =ccount

``` WriteDateTable 0, 11, strArray ,ccount ```

``` WriteDateTable 12, 23, strArray ,ccount ```

``` ```

end sub

sub writeWeekStatic(userid)
'生成周统计
i=0
dim strArray(7)
strArray(0)="星期日"
strArray(1)="星期一"
strArray(2)="星期二"
strArray(3)="星期三"
strArray(4)="星期四"
strArray(5)="星期五"
strArray(6)="星期六"
i=0
strSQL="select sum(num) as ccount from weekStatic where userid='" & userid & "'"
set rst=openRst()
rst.open strSQL,conn,3,3
if isnull(Rst("ccount")) then
ccount=0
else
ccount=Rst("ccount")
end if
strSQL="select * from WeekStatic where userid='" & userid & "' order by dayid"
set rst=openRst()
rst.open strSQL,conn,3,3

1访问总数```
2=ccount

1<table border="1" width="100%">
2<tr height="100%">
3<td width="100%">```
4 WriteDateTable 0, 6, strArray ,ccount 
5```</td>
6</tr>
7</table>

1   
2end sub

 1   
 2sub writeMonthStatic(userid)   
 3'生成月统计   
 4i=0   
 5dim strArray(32)   
 6for i=1 to 31   
 7strArray(i)=cStr(i) & "日"   
 8next   
 9i=0   
10strSQL="select sum(num) as ccount from MonthStatic where userid='" & userid & "'"   
11set rst=openRst()   
12rst.open strSQL,conn,3,3   
13if isnull(Rst("ccount")) then   
14ccount=0   
15else   
16ccount=Rst("ccount")   
17end if   
18strSQL="select * from MonthStatic where userid='" & userid & "' order by dayid"   
19set rst=openRst()   
20rst.open strSQL,conn,3,3

访问总数``` =ccount

``` WriteDateTable 1, 16, strArray ,ccount ```

``` WriteDateTable 17, 31, strArray ,ccount ```

``` ```

end sub

sub writeYearStatic(userid)
i=0
dim strArray(13)
for i=1 to 12
strArray(i)=cStr(i) & "月"
next
i=0
strSQL="select sum(num) as ccount from YearStatic where userid='" & userid & "'"
set rst=openRst()
rst.open strSQL,conn,3,3
if isnull(Rst("ccount")) then
ccount=0
else
ccount=Rst("ccount")
end if
strSQL="select * from YearStatic where userid='" & userid & "' order by monthid"
set rst=openRst()
rst.open strSQL,conn,3,3

1访问总数```
2=ccount

 1<table border="1" width="100%">
 2<tr height="100%">
 3<td width="50%">```
 4 WriteDateTable 1, 6, strArray ,ccount 
 5```</td>
 6<td width="50%">```
 7 WriteDateTable 7, 12, strArray ,ccount 
 8```</td>
 9</tr>
10</table>

1   
2end sub

1   
2sub WriteRecentInfo(userid)   
3'显示访问者的浏览器分布   
4StrSQL="select top 10 * from accessstat where userid='" & userid & "' order by VisitTime desc"   
5set rst=openRst()   
6Rst.open StrSQL,Conn,3,1

 1<table align="center" border="1" cellpadding="1" cellspacing="1" width="100%">
 2<tr>
 3<td align="center" width="5%">序 号</td>
 4<td align="center" width="20%">来访时间</td>
 5<td align="center" width="15%">IP地址</td>
 6<td align="center" width="15%">所用操作系统</td>
 7<td align="center" width="15%">所用浏览器类型</td>
 8<td align="center" width="30%">浏览的上一页</td>
 9<td width="0%"></td>
10</tr>

for i=1 to Rst.RecordCount

 1<tr>
 2<td align="center" width="5%">```
 3=i
 4```</td>
 5<td align="center" width="20%">```
 6=Rst("VisitTime")%   
 7&amp;gt;&lt;/td&gt;
 8&lt;td align="center" width="15%"&gt;&amp;lt;%=Rst("IPAddr")
 9```</td>
10<td align="center" width="15%">```
11=Rst("UseSystem")
12```</td>
13<td align="center" width="15%">```
14=Rst("BrowserType")
15```</td>
16<td align="center" width="30%"><a =rst("lastpage")="" ```="" href="```">```
17Response.Write Rst("LastPage")%   
18&amp;gt;&lt;/a&gt;&lt;/td&gt;
19&lt;td ```<="" td="" width="0">
20</td></tr>

Rst.MoveNext

1</table>

1   
2end sub

 1   
 2sub WriteBrowserInfo(userid)   
 3Set Rst=OpenRst()   
 4strSQL="select count(*) as VisitCount from AccessStat where userid='" & userid & "'"   
 5Rst.open strSQL,Conn,3,1   
 6TotalVisit=rst(0)   
 7StrSQL="select BrowserType,count(BrowserType) as visitcount from AccessStat where userid='" & userid   
 8& "' group by BrowserType order by VisitCount desc"   
 9Set Rst=OpenRst()   
10Rst.open StrSQL,Conn,3,1

1<table align="center" border="1" cellpadding="1" cellspacing="1" width="100%">
2<tr>
3<td align="center" width="5%">序 号</td>
4<td align="center" width="15%">所用浏览器类型</td>
5<td align="center" width="40%">访问比例尺表示</td>
6<td align="center" width="15%">访问次数</td>
7<td width="5%"></td>
8</tr>

for i=1 to Rst.RecordCount

 1<tr>
 2<td align="center" width="5%">```
 3=i
 4```</td>
 5<td align="center" width="15%">```
 6=Rst("BrowserType")
 7```</td>
 8<!--   
 9<td width=15% align=center>```
10=Rst("VisitCount")%   
11&gt;&lt;/td&gt;   
12&lt;td width=10% align=center&gt;&lt;%=FormatNumber(CInt(Rst   
13("VisitCount")/TotalVisit*10000)/100,true,true)
14```%</td>   
15<td width=40% align=left><img src=bar.gif width=```
16=(Rst("VisitCount")/TotalVisit)*300

height=10>
-->

``` setbar Rst("VisitCount"),TotalVisit `````` Rst.MoveNext ``` ``` Next `````` ```

end sub

sub InsertData(userid)
'处理浏览者信息
ExecUserInfo userid
'处理日统计
ExecDayStatic userid
'处理周统计
ExecWeekStatic userid
'处理月统计
ExecMonthStatic userid
'处理年统计
ExecYearStatic userid
end sub

sub ExecUserInfo(userid)
'处理浏览者信息
strRet=Request.ServerVariables("HTTP_USER_AGENT")
strArray=split(strRet,"(")
strRet=left(strArray(1),len(strArray(1))-1)
strArray=split(strRet,";")
strBrowserName=strArray(1) '浏览器
strUseSystem=strArray(2) '用户操作系统
strPrPage=Request.ServerVariables("HTTP_REFERER") '从何而来
if strPrPage="" then
strPrPage="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables
("SCRIPT_NAME")
end if
strIPAddr=Request.ServerVariables ("REMOTE_ADDR") '用户IP地址
strSQL="insert into AccessStat(UserID,VisitTime,IPAddr,UseSystem,BrowserType,LastPage) "
strSQL=strSQL & "values ('" & trim(userid) & "',getDate(),'" & trim(strIPAddr) & "','"
strSQL=strSQL & trim(strUseSystem) & "','" & trim(strBrowserName) & "','" & trim(strPrPage) & "')"
conn.execute strSQL
end sub

sub ExecDayStatic(userid)
'处理每日的小时数据
strSQL="select * from DateStatic where dateid=datepart(dy,getdate()) and userid='" & userid & "'"
set rst=openrst()
rst.open strSQL,conn,3,3
if rst.eof and rst.bof then
strSQL="delete from DateStatic where userid='" & userid & "'"
conn.execute strSQL
for i=0 to 23
strSQL="insert into DateStatic values(datepart(dy,getdate())," & cStr(i) & ",'" & userid
& "',0)"
conn.execute strSQL
next
end if
strSQL="update datestatic set num=num + 1 where dateid=datepart(dy,getdate()) and hourid= datepart
(hh,getdate()) and userid='" & userid & "'"
conn.execute strSQL
end sub

sub ExecWeekStatic(userid)
'处理每周的日数据
strSQL="select * from WeekStatic where weekid=datepart(ww,getdate()) and userid='" & userid & "'"
set rst=openRst()
rst.open strSQL,conn,3,3
if rst.eof and rst.bof then
strSQL="delete from WeekStatic where userid='" & userid & "'"
conn.execute strSQL
for i=0 to 6
strSQL="insert into WeekStatic values(datepart(ww,getdate())," & cStr(i) & ",'" & userid
& "',0)"
conn.execute strSQL
next
end if
strSQL="update weekstatic set num=num + 1 where weekid=datepart(ww,getdate()) and dayid+1= datepart
(dw,getdate()) and userid='" & userid & "'"
conn.execute strSQL
end sub

sub ExecMonthStatic(userid)
'处理每月的日数据
strSQL="select * from MonthStatic where monthid=datepart(mm,getdate()) and userid='" & userid & "'"
set rst=openRst()
rst.open strSQL,conn,3,3
if rst.eof and rst.bof then
strSQL="delete from MonthStatic where userid='" & userid & "'"
conn.execute strSQL
for i=1 to 31
strSQL="insert into MonthStatic values(datepart(mm,getdate())," & cStr(i) & ",'" & userid
& "',0)"
conn.execute strSQL
next
end if
strSQL="update monthstatic set num=num + 1 where monthid=datepart(mm,getdate()) and dayid= datepart
(dd,getdate())"
conn.execute strSQL
end sub

sub ExecYearStatic(userid)
'处理每年的月数据
strSQL="select * from YearStatic where yearid=datepart(yy,getdate()) and userid='" & userid & "'"
set rst=openRst()
rst.open strSQL,conn,3,3
if rst.eof and rst.bof then
strSQL="delete from YearStatic where userid='" & userid & "'"
conn.execute strSQL
for i=1 to 12
strSQL="insert into YearStatic values(datepart(yy,getdate())," & cStr(i) & ",'" & userid
& "',0)"
conn.execute strSQL
next
end if
strSQL="update YearStatic set num=num + 1 where Yearid=datepart(yy,getdate()) and Monthid= datepart
(mm,getdate()) and userid='" & userid & "'"
conn.execute strSQL
end sub

完整的访问统计程序（二 程序篇）

完整的访问统计程序（二程序篇）