电脑知识十万个为什么-v1.5注册版.zip

				
								Response.Expires=0
				Dim Percent(),BarWidth()
				Dim Conn,Sql,Rs
				Dim TotalNum,Assay,MaxWidth,Rows,i,iExFor
				
				iExFor=0
				MaxWidth=200
				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
				%>
				
				
				网站统计分析系统
				
				
				
				
				
				
				  
				     
				     
				       
				        
				           
				           
				             
				              访 问 者 来 访 网 站 分 析 （总量：） 
				                                   
				                [链接页面分析] 
				              
				            
				          
				           
				            来访网站
				            访问人数
				            百分比
				            图示
				          
				          						  ExFor=ExFor+1%> 
				           
				            
							
							      
							 
							      
							 
				            
				            
				            
				          
				          =30 Then Exit For
						  Next%>