<cfif (NOT CompareNoCase(#opCode#,"GetProcedures"))>
    <cfquery name="ResultSet" datasource=#ConnectionString# username=#UserName# password=#Password#>
        SELECT sysobjects.name as PROCEDURE_NAME,sysusers.name as PROCEDURE_SCHEMA
        FROM sysobjects,sysusers
        WHERE sysobjects.uid=sysusers.uid AND sysobjects.type='P' ORDER BY PROCEDURE_NAME
    </cfquery>
</cfif>
<cfif (NOT CompareNoCase(#opCode#,"GetParametersOfProcedure"))>
    <cfif IsDefined("ProcName")>
        <cfquery name="ResultSet" datasource=#ConnectionString# username=#UserName# password=#Password#>
            SELECT syscolumns.name As 'PARAMETER_NAME', systypes.name As 'DATA_TYPE', syscolumns.isoutparam As 'PARAMETER_TYPE'
            FROM syscolumns, sysobjects, systypes
            WHERE syscolumns.id = sysobjects.id
            AND systypes.xtype = syscolumns.xtype
            AND sysobjects.XTYPE = 'P'
            AND sysobjects.name  = '#ProcName#'
            AND systypes.name in (select name from master.dbo.systypes) and systypes.name <> 'sysname'
            order by syscolumns.colid
        </cfquery>
    </cfif>
</cfif>
<cfif (NOT CompareNoCase(#opCode#,"ExecuteSP"))>
    <cfif IsDefined("ExecProcName")>
        <cfscript>
            dotIndex = Find("dbo.",#ExecProcName#);
            if (dotIndex GT 0)
            {
                #ExecProcName# = Mid(#ExecProcName#,dotIndex+4,Len(#ExecProcName#)-dotIndex);            
            }
        </cfscript>
        <cfquery name="ProcParams" datasource=#ConnectionString# username=#UserName# password=#Password#>
            SELECT syscolumns.name As 'PARAMETER_NAME', systypes.name As 'DATA_TYPE', syscolumns.isoutparam As 'PARAMETER_TYPE'
            FROM syscolumns, sysobjects, systypes
            WHERE syscolumns.id = sysobjects.id
            AND systypes.xtype = syscolumns.xtype
            AND sysobjects.XTYPE = 'P'
            AND sysobjects.name  = '#ExecProcName#'
            AND systypes.name in (select name from master.dbo.systypes) and systypes.name <> 'sysname'
            order by syscolumns.colid
        </cfquery>
        <cfscript>
            CallStatement = "{call ";
            CallStatement = CallStatement & #ExecProcName#;
            if (ProcParams.RecordCount GT 0)
            {
                CallStatement = CallStatement & "(";
                MM_columns = ListToArray(ProcParams.ColumnList,",");
                For (i=1; i LTE ProcParams.RecordCount ; i=i+1)
                {
                    paramdirection = ProcParams["PARAMETER_TYPE"][i];
                    paramtype       = ProcParams["DATA_TYPE"][i];
                    delimiter       = "";
                    defaultvalue   = 0;

                    switch (paramtype)
                    {
                        case "char":
                        case "nchar*":
                        case "varchar":
                        case "nvarchar*":
                        case "date":
                        case "datetime":
                        case "smalldatatime":
                        {
                            delimiter = "'";
                            defaultvalue = "";
                            break;
                        }
                        default:
                        {
                            delimiter = "";
                        }
                    }

                    if (paramdirection GT 0)
                    {
                        if(i GT 1)
                        {
                            CallStatement = CallStatement & ",";
                        }

                        CallStatement = CallStatement & delimiter & defaultvalue & delimiter;
                    }
                    else
                    {
                        if(i GT 1)
                        {
                            CallStatement = CallStatement & ",";
                        }

                        CallStatement = CallStatement & delimiter & ProcParams["PARAMETER_NAME"][i] & delimiter;
                    }
                }

                CallStatement = CallStatement & ")";
            }

            MM_params = ListToArray(#ExecProcParameters#,",");
            For (i=1; i LTE ArrayLen(MM_params); i=i+2)
            {
                MM_paramName =     MM_params[i];
                MM_paramValue = MM_params[i+1];
                if (MM_paramValue EQ "empty")
                {
                    MM_paramValue = "";
                }
                CallStatement = REReplaceNoCase(CallStatement,MM_paramName,MM_paramValue);
            }
            CallStatement = CallStatement & "}";
        </cfscript>
        <cfquery name="ResultSet" datasource=#ConnectionString# username=#UserName# password=#Password# MaxRows=#MaxRows#>
            #PreserveSingleQuotes(CallStatement)#
        </cfquery>
    </cfif>
</cfif>

解释这种代码有意义吗？

这么厉害......................