7,714
社区成员
发帖
与我相关
我的任务
分享
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