<%
'=====以下是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()
%>