1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim conn,connstr,db db= "test.mdb" On Error Resume Next Set conn = Server.CreateObject( "ADODB.Connection" ) connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.211\test\test.mdb;Jet OLEDB:Database Password=;Persist Security Info=False" conn.Open connstr If Err Then Response.Write err.description 'err.Clear Set Conn = Nothing Response.Write "系统日常维护中!" Response. End End If |
联系客服