⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ip.asp

📁 一个足球彩票程序,不是原创.是朋友偷来的!
💻 ASP
字号:
<!--DO NOT DELETE-->
<%
'----------------------------------------------------------------------------------------
'  Simple Designs Web Company - Simple Designs Counter
'                                                                                             
'  This program is free software/source code and does not come with a warrenty.
'
'  You can modify (at your own risk) any part of this program with the exception of when
'  the <!--DO NOT DELETE--> tags are above and below a line or lines of code throughout the
'  software. Code between and including these tags may not be modifed for any reason without
'  permission of the author.
' 
'  You may not pass the whole or any part of this application off as your own work.
'
'  Copyright 1999-2003 Beau Durrant All Rights Reserved.
'
'  Program Author: Beau Durrant (beau@sdwebco.com)
'
'  Simple Designs Web Company
'  http://www.sdwebco.com
'  915 8th Street South
'  Lethbridge, Alberta
'  T1J 2K7
'  Canada
'
'----------------------------------------------------------------------------------------
%>
<!--DO NOT DELETE-->

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

<body>

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

<%

strSQL = "SELECT ip from counter Order by ip;"
	rsCounter.Open strSQL, adoCon

	oldBrowser = rsCounter("ip")

	browser = 0

Do While(not rsCounter.Eof)

	if(oldBrowser <> rsCounter("ip")) 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("ip")

	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

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

⌨️ 快捷键说明

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