function getStoredProcByArray(str,CommandTextName)'str为数组,二列n行,第一列为模版参数,第二列为实际参数值,CommandTextName为参数名称 dim myComm,i,j set myComm=server.CreateObject("adodb.command") with myComm .ActiveConnection=conn .CommandText=CommandTextName .CommandType=adCmdstoredProc for i=0 to ubound(str,1) if str(i,0)<>"" then set myPar=.CreateParameter(str(i,0),adVarchar,adParamInput,5) .Parameters.Append mypar .Parameters(str(i,0))=str(i,1) end if next end with set getStoredProcByArray=myComm.Execute() end function