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

文件：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.itcnw.com/

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：阿拉伯数字转中文数字函数
• 下一篇文章：开放源码 - 访客统计查询（二）