ASP连接sql2005数据库

<%
'by:八星瓢虫
Dim Conn, ConnStr
Dim SqlVer
'sql版本，可设置连接2000或2005
Const SQL = 2000
Const ServerIP = "(local)"
Const DatabaseName = "数据库名"
Const AdminName = "用户名"
Const AdminPass = "密码"
If SQL = 2000 Then
    SqlVer = "SQLOLEDB.1"
Else
    SqlVer = "SQLNCLI.1"
End If
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=" & SqlVer & ";Persist Security InFso=true;Data Source='" & ServerIP & "';Initial Catalog='" & DatabaseName & "';User ID='" & AdminName & "';Password='" & AdminPass & "';CONNect Timeout=30"
Conn.Open ConnStr
%>