ASP calls stored procedure

1.

<%

Set DataConn = Server.createObject ("AdoDb.Connection") 'Establishing a connection object

Dataconn.open "DSN = sinotrans; server = app_server; uid = sa; pwd =; app = microsoft (r) developer studio; wsid = app_server; regional = yes

Set cmdtemp = server.createObject ("adodb.command") 'Establishing a command object

SET RST = Server.createObject ("AdoDb.Recordset") 'Establishing record set objects

cmdtemp.commandtext = "dbo.pd_test" "stored procedure name

CMDTemmndType = 4 'command category is 4, indicating as a stored procedure

Set cmdtemp.activeConnection = Dataconn

Set tmparam = cmdtemp.createParameter ("Return Value", 3, 4, 4)

cmdtemp.parameters.Append TMPAMETERS.APPEND TMPARAM

Set tmparam = cmdtemp.createparameter ("@ Begindate", 135, 1, 16, riqi)

'Creating an input parameter object

cmdtemp.parameters.Append TMPAMETERS.APPEND TMPARAM

Rst.open cmdtemp,, 1, 3 'generate query results

%>

The stored procedure called here is PD_TEST, which is the standard method provided in the ADO, but there is a problem, which is when there are more than two SELECT statements during the stored procedure, but from logically can't be executed simultaneously, ADO It will be prompted that there are too many SELECT statements during storage, and the solution is to directly execute the stored procedure directly with the Execute method of the ADO's Connection object, as follows:

<%

Set DataConn = Server.createObject ("AdoDb.Connection") 'Establishing a connection object

Dataconn.open "DSN = sinotrans; server = app_server; uid = sa; pwd =; app = microsoft (r) developer studio; wsid = app_server; regional = yes

SS = "execute dbo.pd_test" & "" & riqi1 & "" "

SET RS = Dataconn.execute (SS)

%>

2.

<% '===== In the ASP script, call the data setup process ================================== =========== OpenDB '==== Open the database connection ====

SET COMM = Server.createObject ("AdoDb.command")

Set comm.activeconnection = Objconn

Comm.commandtype = adcmdstoredProc '== Call Type Not stored Procedure ==

Comm.commandtext = "registeruser" === stored procedure name ======%>

<% '======= Create a stored procedure Returns Parameter Object ====

'Set retcode = comm.createparameter ("Retcode", Adinteger, AdParamReturnValue, 4)

%>

<% '======= Create a stored procedure input parameter object ====

Comm.Parameters.Append Comm.createParameter ("@ USRNAME", 200, 1, 100, txt_qyname)

Comm.Parameters.Append Comm.createParameter ("@ USRcode", 200, 1, 50, txt_qycode)

%>

<%

SET RS3 = COMM.EXECUTE '==== Create record set object ======

Revalue = RS3 ("Revalue")

QY_ID = RS3 ("QY_ID")

QY_PWD = RS3 ("QY_PWD")

%>

<% '==== Depending on the data fixture stored procedure, the registration is determined whether the registration is successful ====%>

<% if revalue <0 THEN%>

<% Response.write ("