<%
dim conn
Sub DataConnect()
	If isObject(Conn) Then Exit Sub
	Set Conn = Server.CreateObject("Adodb.Connection")
	Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("img.asp")
	Conn.Open
	If Err Then
		Set Conn = Nothing
		Response.Write "數據庫連接錯誤，可能數據庫路徑設置錯誤。<br><font color=red>" & Err.description & "<br>"
		Err.Clear()
		Response.End
	End If
End Sub
Sub DataDisConnect()
	If Not isObject(Conn) Then Exit Sub
	Conn.Close : Set Conn = Nothing
End Sub
%>