<%
'---------------------
' write by 绿水青山 for 动网6.0
' 本插件经由 gafc 修改适应leadbbs3.14
'---------------------
const minpoints="5000"       '设定允许点歌的最低积分值
const points1="300"          '设定每点一首歌消耗积分数

	

dim db,connDG,dgconnstr 
db="\bbs\plug-ins\dg\data\Z#_dgData.asp"     '更改点歌数据库名字，注意必须要设为绝对路径
Set connDG = Server.CreateObject("ADODB.Connection")
dgconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法  
'dgconnstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
connDG.Open dgconnstr
	


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

Sub ErrorMsg()
%>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightDarkColor%> align=center>
<td class=TBHead width="100%" height=25><font color=#ffffff class=HeadFont>论坛错误信息</font>
</td>
</tr>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
<td>
<b>产生错误的可能原因：</b><br><br>
<%=Errmsg%>
<br><br><br>
<a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><<返回上一页</a></td></tr>
<table>
<%
End sub	 
%>
<script language=javascript>
function openScript(url, width, height,left,top,r){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',left=' +left+ ',top='+top+',resizable=no,scrollbars='+r+',menubar=no,status=no' );
}

//以下为禁止鼠标右键的代码，不想禁止的可以删除
</script>