asp连sqlserver测试代码

<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB

strServer = "HUA-5780C2D1CCF"        'SQL数据库服务器地址
strUid = "sa"                '数据库用户名
strPwd = "123456"        '数据库密码
strDB = "hima"                '数据库名

'On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "driver={sql server};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDB
Conn.Open Connstr

If Err Then
       err.Clear
       Set Conn = Nothing
       Response.Write "<div id=""DBError"">数据库服务器端连接错误，请与网站管理员联系。</div>"
       Response.End  
else
     Response.Write"链接成功"                      
End If
%>