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