<% 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 "数据库连接错误，可能数据库路径设置错误。
" & Err.description & "
" Err.Clear() Response.End End If End Sub Sub DataDisConnect() If Not isObject(Conn) Then Exit Sub Conn.Close : Set Conn = Nothing End Sub %>