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