📄 date.asp
字号:
<!--#include file="common.inc" -->
<html>
<head><title>Counter Statistics</title></head>
<body>
<font face="verdana, arial, helvetica" size=2><b>Date:</b><br><br>
<%
Dim oldDay
Dim oldMonth
Dim yearTotal
Dim oldYear
Dim oldMonthCount
Dim newMonth
strSQL = "SELECT date from counter Order by date ASC;"
rsCounter.Open strSQL, adoCon
oldMonth = MonthName(Month(rsCounter("date")))
oldDay = Day(rsCounter("date"))
oldyear = Year(rsCounter("date"))
oldMonth = oldMonth & " " & oldyear
strSQL = "SELECT count(*) as totalcounter from counter Where date Like '" & Left(rsCounter("date"),2) & "%" & Right(rsCounter("date"),4) & "';"
rsCounter2.Open strSQL, adoCon
oldMonthCount = rsCounter2("totalcounter")
yearTotal = yearTotal + oldMonthCount
rsCounter2.Close
newMonth = MonthName(Month(rsCounter("date"))) & " " & Year(rsCounter("date"))
marker = 0
browser = 0
Response.Write "<font face=""verdana, arial, helvetica"" size=3>" & MonthName(Month(rsCounter("date"))) & " " & Year(rsCounter("date")) & "</font><br><br><center><table border = 1 width=400>"
Do While(not rsCounter.Eof)
if(oldDay <> Day(rsCounter("date"))) then
Response.Write "<tr><td width=""35%"">" & oldDay & " <p align=""right""><i><font size=1>Total: " & browser & "</font></i></p></td><td align=right><font size=1>" & formatNumber(browser/oldMonthCount*100,0) & "%<br></font><img src=""/skin/imagebar.jpg"" height=25 width = """ & browser/oldMonthCount*100 + 1 & "%""></td></tr>"
browser = 0
marker = 0
End If
browser = browser + 1
oldDay = Day(rsCounter("date"))
newMonth = MonthName(Month(rsCounter("date"))) & " " & Year(rsCounter("date"))
If(oldMonth <> newMonth) then
Response.Write "</table><p align=right>Month Total: " & oldMonthCount
if(oldYear <> Year(rsCounter("date"))) then
Response.Write "<br><br><i>" & Year(rsCounter("date")) & "</i> Year Total: " & yearTotal & "<br><br>"
yearTotal = 0
End If
Response.Write "</p></center><br><br><font face=""verdana, arial, helvetica"" size=3>" & MonthName(Month(rsCounter("date"))) & " " & Year(rsCounter("date")) & "</font><br><br><center><table border=1 width=400>"
oldMonth = MonthName(Month(rsCounter("date")))
oldyear = Year(rsCounter("date"))
oldMonth = oldMonth & " " & oldyear
strSQL = "SELECT count(*) as totalcounter from counter Where date Like '" & Left(rsCounter("date"),2) & "%" & Right(rsCounter("date"),4) & "';"
rsCounter2.Open strSQL, adoCon
oldMonthCount = rsCounter2("totalcounter")
yearTotal = yearTotal + oldMonthCount
rsCounter2.Close
End If
rsCounter.MoveNext
Loop
Response.Write "<tr><td width=""35%"">" & oldDay & " <p align=""right""><i><font size=1>Total: " & browser & "</font></i></p></td><td align=right><font size=1>" & formatNumber(browser/oldMonthCount*100,0) & "%<br></font><img src=""/skin/imagebar.jpg"" height=25 width = """ & browser/oldMonthCount*100 + 1 & "%""></td></tr>"
Response.Write "</table><p align=right>Month Total: " & oldMonthCount & "<br><br><i>(" & oldyear & ")</i> Year Total: " & yearTotal & "</p>"
rsCounter.Close
%>
</center>
</font>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -