ASP创建并打开SQL数据库连接语句段

' on error resume next
set  Cn = server.createobject( " adodb.connection " )
Cn.open  " driver={sql server};description=sqldemo;server=127.0.0.1;uid=sa;pwd=123;database=cqsloa008 "
     If  Err  Then
        err.Clear
         Set  Cn  =   Nothing
        Response.Write  " 科长：数据库连接出错，请检查连接字串。 "
        Response.End
     End   If
set  rs = server.createobject( " adodb.recordset " )

' 关闭数据库连接
sub  CloseCn()
' On Error Resume Next
    Cn.close
     set  Cn = nothing
end sub