一个asp程序中调用存储过程问题？

[631799]

问：我是用以下这个代码调存储过程的，请问这个方法是不是合理？
有没有效率更好一点的方法，请相告。


'建一个command对象
set comm = server.CreateObject ("adodb.command")
'建立连接
comm.ActiveConnection = conn
'设置command调用类型是存储过程 (adCmdSPStoredProc = 4)
comm.CommandType = 4
'定义command 对象调用名称
comm.CommandText = "P_advkind"
'定义输入参数
set CommPa1 = comm.CreateParameter ("参数1" , adVarChar , adParamInput , 10 , "参数1")
set CommPa2 = comm.CreateParameter ("参数2" , VarChar ,adParamInput ,20 , 参数2)
set CommPa3 = comm.CreateParameter ("参数3" ,varChar ,adParamInput ,100 , 参数3)
set CommPa4 = comm.CreateParameter ("参数4" ,vrChar ,adParamInput ,1000 , 参数4)

AddPadd 4

'运行存储过程
comm.Execute

'清空对象
Set comm.ActiveConnection = nothing
Set comm = nothing

Response.Redirect "/success.asp?zho="&server.URLEncode ("添加成功！")

CloseDB

sub AddPadd(num)
dim i
for i=1 to num
execute "comm.Parameters.Append CommPa"&i
next
end sub
%>

[zjcxc]

'没必要,可以直接这样用

'建一个command对象
set comm = server.CreateObject ("adodb.command")
'建立连接
comm.ActiveConnection = conn
'设置command调用类型是存储过程 (adCmdSPStoredProc = 4)
comm.CommandType = 4
'定义command 对象调用名称
comm.CommandText = "P_advkind"
comm.Parameter.Refresh '自动创建参数
'参数赋值
comm.Parameter ("参数1")="参数1"
comm.Parameter ("参数2")="参数2"
comm.Parameter ("参数3")="参数3"
comm.Parameter ("参数4")="参数4"

'运行存储过程
comm.Execute

'清空对象
Set comm = nothing

Response.Redirect "/success.asp?zho="&server.URLEncode ("添加成功！")

CloseDB

sub AddPadd(num)
dim i
for i=1 to num
execute "comm.Parameters.Append CommPa"&i
next
end sub
%>