生成html的ASP企业站点,可以进行二次开发的

				
				
								Response.Expires=0
				Dim Percent(),BarWidth()
				
				Dim TotalNum,Assay,MaxWidth,Rows,i,iExFor
				
				iExFor=0
				MaxWidth=270
				TotalNum=0
				Sql="Select * From FWeburl Order By TWebNum 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
				%>
				
				
				网站统计分析系统
				
				
				
								Dim SERVER_NAME
				SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
				
				if Instr(session("AdminPurview"),"|40,")=0 then 
				    response.write ("您没有管理该模块的权限！")
				  response.end
				end if
				'========判断是否具有管理权限
				%>
				
				
				  
				      
				        网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表
				      
				      
				        统计概况
				        最近访问
				        年 报 表
				        月 报 表
				        周 报 表
				        日 报 表
				        历史报表
				        修改信息
				      
				      
				        地区分析
				        地址分析
				        IP 地 址
				        链接页面
				        访问次数
				        操作系统
				        浏 览 器
				        屏幕大小
				      
				  
				  
				  
				    
				      访问者链接页面分析 ( 总量： )    [ 来访页面分析 ]
				    
				    
				      来访网站
				      访问人数
				      百分比
				      图示
				    
				    					    Exfor=Exfor+1%>
				    
				      
				        
				        
				        
				      
				      
				      
				    
				    =30 Then Exit For
					    Next%>