一个足球彩票程序,不是原创.是朋友偷来的!

				
				
				Counter Statistics
				
				
				
				Operating System:
				
				
								
				strSQL = "SELECT count(os) as counter from counter where os  '';"
					rsCounter.Open strSQL, adoCon
				
					totalCounter = rsCounter("counter")
				
				rsCounter.Close
				
				
				strSQL = "SELECT os,ip from counter where os  '' Order by os ASC;"
					rsCounter.Open strSQL, adoCon
				
					oldBrowser = rsCounter("os")
				
					browser = 0
				
				Do While(not rsCounter.Eof)
				
					if(oldBrowser  rsCounter("os")) then
						Response.Write "" & oldBrowser & "" & formatNumber(browser/totalCounter*100,0) & "%"
						browser = 0
					End If	
				
					browser = browser + 1
					
					oldBrowser = rsCounter("os")
				
					rsCounter.MoveNext	
				Loop
				
				Response.Write "" & oldBrowser & "" & formatNumber(browser/totalCounter*100,0) & "%"
				Response.Write ""
				
				rsCounter.Close
				
				%>
				
				
				** Win98/ME/95
				** WinNT/XP/2000/3.1