z_dgconn.asp

此文件为一个电子同学录

<%
	dim connDG,dgconnstr
	
	'更改点歌数据库名字
	const dgDB="data/musicData.mdb" 
	dgconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dgDB) 
	'如果你的服务器采用较老版本Access驱动，请用下面连接方法  
	'dgconnstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dgDB)
	
	Set connDG = Server.CreateObject("ADODB.Connection")             	
	connDG.Open dgconnstr
	set dgconnstr=nothing

function CloseDB()
	connDG.close
	set connDG=nothing
End Function	 
%>