dim Conn,Strconn Set Conn = Server.CreateObject("ADODB.Connection") Strconn="Provider = Microsoft.Jet.OLEDB.4.0; " Strconn=Strconn & "Data Source=数据库物理路径" Conn.Open Strconn If Err Then err.Clear Conn.close:set Conn=nothing Response.Write "对不起,数据库连接出错。" Response.End End If