Command.asp

Command.asp

<%
Dim conn,cmd
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOleDb.1;Data Source=(local);User ID=sa;Password=;Initial Catalog=Pubs"
Set cmd=Server.CreateObject("ADODB.Command")

'-----Command 對象的屬性-----
cmd.ActiveConnection=conn
cmd.CommandText="reptq1"
cmd.CommandTimeout=30 '預設30秒
cmd.CommandType=1 '無傳回值請用 +128
cmd.CommandType=2
cmd.CommandType=4
cmd.Prepared=True

'-----Command 對象的方法-----
Dim rs
Set rs=cmd.Execute(,,1)
'Set rs=cmd.Execute(,,2)
Set rs=cmd.Execute(,,4)
Dim param(0)
param(0)=cmd.CreateParameter("percentage",3,1,,30) 'adInteger:3 adParamInput:1 adParamOutput:2
cmd.CommandText="byroyalty"
Set rs=Cmd.Execute(,param,4)

'-----測試語句-----
Dim i
Response.Write("<table><tr>")
For i=0 To rs.Fields.Count-1 
    Response.Write("<td>" & rs(i).Name & "</td>")
Next
Response.Write("</tr>")
Do While NOT rs.EOF 
    Response.Write("<tr>") 
    For i=0 To rs.Fields.Count-1 
        Response.Write("<td>" & rs(i) & "</td>") 
    Next 
    Response.Write("</tr>") 
    rs.MoveNext
Loop
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>