📄 resolution.asp
字号:
<!--#include file="common.inc" -->
<html>
<head><title>Counter Statistics</title></head>
<body>
<font face="verdana, arial, helvetica" size=2><b>Resolution:</b><br><br>
<center><table border = 1 width=400>
<%
strSQL = "SELECT count(resolution) as counter from counter Where resolution <> '';"
rsCounter.Open strSQL, adoCon
totalCounter = rsCounter("counter")
rsCounter.Close
strSQL = "SELECT resolution,ip from counter Where resolution <> '' Order by resolution;"
rsCounter.Open strSQL, adoCon
oldBrowser = rsCounter("resolution")
browser = 0
Do While(not rsCounter.Eof)
if(oldBrowser <> rsCounter("resolution")) 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("resolution")
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 + -