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

新客网 XKER.COM 2004-03-16 来源：收藏本文

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

上一篇：表单验证下一篇：开放源码 - 访客统计查询（二）

【收藏】【评论】【推荐】【投稿】【打印】【关闭】