asp如何链接sql server 2005数据库

asp怎样链接sql server 2005数据库，完整的conn.asp链接文件

<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
SqlDatabaseName = "xxx"      ‘SQL数据库名
SqlUsername = "xxx"               ‘SQL数据库用户名    
SqlPassword = "xxx"              ‘SQL数据库用户密码
SqlLocalName = "(local)"    ‘SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
ConnStr = "Provider = SQLNCLI.1; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

If Err Then
   err.Clear
   Set Conn = Nothing
   Response.Write "数据库连接出错，请检查连接字串。"
   Response.End
End If

sub CloseConn()
conn.close
set conn=nothing
end sub
%>