此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了。完全后台操作。

				
				
								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
				%>
				
				
				网站统计分析系统
				
				
				
								if Instr(session("AdminPurview"),"|117,")=0 then 
				  response.write ("你不具有该管理模块的操作权限，请返回！")
				  response.end
				end if
				'========判断是否具有管理权限
				%>
				
				
				  
				    
				      网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表
				    
				    
				      统计概况
				      最近访问
				      年 报 表
				      月 报 表
				      周 报 表
				      日 报 表
				      历史报表
				      修改信息
				    
				    
				      地区分析
				      地址分析
				      IP 地 址
				      链接页面
				      访问次数
				      操作系统
				      浏 览 器
				      屏幕大小
				    
				  
				  
				  
				    
				      访问者链接页面分析 ( 总量： )    [ 来访页面分析 ]
				    
				    
				      来访网站
				      访问人数
				      百分比
				      图示
				    
				    					    Exfor=Exfor+1%>
				    
				      
				        
				        
				        
				      
				      
				      
				      
				    
				    =30 Then Exit For
					    Next%>