conn.asp

来自「网站 QCNEWS后台管理程序,风格流行功能强大」· ASP 代码 · 共 20 行

<%@LANGUAGE="VBSCRIPT"%>
<%
	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 Qcdn
	db="data/qcdn_news.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	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
	
	Set Qcdn=New Qcdn_newsFun
%>