📄 ip.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 + -