开放源码 - 访客统计查询（一）

文件：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;
}

原文转自：http://www.ltesting.net