conn.asp

来自「8款下载系统源代码 2003-3-11 21:37:45 433 949k · 」· ASP 代码 · 共 12 行

<%
	dim conn
	dim connstr
	Set conn = Server.CreateObject("ADODB.Connection")
'设置SQL连接
'	connstr="driver={SQL Server};server=localhost;UID=sa;PWD=;database=club"
'设置Access连接
	Connstr="DBQ="+server.mappath("download.asp")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
	conn.Open connstr
%>