<%
'---------------------
' write by 绿水青山
' 本插件经由 cyp2 修改适应DVBBS7.0.0
'---------------------
	dim connDG,dgconnstr
	
	'更改点歌数据库名字
	const dgDB="data/z_diange.asp" 
	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	 
%>