www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > gbmadconn.asp

    <%
Option Explicit
Response.Buffer=True
Dim conn,rs
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("wokao.mdb")
'conn.Open "Provider=数据库引擎;Data Source="& Server.MapPath("数据库名字")
Set rs=Server.CreateObject("ADODB.Recordset")

Sub connclose
Set rs=Nothing
conn.Close
Set conn=Nothing
end Sub
%>