If Not IsObject(Conn) Then ConnectionDatabase这里


Sub ConnectionDatabase
Dim ConnStr
Db="data/elookarticle2.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错!!"
Response.End
End If
End Sub

[此贴子已经被作者于2005-12-5 15:43:29编辑过]

如果没连接数据库就连上

<%
Sub ConnectionDatabase
Dim ConnStr
Db="data/elookarticle2.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错!!"
Response.End
End If
End Sub
Call ConnectionDatabase()
Response.Write IsObject(Conn)
%>
我也是这样认为的,如果返回的是不是一个连接对象就连接上
但是我这样试了,返回的是false
只有这样才能返回true
<%
Dim ConnStr
Db="data/elookarticle2.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错!!"
Response.End
End If
Response.Write IsObject(Conn)
%>

[此贴子已经被作者于2005-12-5 16:01:51编辑过]