有了GetString方法,我们就可以仅用一个Response.Write来显示所有的输出了,它就象是能判断Recordset是否为EOF的DO ... LOOP循环。 GetString的用法如下(所有的参数都是可选的): String = recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr) 要从Recordset的结果里生成HTML表格,我们只需关心GetString的5个参数中的3个: ColumnDelimiter(分隔记录集的列的HTML代码),RowDelimiter(分隔记录集的行的HTML 代码),和NullExpr(当前记录为空时应生成的HTML代码)。就象你在下面生成HTML表格的例子里所看到的那样,每列用[td]...[/td]分隔,每行用[tr]...[/tr]分隔。例子的代码: 以下是引用片段: %@ LANGUAGE="VBSCRIPT" %> % Option Explicit 'Good coding technique 'Establish connection to DB Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=Northwind;" 'Create a recordset Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * FROM table1", conn 'Store our one big string Dim strTable strTable = rs.GetString(,,"/td >td >","/td >/tr >tr >td >" ," ") %> HTML> BODY> TABLE> TR >TD> % Response.Write(strTable) %> /TR >/TD> /TABLE> /BODY> /HTML> % 'Cleanup! rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>
strTable字符串用于存放我们从"Select * FROM table1"结果生成的HTML表格的代码。 HTML表格的每列之间都将有[/td][td]的HTML代码,每行之间的HTML代码是[/td][/td][tr][td]. GetString方法将输出正确的HTML代码并存放在strTable中,这样我们只需一行Response.Write便可以输出数据集中的所有记录. 让我们来看个简单的例 子,假设我们的查询结果返回了以下的行和列: 以下是引用片段: Col1 Col2 Col3 Row1 Bob Smith 40 Row1 Ed Frank 43 Row1 Sue Void 42