28,391
社区成员
发帖
与我相关
我的任务
分享
<%
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
if conn = null then
Response.write("sssssssssss")
end if
Set com = Server.CreateObject("ADODB.Command")
if com = null then
Response.write("xxxxxxxxx")
end if
%>
<%
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
If Err Then
Err.Clear
Response.Write("ADODB.Connection对象创建失败")
End If
If Not IsObject(conn) Then
Response.Write("ADODB.Connection对象存在")
End If
Set com = Server.CreateObject("ADODB.Command")
If Err Then
Err.Clear
Response.Write("ADODB.Command对象创建失败")
End If
If Not IsObject(com) Then
Response.Write("ADODB.Command对象存在")
End If
%>