一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp 高级数据连接方法

时间:2009-05-12 编辑:简简单单 来源:一聚教程网

<%
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
%>

热门栏目