<%
set conn= Server.CreateObject("adodb.connection")
'conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("news.mdb")
conn.open "driver={sql server};server=localhost;database=news;uid=sa;pwd=hjf990911"
+++++++++++++++++++++++++++++
set cmd= Server.CreateObject("adodb.command")
cmd.activeconnection=conn
cmd.commandtype=4
cmd.commandtext="query"
set rs=cmd.execute
do while not rs.eof
response.write rs(0)&"<p>"
rs.movenext
loop
+++++++++++++++++++++++++++++
set cmd=server.createobject("adodb.command")
cmd.activeconnection=conn
cmd.commandtype=4
cmd.commandtext="query1"
cmd.parameters.append cmd.createparameter("@typeid",200,1,10,3)
set rs=cmd.execute
do while not rs.eof
response.write rs("title")&"<p>"
rs.movenext
loop
+++++++++++++++++++++++++++++
set cmd= Server.CreateObject("adodb.command")
cmd.activeconnection=conn
cmd.commandtype=4
cmd.commandtext="query2"
cmd.parameters.append cmd.createparameter("@id",200,1,10,1)
cmd.parameters.append cmd.createparameter("@typename",200,2,100)
cmd.parameters.append cmd.createparameter("@title",200,2,100)
cmd.execute
response.write cmd("@title")
response.write " "
response.write cmd("@typename")
%>
CREATE procedure [dbo].[query2]
@id int,@title varchar(100) output,@typename varchar(100) output
as
select @title=title,@typename=typename from news inner join newstype on news.typeid=newstype.typeid where id=@id