ASP存储过程调用

Set SPCommand=Server.CreateObject("ADODB.Command")

        Set SPCommand.ActiveConnection=cnn

        SPCommand.commandText="SP_GLKJ_DO_newEPS"

        SPCommand.CommandType=adCmdStoredProc

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@maxid",adInteger,adParamInput,,maxid)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@parent_id",adInteger,adParamInput,,uid)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@Code",adVarChar,adParamInput,40,code)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@Name",adVarChar,adParamInput,40,name)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@obs_sid",adSmallInt,adParamInput,,obs_sid)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@haschild",adSmallInt,adParamInput,,0)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@treelevel",adInteger,adParamInput,,treelevel)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@displayid",adInteger,adParamInput,,Displayid)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@pmt_id",adInteger,adParamInput,,pmt_id)

        SPCommand.ParaMeters.Append SPCommand.CreateParameter("@pmt_name",adVarChar,adParamInput,200,pmt_name)

        SPCommand.Execute

        SET SPCommand.ActiveConnection = Nothing

        Set SPCommand = Nothing