<%
Dim Administrator,PassWord,Durl,Wbname
On Error Resume Next
Wbname="本站播放器"       '设置网站名称
Administrator="admin"     '管理用户名
PassWord="123456"         '管理密码
Durl="csdata/#QvodCms_data#Play####.mdb" '数据库路径
JaJaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Durl)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open JaJaConn
If Err Then
	Err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错!"
	Response.End
End If
%>