<%
option explicit
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="partyWeb" '数据库名称
Pass_word="" 'Password=帐号密码
User_ID="sa" 'User ID=登陆帐号
Data_Source="127.0.0.1" 'Data Source=服务名称或者ip

Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
function CloseDb
Conn.close
Set conn = Nothing
End Function
%>


连接代码如上，但是老是出先错误
错误类型：
Microsoft OLE DB Provider for SQL Server (0x80004005)
用户 'sa' 登录失败。原因: 未与信任 SQL Server 连接相关联。
/cxzgdsw/include/conn.asp, 第 15 行


请大家帮帮忙指点下 ~谢谢