如何用asp代码连接sql server 2000 windows身份验证模式

ASP与SQLServer的连接代码,我常用的:
<%

dim Sql_Server,Sql_User,Sql_Pass,Sql_Data
Sql_Server = "127.0.0.1" '数据库服务器地址或服务器名
Sql_User = "sa" '数据库登录名
Sql_Pass = "" '数据库密码
Sql_Data = "Office" '数据库名

'以下部分不能做任何的修改！

dim my_Conn,connstr
connstr = "PROVIDER=SQLOLEDB;DATA

SOURCE="&Sql_Server&";UID="&Sql_User&";PWD="&Sql_Pass&";DATABASE="&Sql_Data
set my_Conn = server.createobject("ADODB.connection") '创建数据库连接对象
my_Conn.open connstr '连接数据库

'定义关闭连接池
sub CloseConn()
my_Conn.close
set my_Conn=nothing
end sub
%>