Object-oriented ASP programming four - some common functions

Function RecordSetasArray (RSADO, INCLUDEHEADERROW) // puts the data in the ado.recordset to a array // When INCLUDEHEADERROW generates a field title line, do not generate {var = new array; var nfields = r = RSADO .Fields.count; if (nfields) {var n = 0; if (includeHeaderrow) {// include first row as header of field names var = new array (nfields); for (var i = 0; i

Function RecordSetASDSO (RSADO) // puts the data in the ado.recordset in a table, returns the HTML code of this table {var htmldso = '; var nfields = rsado.fields.count; if (nfields) {var n = 0; HTMLDSO = '<' 'Table> / N'; while (! Rsado.eof) {// add each record to table htmldso = '<' 'TR>'; for (var i = 0; I ' RSADO (i) .Value '<' '/ TD>';} HTMLDSO = '<' '/ TR> / n'; rsado.movenext ();} htmldso = '<' '/ table>';} Return HTMLDSO;

Function RecordsetSlist (Rsado, Field) // Put the data of a field in ado.recordset in an array {var = new array; var nfields = rsado.fields.count; if (nfields) {var n = 0; IF (! (rsado.eof && rsado.bof)) rsado.movefirst () while (! rsado.eof) {// add performance [n ] = rsado (field) .Value; rsado.movenext () ;}} return rsArray;} function RecordAsObject (rsADO, objectName) // manner object returns a record {if (typeof (objectName) == 'undefined') objectName = 'RSObject' ado.recordset in; var strObject = 'Function' Objectname '() {'; var nfields = rsado.fields.count; if (! rsado.eof) {var value = new string; var pROPNAME = new string; for (var i = 0; i < Nfields; i ) {propName = RSADO (i) .name; var c0 = propName.Charat (0); if ((PropName.indexOf ('') == -1) && ((c0> = 'a' && c0 <= 'Z') || (C0> = 'a' && ca <= '))) {// Exclude Fields That Are Invalid Variable Names Value = RSADO (i) .Value; IF (ISNAN (Parsefloat Value))) Strobject = 'this.' PropName '= " Value '"; Else Strobject =' this. ' PropName ' = ' value '; ';}}} Strobject ='} '; EVAL (Strobject); Return Eval (' NEW ' ObjectName }

Function RecordSetasArray (RSADO, INCLUDEHEADERROW) // puts the data in the ado.recordset to a array // When INCLUDEHEADERROW generates a field title line, do not generate {var = new array; var nfields = r = RSADO .Fields.count; if (nfields) {var n = 0; if (includeHeaderrow) {// include first row as header of field names var = new array (nfields); for (var i = 0; i / n'; while (! Rsado.eof) {// add each record to table htmldso = '<' 'tr>'; for VAR i = 0; i RSADO (i) .Value ' <' ' / TD> ';} HTMLDSO =' <' ' / TR> / n '; rsado.movenext (); } HTMLDSO = '<' '/ table>';} Return HTMLDSO;

Function RecordsetSlist (Rsado, Field) // Put the data of a field in ado.recordset in an array {var = new array; var nfields = rsado.fields.count; if (nfields) {var n = 0; IF (! (rsado.eof && rsado.bof)) rsado.movefirst () while (! rsado.eof) {// add performance [n ] = rsado (field) .Value; rsado.movenext () ;}} return rsArray;} function RecordAsObject (rsADO, objectName) // manner object returns a record {if (typeof (objectName) == 'undefined') objectName = 'RSObject' ado.recordset in; var strObject = 'Function' Objectname '() {'; var nfields = rsado.fields.count; if (! rsado.eof) {var value = new string; var pROPNAME = new string; for (var i = 0; i < Nfields; i ) {propName = RSADO (i) .name; var c0 = propName.Charat (0); if ((PropName.indexOf ('') == -1) && ((c0> = 'a' && c0 <= 'Z') || (C0> = 'a' && ca <= '))) {// Exclude Fields That Are Invalid Variable Names Value = RSADO (i) .Value; IF (ISNAN (Parsefloat Value))) Strobject = 'this.' PropName '= " Value '"; Else Strobject =' this. ' PropName ' = ' value '; ';}}} Strobject ='} '; EVAL (Strobject); Return Eval (' NEW ' ObjectName }

Note: Some of this function is derived from Microsoft Scripting Library in Microsoft InterDev.