28,390
社区成员
发帖
与我相关
我的任务
分享
<%
dim mycomm,mypara
set mycomm=server.createobject("adodb.command")
mycomm.activeconnection=connstr '连接字符
mycomm.commandtext="Update_TR_V1" '存储过程
mycomm.commandtype=4 '说明这是个prod
mycomm.prepared=true '编译sql
'定义输入参数(200代表参数数据类型,1代表输入参数,10代表数据长度)
mycomm.parameters.append mycomm.createParameter("@P_date",200,1,10,P_date)
mycomm.parameters.append mycomm.createParameter("@P_user",200,1,10,P_user)
mycomm.parameters.append mycomm.createParameter("@P_shift",200,1,10,P_shift)
'定义返回值
set mypara=mycomm.createparameter("Ins_row",2,4)
'I是存储过程中的变量,在asp中最好是和sql一样的
mycomm.parameters.Append mypara
mycomm.execute
'取返回值
dim Retvalue
Retvalue=mycomm.parameters(0)
set mycomm=nothing
end if
%>
dim mycomm,mypara
set mycomm=server.createobject("adodb.command")
mycomm.activeconnection=connstr '连接字符
mycomm.commandtext="Update_TR_V1" '存储过程
mycomm.commandtype=4 '说明这是个prod
mycomm.prepared=true '编译sql
set mypara=mycomm.createparameter("RETURN",2,4)
'I是存储过程中的变量,在asp中最好是和sql一样的
mycomm.parameters.Append mypara
'定义输入参数(200代表参数数据类型,1代表输入参数,10代表数据长度)
mycomm.parameters.append mycomm.createParameter("@P_date",200,1,10,P_date)
mycomm.parameters.append mycomm.createParameter("@P_user",200,1,10,P_user)
mycomm.parameters.append mycomm.createParameter("@P_shift",200,1,10,P_shift)
'定义返回值
mycomm.execute
'取返回值
dim Retvalue
Retvalue=mycomm.parameters(0)
set mycomm=nothing
end if
dim mycomm,mypara
set mycomm=server.createobject("adodb.command")
mycomm.activeconnection=connstr '连接字符
mycomm.commandtext="Update_TR_V1" '存储过程
mycomm.commandtype=4 '说明这是个prod
mycomm.prepared=true '编译sql
'定义输入参数(200代表参数数据类型,1代表输入参数,10代表数据长度)
mycomm.parameters.append mycomm.createParameter("@P_date",200,1,10,P_date)
mycomm.parameters.append mycomm.createParameter("@P_user",200,1,10,P_user)
mycomm.parameters.append mycomm.createParameter("@P_shift",200,1,10,P_shift)
'定义返回值
set mypara=mycomm.createparameter("RETURN",2,4)
'I是存储过程中的变量,在asp中最好是和sql一样的
mycomm.parameters.Append mypara
mycomm.execute
'取返回值
dim Retvalue
Retvalue=mycomm.parameters(3)
set mycomm=nothing
end if