ASP的连接数据库方法(最好详细；谢谢）

<%
dim conn
dim dbpath
dim dbfile

dbpath=server.MapPath("/mbinc/***.mdb")'相对路径
dbfile="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=www.mbzg.net;Persist Security Info=False;Data Source="&dbpath
Set conn=server.CreateObject("adodb.connection")
conn.open dbfile
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "服务器正在维护，请稍后再试。"
Response.End
End If

sub closeconn()
conn.close
set conn=nothing
end sub
%>

Dim Conn
Sub Open_Db()
On Error Resume Next
If IsObject(Conn) Then Exit Sub
Dim ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
If IsSqlDataBase = 1 Then 'MsSQL
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " &