<%
        dim conn
	Dim connstr
        dim dbpath
		dbpath="../../data/#ylmv.mdb"
		connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
	On Error Resume Next
		Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open connstr

	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "Sorry! 数据库连接出错，请检查连接字串。"
		Response.End
	End If

%>