【www.gdgbn.com--php高级应用】

<%
Session.CodePage = 936
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache" 
Response.Charset = "gb2312"

Dim Conn
Dim Connstr
Dim DatabasePath : DatabasePath = Server.MapPath("/database/)%&!%^!#!(@&.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath &";Persist Security Info=False"
Conn.Open Connstr

Sub CloseConn()
 Conn.Close
 Set conn = Nothing
End sub
%>

本文来源：http://www.gdgbn.com/jiaocheng/20096/