sconn.asp

来自「校园二手交易系统,具有完备的后台操作以及应用功能!」· ASP 代码 · 共 21 行

<%@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="../date1/date.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
%>