龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

asp数据连接函数与关闭

时间:2012-12-31 22:56来源:未知 作者:admin 点击:
分享到:

asp数据连接函数,asp数据连接函数与关闭

Sub ConnectionDatabase()
 On Error Resume Next
 Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open Connstr
 If Err Then
  Err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错,请打开conn.asp文件检查连接字串。"
  Response.End
 End If
End Sub
Sub CloseConn()
 On Error Resume Next
 If IsObject(Conn) Then
  Conn.Close
  Set Conn = Nothing
 End If
 Set Newasp = Nothing
End Sub


精彩图集

赞助商链接