物件導向的asp編程之四–一些常用的函數

function RecordSetAsArray(rsADO,includeHeaderRow)
//把ado.recordset中的資料存放到一個數組裡
//當includeHeaderRow為真時產生欄位標題列，當為假時不產生
{
?var rsArray = new Array;
?var nFields = rsADO.Fields.Count;
?if (nFields)
?{
??var n = 0;
??if (includeHeaderRow)
??{?// include first row as header of field names
???var rsRow = new Array(nFields);
???for (var i=0; i ????rsRow[i] = rsADO(i).name;
???rsArray[n++] = rsRow;
??}
??? if (!(rsADO.EOF&&rsADO.Bof))
????? rsADO.MoveFirst()??
??while (!rsADO.EOF)
??{?// add each record to array
???rsRow = new Array(nFields);
???for (var i=0; i ????rsRow[i] = rsADO(i).value;
???rsArray[n++] = rsRow;
???rsADO.MoveNext();
??}
?}
?return rsArray;
}

function RecordSetAsDSO(rsADO)
//把ado.recordset中的資料放到一個表格中，返回這個表格的html代碼
{
?var htmlDSO = '';
?var nFields = rsADO.Fields.Count;
?if (nFields)
?{
??var n = 0;
??htmlDSO += '/n';???
??while (!rsADO.EOF)
??{?// add each record to table
???htmlDSO += '';???
???for (var i=0; i ???{
????htmlDSO += '' + rsADO(i).value + '';
???}
???htmlDSO += '/n';???
???rsADO.MoveNext();
??}
??htmlDSO += '';???
?}
?return htmlDSO;
}

function RecordSetAsList(rsADO,field)
//把ado.recordset中的某個欄位的資料放到數組中
{
?var rsArray = new Array;
?var nFields = rsADO.Fields.Count;
?if (nFields)
?{
??var n = 0;
??if (!(rsADO.EOF&&rsADO.Bof))
????? rsADO.MoveFirst()?
??while (!rsADO.EOF)
??{?// add each value of field into array
???rsArray[n++] = rsADO(field).value;
???rsADO.MoveNext();
??}
?}
?return rsArray;
}

function RecordAsObject(rsADO,objectName)
//以對象的方式返回ado.recordset中的一條記錄
{
?if (typeof(objectName) == 'undefined')
??objectName = 'RSObject';
?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 ??{
???propName = rsADO(i).name;
???var c0 = propName.charAt(0);
???if ((propName.indexOf(' ') == -1) && ((c0 >= 'A' && c0 = 'a' && c0 ???{?// 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)
//把ado.recordset中的資料存放到一個數組裡
//當includeHeaderRow為真時產生欄位標題列，當為假時不產生
{
?var rsArray = new Array;
?var nFields = rsADO.Fields.Count;
?if (nFields)
?{
??var n = 0;
??if (includeHeaderRow)
??{?// include first row as header of field names
???var rsRow = new Array(nFields);
???for (var i=0; i ????rsRow[i] = rsADO(i).name;
???rsArray[n++] = rsRow;
??}
??? if (!(rsADO.EOF&&rsADO.Bof))
????? rsADO.MoveFirst()??
??while (!rsADO.EOF)
??{?// add each record to array
???rsRow = new Array(nFields);
???for (var i=0; i ????rsRow[i] = rsADO(i).value;
???rsArray[n++] = rsRow;
???rsADO.MoveNext();
??}
?}
?return rsArray;
}

function RecordSetAsDSO(rsADO)
//把ado.recordset中的資料放到一個表格中，返回這個表格的html代碼
{
?var htmlDSO = '';
?var nFields = rsADO.Fields.Count;
?if (nFields)
?{
??var n = 0;
??htmlDSO += '/n';???
??while (!rsADO.EOF)
??{?// add each record to table
???htmlDSO += '';???
???for (var i=0; i ???{
????htmlDSO += '' + rsADO(i).value + '';
???}
???htmlDSO += '/n';???
???rsADO.MoveNext();
??}
??htmlDSO += '';???
?}
?return htmlDSO;
}

function RecordSetAsList(rsADO,field)
//把ado.recordset中的某個欄位的資料放到數組中
{
?var rsArray = new Array;
?var nFields = rsADO.Fields.Count;
?if (nFields)
?{
??var n = 0;
??if (!(rsADO.EOF&&rsADO.Bof))
????? rsADO.MoveFirst()?
??while (!rsADO.EOF)
??{?// add each value of field into array
???rsArray[n++] = rsADO(field).value;
???rsADO.MoveNext();
??}
?}
?return rsArray;
}

function RecordAsObject(rsADO,objectName)
//以對象的方式返回ado.recordset中的一條記錄
{
?if (typeof(objectName) == 'undefined')
??objectName = 'RSObject';
?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 ??{
???propName = rsADO(i).name;
???var c0 = propName.charAt(0);
???if ((propName.indexOf(' ') == -1) && ((c0 >= 'A' && c0 = 'a' && c0 ???{?// 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);
}

?

註：此中的一些函數來源於MIcrosoft 的interdev中的Microsoft Scripting Library