'建一個command對象
set comm = server.CreateObject ("adodb.command")
'建立連接
comm.ActiveConnection = conn
'設(shè)置command調(diào)用類型是存儲過程 (adCmdSPStoredProc = 4)
comm.CommandType = 4
'定義command 對象調(diào)用名稱
comm.CommandText = "P_advkind"
'定義輸入?yún)?shù)
set CommPa1 = comm.CreateParameter ("參數(shù)1" , adVarChar , adParamInput , 10 , "參數(shù)1")
set CommPa2 = comm.CreateParameter ("參數(shù)2" , VarChar ,adParamInput ,20 , 參數(shù)2)
set CommPa3 = comm.CreateParameter ("參數(shù)3" ,varChar ,adParamInput ,100 , 參數(shù)3)
set CommPa4 = comm.CreateParameter ("參數(shù)4" ,vrChar ,adParamInput ,1000 , 參數(shù)4)
AddPadd 4
'運(yùn)行存儲過程
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
%>