你试试这样写,应该可以了.On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={SQL Server};server=SEM-12 ;uid=ll;pwd=ll;dsz=ll" if err<>0 then Response.Write "数据无法打开" Response.end end if if conn.state=0 then Response.Write "数据无法打开" Response.end end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL Server};server=SEM-12 ;uid=ll;pwd=ll;dsz=ll"
if err<>0 then
Response.Write "数据无法打开"
Response.end
end if
if conn.state=0 then
Response.Write "数据无法打开"
Response.end
end if