Statistics <!--#Include file= "statistics_connection.asp"-->
<! DOCTYPE HTML PUBLIC "-//w3c//dtd HTML 4.01 transitional//en" >
<title>statistics details</title>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<meta name= "Author" content= "Jack Ma" >
<link rel= "stylesheet" type= "Text/css" href= "Statistics_css.css" >
<script language= "JavaScript" >
<!--
function ChangeColor (argptr, Argcolor)
{
Argptr.style.backgroundcolor=argcolor;
}
-->
</script>
<body>
<div align= "center" >
<table width= "100%" border= "0" cellspacing= "1" cellpadding= "0" class= "ColorBottomL1" >
<tr>
<td>
<%
Dim Rststatisticsday
Dim strwritehtml, Colorover, Colorout, Colordbclick
Set rststatisticsday = Server.CreateObject ("ADODB. Recordset ")
With Rststatisticsday
. ActiveConnection = Cnnstatistics
. CursorType = adOpenForwardOnly
. LockType = adLockReadOnly
. Source = "Select Visitdate, Count (ID) as visitsdaily from IPs Group by visitdate order by Visitdate Desc"
. Open
End With
Strwritehtml = _
"<table class= ' colorbottoml1_back ' border= ' 0 ' width= ' 100% ' cellpadding= ' 5 ' cellspacing= ' 1 ' >" & vbCrLf & _
"<tr class= ' colorbottoml2_itemtop ' ><td><b>date</b></td><td><b>visits </B></td></tr> "& VbCrLf
Colorover = Chr & "#ffcc66" & Chr (34)
Colorout = Chr & "#cccccc" & Chr (34)
Do as not rststatisticsday.eof
Strwritehtml = Strwritehtml _
& (_
"<tr class= ' Colorbottoml2_itembody '" _
& ">" _
& Rststatisticsday ("visitsdaily") & "</td>" & vbCrLf _
& "</tr>" & vbCrLf _
)
Rststatisticsday.movenext
Loop
strwritehtml = strwritehtml & "</table>"
Response.Write strwritehtml
Rststatisticsday.close
Set Rststatisticsday = Nothing
Call CloseDatabase
%>
<td>
<tr>
</table>
</div>
</body>
