面向对象的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 < nFields; 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 < nFields; 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 += '<' + 'table>/n';
while (!rsADO.EOF)
{ // add each record to table
htmlDSO += '<' + 'tr>';
for (var i=0; i < nFields; i++)
{
htmlDSO += '<' + 'td id=' + rsADO(i).name + '>' + rsADO(i).value + '<' + '/td>';
}
htmlDSO += '<' + '/tr>/n';
rsADO.MoveNext();
}
htmlDSO += '<' + '/table>';
}
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 < nFields; i++)
{
propName = rsADO(i).name;
var c0 = propName.charAt(0);
if ((propName.indexOf(' ') == -1) && ((c0 >= 'A' && c0 <= 'Z') || (c0 >= 'a' && c0 <= 'z')))
{ // 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 < nFields; 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 < nFields; 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 += '<' + 'table>/n';
while (!rsADO.EOF)
{ // add each record to table
htmlDSO += '<' + 'tr>';
for (var i=0; i < nFields; i++)
{
htmlDSO += '<' + 'td id=' + rsADO(i).name + '>' + rsADO(i).value + '<' + '/td>';
}
htmlDSO += '<' + '/tr>/n';
rsADO.MoveNext();
}
htmlDSO += '<' + '/table>';
}
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 < nFields; i++)
{
propName = rsADO(i).name;
var c0 = propName.charAt(0);
if ((propName.indexOf(' ') == -1) && ((c0 >= 'A' && c0 <= 'Z') || (c0 >= 'a' && c0 <= 'z')))
{ // 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