28,406
社区成员
发帖
与我相关
我的任务
分享用ADO连接数据库，如何判断连接是否有效？
执行连接指令后，如何判断连接是否已成功呢？不希望在连接失败时出现显示错误的页面，而是自己指定的提示信息。
...全文
请发表友善的回复…
发表回复
filippo1981 2005-11-26
- 打赏
- 举报
<%
On Error Resume Next
Dim Db,DatabasePath,Grade
Dim Member,Password,id,rsx,rs2,rs3,rs,sql,conn,ii,i,Money1,Money2
Session.Timeout = 20
Db="Database/YzShopCart.asp"
Set conn = Server.CreateObject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Db&"")
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错!"
Response.End
End If
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
End if
End Sub
%>
On Error Resume Next
Dim Db,DatabasePath,Grade
Dim Member,Password,id,rsx,rs2,rs3,rs,sql,conn,ii,i,Money1,Money2
Session.Timeout = 20
Db="Database/YzShopCart.asp"
Set conn = Server.CreateObject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Db&"")
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错!"
Response.End
End If
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
End if
End Sub
%>
