asp连接SQLServer2000数据库代码

<% 

'=====以下是ASP与SQLServer的连接===== 

dim Sql_Server,Sql_User,Sql_Pass,Sql_Data 

Sql_Server = "127.0.0.1" '数据库服务器地址 

Sql_User = "sa" '数据库登录名 

Sql_Pass = "sa123" '数据库密码 

Sql_Data = "UserTable" '数据库名

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

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

'===ASP与SQLServer的连接代码结束== 

Set rs=my_Conn.Execute("Select*From UserTable") 

Do While Not rs.Eof 

Response.Write rs("user_id")&" "&rs("user_name")&"<br>" 

rs.movenext 

loop 

set rs=nothing 

CloseConn() 

%>