resolution.asp

来自「一个足球彩票程序,不是原创.是朋友偷来的!」· ASP 代码 · 共 50 行

ASP
50 行
字号 
<!--#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>

resolution.asp - 源码说明

本页面展示了「一个足球彩票程序,不是原创.是朋友偷来的!」中的 resolution.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与程序相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?