開放源碼 - 訪客統計查詢（一）

統計 檔案：Statistics_Connection.asp
<%
' ----- 聲明 - 強制變數聲明 -----
Option Explicit

' ----- 技巧 - 代替<!--#Include File="ADOVBS.Inc"-->，ADO 常量 -----
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->

' ----- 模組 - 建立資料庫連接 -----
Dim cnnStatistics
Dim strDatabase

' ----- 聲明 - 資料庫路徑字串 -----
strDatabase = ""

Set cnnStatistics = Server.CreateObject("ADODB.Connection")
With cnnStatistics
.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath(strDatabase)
.Open
End With

' ----- 子程 - 關閉資料庫連接 -----
Sub CloseDatabase
cnnStatistics.Close
Set cnnStatistics = Nothing
End Sub
%>

檔案：Statistics_CSS.css
Body
{
color: Black;
font-family: Verdana,Tahoma,宋體;
font-size: 10;
margin-top: 5;
}
TD
{
font-family: Verdana,Tahoma,宋體;
font-size: 10;
height: 2 em;
}
TD.CH
{
font-size: 12;
}
A
{
COLOR: Black;
TEXT-DECORATION: Underline;
}
A:hover
{
COLOR: Black;
TEXT-DECORATION: None;
}
Form
{
margin: 0;
}
Input
{
font-family: Verdana,宋體;
font-size: 12;
height: 20;
}
Option
{
height: 1.5 em;
}
Textarea
{
font-family: Verdana,宋體;
font-size: 12;
}
.ColorBottomL1
{
background-color: #333333;
}
.ColorBottomL1_Back
{
background-color: #ffffff;
}
.ColorBottomL2_ItemTop
{
background-color: #aaaaaa;
}
.ColorBottomL2_ItemBody
{
background-color: #dddddd;
}
.ColorHighLight
{
background-color: #ff7f66;
}
.ColorLowLight
{
background-color: #dddddd;
}
.ColorPinned
{
background-color: #ff7f66;
}