conn.asp

一个很好的下载系统原码

<%
	dim startime
	dim conn
	dim connstr
	startime=timer()
	
function openarticle
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_article)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function opensites
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_sites)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function opennews
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_news)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function opendiary
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_diary)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function opendown
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_down)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function opengb
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_gb)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function openadmin
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_admin)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function

function openservice
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_service)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
    conn.Open connstr
End Function
	
function CloseDatabase

	Conn.close
	Set conn = Nothing

End Function
%>