<%
dim OBJ_Conn
dim Str_Conn
dim Str_DataBase
'数据库名字
Str_DataBase="这里填写你的数据库路径(相对路径)"
Set OBJ_Conn = Server.CreateObject("ADODB.Connection")
Str_Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Str_DateBase&"")
OBJ_Conn.Open Str_Conn
%>