conn.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

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

dim conn
dim connstr
dim db
dim rs
db="data/data.mdb"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
	
conn.Open connstr
%>