网上商场 帐户管理方面 　　　 1.实现了购物车和收藏夹的功能。 　　　 2.实现了历史订单查询以及即时订单跟踪。 　　　 3.实现了个人资料修改,查询以及送货人信息修改和查询。 　

				
								Response.Expires=0
				Dim Percent(),BarWidth()
				Dim Conn,Sql,Rs
				Dim TotalNum,Assay,MaxWidth,Rows,i
				
				MaxWidth=200
				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
				%>
				
				
				
				
				
				
				
				   
				   
				    
				  
				   
				    
				    
				      访问者所用操作系 统 分 析 （总量：） 
				    
				    
				  
				   
				    
				    
				      
				         
				         
				          操作系统
				          访问人数
				          百分比
				          图示
				        
				        
				         
				          
				          
				          
				          
				        
				        
				         
				      
				
				    
				  
				   
				    				src="Image/photodown.gif">