最好的自助建站系统！！最好的自助建站系统！！

				
				
								Response.Expires=0
				Dim Percent(),BarWidth()
				Dim TotalNum,Assay,MaxWidth,Rows,i
				
				MaxWidth=270
				TotalNum=0
				Sql="Select * From FSystem Order By TSysNum DESC"
				
				Rs.Open Sql,Conn,1,1
				If Not Rs.Bof And Not Rs.Eof Then
				   Assay=Rs.GetRows
				   Rows=Ubound(Assay,2)
				Else
				   Rows=-1
				End If
				Rs.Close
				Conn.Close
				Set Rs=Nothing
				Set Conn=Nothing
				For i=0 to Rows
					TotalNum=TotalNum+Assay(1,i)
				Next
				ReDim Percent(Rows)
				ReDim BarWidth(Rows)
				For i=0 to Rows
				    If TotalNum>0 Then
					   Percent(i)=FormatNumber(Int(Assay(1,i)/TotalNum*10000)/100,2,-1)&"%"
				       BarWidth(i)=Assay(1,i)/TotalNum*MaxWidth
					End If
				Next
				%>
				
				
				网站统计分析系统
				
				
				
								if Instr(session("AdminPurview"),"|117,")=0 then 
				  response.write ("你不具有该管理模块的操作权限，请返回！")
				  response.end
				end if
				'========判断是否具有管理权限
				%>
				
				
				  
				    
				      网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表
				    
				    
				      统计概况
				      最近访问
				      年 报 表
				      月 报 表
				      周 报 表
				      日 报 表
				      历史报表
				      修改信息
				    
				    
				      地区分析
				      地址分析
				      IP 地 址
				      链接页面
				      访问次数
				      操作系统
				      浏 览 器
				      屏幕大小
				    
				  
				  
				  
				    
				      访问者所用操作系统分析 ( 总量： )
				    
				    
				      操作系统
				      访问人数
				      百分比
				      图示