<%if Request.Cookies("WrzcNet")("admin_name")="" or Request.Cookies("WrzcNet")("admin_class")="" then
response.redirect "Wrzcnet_login.asp"
elseif Request.Cookies("WrzcNet")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if%>
<!--#include file="tj_config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
<title><%=countname%>－客户端软件及访问统计</title>
<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>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
<table width=500 cellspacing=0 align=center>
  <tr><td>
    <p style="line-height: 100%; margin-left: 15; margin-top: 5; margin-bottom: 0">
    Tips: 用鼠标点指图形柱或者对应的文字可以看到对应的访问量。</p>
  </td></tr>
</table>
<br>


<%'浏览器使用情况

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
%>
<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">
    
		&nbsp; <img src="img/tb_title.gif" align=absmiddle> &nbsp;∷∷∷ 浏览器及访问量 ∷∷∷<br>
<table border="0" cellpadding="0" cellspacing="0" width="385" align=center>
<tr height="9"><td></td></tr>
<tr height="101">

<td align=right valign=top>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13">
<font face="Arial"><%=int(maxsoft*10+0.5)/10%></font>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13">
<font face="Arial"><%=int(3*maxsoft*10/4+0.5)/10%></font>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13">
<font face="Arial"><%=int(maxsoft*10/2+0.5)/10%></font>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0">
<font face="Arial"><%=int(maxsoft*10/4+0.5)/10%><br></font></td>
<td width=10><img src="img/tu_back_left.gif"></td>
<%
for i= 0 to 6
%>
<td width=45 valign=bottom background="img/tu_back.gif" align=center>
<img style="BORDER-BOTTOM: #000000 1px solid" src="img/tu.gif"
	height="<%=(soft(i,1)/maxsoft)*100%>" width="9"
	alt="<%=soft(i,0)%>，访问<%=soft(i,1)%>次，<%
	
	'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
	lsbf=int(soft(i,1)*1000/sumsoft+0.5)/10
	if lsbf<1 then lsbf="0" & lsbf
	Response.Write lsbf
	
	%>%"></td>
<%
next
%>
<td width=10><img src="img/tu_back_right.gif"></td>
<td width=10></td>
</tr>

<tr>
<td align=right>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0">
<font face="Arial">0</font></td>
<td width=10></td>
<%
for i= 0 to 6
%>
<td width=45 align=center>
<a title="<%=soft(i,0)%>，访问<%=soft(i,1)%>次，<%
	
	'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
	lsbf=int(soft(i,1)*1000/sumsoft+0.5)/10
	if lsbf<1 then lsbf="0" & lsbf
	Response.Write lsbf
	
	%>%"><%=left(soft(i,0),6)%></font></a></td>
<%next%>
<td width=10></td>
<td width=10></td>
</tr>
<tr height="5"><td></td></tr>
</table>

	</td>
    <td width="1" class="backs"></td>
  </tr>
  <tr><td colspan="4"><img src="img/photodown.gif"></td></tr>
</table>

<br>



<%'操作系统使用情况

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
%>
<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">
    
		&nbsp; <img src="img/tb_title.gif" align=absmiddle> &nbsp;∷∷∷ 操作系统及访问量 ∷∷∷<br>
<table border="0" cellpadding="0" cellspacing="0" width="385" align=center>
<tr height="9"><td></td></tr>
<tr height="101">

<td align=right valign=top>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13">
<font face="Arial"><%=int(maxOS*10+0.5)/10%></font>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13">
<font face="Arial"><%=int(3*maxOS*10/4+0.5)/10%></font>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 13">
<font face="Arial"><%=int(maxOS*10/2+0.5)/10%></font>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0">
<font face="Arial"><%=int(maxOS*10/4+0.5)/10%><br></font></td>
<td width=10><img src="img/tu_back_left.gif"></td>
<%
for i= 0 to 6
%>
<td width=45 valign=bottom background="img/tu_back.gif" align=center>
<img style="BORDER-BOTTOM: #000000 1px solid" src="img/tu.gif"
	height="<%=(OS(i,1)/maxOS)*100%>" width="9"
	alt="<%=OS(i,0)%>，访问<%=OS(i,1)%>次，<%
	
	'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
	lsbf=int(OS(i,1)*1000/sumOS+0.5)/10
	if lsbf<1 then lsbf="0" & lsbf
	Response.Write lsbf
	
	%>%"></td>
<%
next
%>
<td width=10><img src="img/tu_back_right.gif"></td>
<td width=10></td>
</tr>

<tr>
<td align=right>
<p style="line-height: 100%; margin-right: 2; margin-top: 0; margin-bottom: 0">
<font face="Arial">0</font></td>
<td width=10></td>
<%
for i= 0 to 6
%>
<td width=45 align=center>
<a title="<%=OS(i,0)%>，访问<%=OS(i,1)%>次，<%
	
	'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
	lsbf=int(OS(i,1)*1000/sumOS+0.5)/10
	if lsbf<1 then lsbf="0" & lsbf
	Response.Write lsbf
	
	%>%"><%if i=0 then%>Win 2k<%else%><%=OS(i,0)%><%end if%></font></a></td>
<%next%>
<td width=10></td>
<td width=10></td>
</tr>
<tr height="5"><td></td></tr>
</table>

	</td>
    <td width="1" class="backs"></td>
  </tr>
  <tr><td colspan="4"><img src="img/photodown.gif"></td></tr>
</table>



<br>

<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">
    
		&nbsp; <img src="img/tb_title.gif" align=absmiddle> &nbsp;∷∷∷ 客户端屏幕宽度统计 ∷∷∷<br>

<table border="0" cellpadding="0" cellspacing="0" width="270" align=center>
<tr height="9"><td></td></tr>
<tr height="10">
	<td width="40"></td><td width="230"><img src="img/tu_back_up.gif"></td>
</tr>
<%


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")
%>
<tr>
<td width="40" align=right><a title="<%=thewidth%>像素，<%=vallwidth%>次，<%
	'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
	lsbf=int(vallwidth*1000/sumallwidth)/10
	if lsbf<1 then lsbf="0" & lsbf
	Response.Write lsbf
	%>%"><%=thewidth%></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="<%=(vallwidth/maxallwidth)*183%>" height="9"
	alt="<%=thewidth%>像素，<%=vallwidth%>次，<%
	'计算访问量的百分数，精确到小数后1位，小于零的在前面加字母0
	lsbf=int(vallwidth*1000/sumallwidth)/10
	if lsbf<1 then lsbf="0" & lsbf
	Response.Write lsbf
	%>%"> <%=vallwidth%></td>
</tr>
<%
rs.MoveNext
loop
%>
<tr height="10">
	<td width="40"></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 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
%>