<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master")=false and whatcan<2 then Response.Redirect "help.asp?id=004&error=您没有查看客户端软件统计的权限。" %> <%=countname%>－客户端软件及访问统计
<% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath(connpath) conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath %>

Tips: 用鼠标点指图形柱或者对应的文字可以看到对应的访问量。


<%'浏览器使用情况 dim soft(7,2) soft(0,0)="NetCaptor" soft(1,0)="MSIE 6.x" soft(2,0)="MSIE 5.x" soft(3,0)="MSIE 4.x" soft(4,0)="Netscape" soft(5,0)="Opera" soft(6,0)="Other" '将浏览器情况写入数组，howsoft soft(0,1)=howsoft("NetCaptor") soft(1,1)=howsoft("MSIE 6.x") soft(2,1)=howsoft("MSIE 5.x") soft(3,1)=howsoft("MSIE 4.x") soft(4,1)=howsoft("Netscape") soft(5,1)=howsoft("Opera") soft(6,1)=howsoft("Other") '找到最大值和总值 maxsoft=0 sumsoft=0 for i=0 to 6 if soft(i,1)>maxsoft then maxsoft=soft(i,1) sumsoft=sumsoft+soft(i,1) next '防止除数为0而出错 if maxsoft=0 then maxsoft=1 if sumsoft=0 then sumsoft=1 %>
   ∷∷∷ 浏览器及访问量 ∷∷∷
<% for i= 0 to 6 %> <% next %> <% for i= 0 to 6 %> <%next%>

<%=int(maxsoft*10+0.5)/10%>

<%=int(3*maxsoft*10/4+0.5)/10%>

<%=int(maxsoft*10/2+0.5)/10%>

<%=int(maxsoft*10/4+0.5)/10%>

 <%=soft(i,0)%>，访问<%=soft(i,1)%>次，<% '计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0 lsbf=int(soft(i,1)*1000/sumsoft+0.5)/10 if lsbf<1 then lsbf=%">

0

 %"><%=left(soft(i,0),6)%>

<%'操作系统使用情况 dim OS(7,2) OS(0,0)="Win 2000" OS(1,0)="Win XP" OS(2,0)="Win NT" OS(3,0)="Win 9x" OS(4,0)="类Unix" OS(5,0)="Mac" OS(6,0)="Other" '将操作系统情况写入数组，howOS OS(0,1)=howOS("Win 2000") OS(1,1)=howOS("Win XP") OS(2,1)=howOS("Win NT") OS(3,1)=howOS("Win 9x") OS(4,1)=howOS("类Unix") OS(5,1)=howOS("Mac") OS(6,1)=howOS("Other") '找到最大值和总值 maxOS=0 sumOS=0 for i=0 to 6 if OS(i,1)>maxOS then maxOS=OS(i,1) sumOS=sumOS+OS(i,1) next '防止除数为0而出错 if maxOS=0 then maxOS=1 if sumOS=0 then sumOS=1 %>
   ∷∷∷ 操作系统及访问量 ∷∷∷
<% for i= 0 to 6 %> <% next %> <% for i= 0 to 6 %> <%next%>

<%=int(maxOS*10+0.5)/10%>

<%=int(3*maxOS*10/4+0.5)/10%>

<%=int(maxOS*10/2+0.5)/10%>

<%=int(maxOS*10/4+0.5)/10%>

 <%=OS(i,0)%>，访问<%=OS(i,1)%>次，<% '计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0 lsbf=int(OS(i,1)*1000/sumOS+0.5)/10 if lsbf<1 then lsbf=%">

0

 %"><%if i=0 then%>Win 2k<%else%><%=OS(i,0)%><%end if%>

   ∷∷∷ 客户端屏幕宽度统计 ∷∷∷
<% Set rs = Server.CreateObject("ADODB.Recordset") sql="select vwidth,count(id) as allwidth from view where vwidth<>0 group by vwidth order by vwidth DESC" rs.Open sql,conn,1,1 maxallwidth=0 sumallwidth=0 do while not rs.EOF if cint(rs("allwidth"))>maxallwidth then maxallwidth=cint(rs("allwidth")) sumallwidth=sumallwidth+cint(rs("allwidth")) rs.MoveNext loop '防止除数为零而出错 if maxallwidth=0 then maxallwidth=1 if sumallwidth=0 then sumallwidth=1 rs.MoveFirst do while not rs.EOF thewidth=rs("vwidth") vallwidth=rs("allwidth") %> <% rs.MoveNext loop %>
%"><%=thewidth%>  <%=thewidth%>像素，<%=vallwidth%>次，<% '计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0 lsbf=int(vallwidth*1000/sumallwidth)/10 if lsbf<1 then lsbf=%"> <%=vallwidth%>
<% rs.Close set rs=nothing conn.Close set conn=nothing %>
<% '计算使用指定浏览器的浏览量 function howsoft(vsoft) tmprs=conn.execute("Select count(id) as howsoft from view where" & _ " vsoft='" & vsoft & "'") howsoft=tmprs("howsoft") if isnull(howsoft) then howsoft=0 end function '计算使用指定操作系统的浏览量 function howOS(vOS) tmprs=conn.execute("Select count(id) as howOS from view where" & _ " vOS='" & vOS & "'") howOS=tmprs("howOS") if isnull(howOS) then howOS=0 end function %>