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