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

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 13次 | 进入软件测试论坛讨论

文件：Statistics_Connection.asp
<%
‘’ ----- 声明 - 强制变量声明 -----
Option Explicit

‘’ ----- 技巧 - 代替，ADO 常量 -----


‘’ ----- 模块 - 建立数据库连接 -----
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;
}