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