📄 browser.asp

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

💻 ASP

字号:

<!--#include file="common.inc" -->
<html>
<head><title>Counter Statistics</title></head>

<body>

<font face="verdana, arial, helvetica" size=2>
<b>Browser Type:</b><br><br><center><table border = 1 width=400>

<%

strSQL = "SELECT count(browser) as counter from counter where browser <> '';"
	rsCounter.Open strSQL, adoCon

	totalCounter = rsCounter("counter")

rsCounter.Close

strSQL = "SELECT browser,ip from counter where browser <> '' Order by browser;"
	rsCounter.Open strSQL, adoCon

	oldBrowser = rsCounter("browser")

	browser = 0

Do While(not rsCounter.Eof)

	if(oldBrowser <> rsCounter("browser")) then
		Response.Write "<tr><td width=""35%"">" & oldBrowser & "</td><td align=right><font size=1>" & formatNumber(browser/totalCounter*100,0) & "%<br></font><img src=""/skin/imagebar.jpg"" height=25 width = """ & browser/totalCounter*100 + 1 & "%""></td></tr>"
		browser = 0
	End If	

	browser = browser + 1
	
	oldBrowser = rsCounter("browser")

	rsCounter.MoveNext	
Loop

Response.Write "<tr><td width=""35%"">" & oldBrowser & "</td><td align=right><font size=1>" & formatNumber(browser/totalCounter*100,0) & "%<br></font><img src=""/skin/imagebar.jpg"" height=25 width = """ & browser/totalCounter*100 + 1 & "%""></td></tr>"
Response.Write "</table>"

rsCounter.Close

%>
</font>
</center>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -