asp调用外部数据库连接

<%
Dim conn, sql, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server_address;Initial Catalog=your_database_name;User ID=your_username;Password=your_password"

sql = "SELECT * FROM your_table"
Set rs = conn.Execute(sql)

Do While Not rs.EOF
    Response.Write rs("column_name") & "<br>"
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

<%
Dim conn, cmd, param
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server_address;Initial Catalog=your_database_name;User ID=your_username;Password=your_password"

Dim userInput
userInput = Request.QueryString("id")

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM your_table WHERE id = ?"
cmd.Parameters.Append cmd.CreateParameter("@id", adInteger, adParamInput, , userInput)

Set rs = cmd.Execute

Do While Not rs.EOF
    Response.Write rs("column_name") & "<br>"
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>