面向对象的asp编程之四--一些常用的函数

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航