最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 高级数据连接方法
时间：2022-07-02 23:11:51 编辑：袖梨 来源：一聚教程网
<%
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
%>