'建一個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
%>