有了GetString方法,我們就可以僅用一個Response.Write來顯示所有的輸出了,它就象是能判斷Recordset是否為EOF的DO ... LOOP循環(huán)。 GetString的用法如下(所有的參數(shù)都是可選的): String = recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr) 要從Recordset的結(jié)果里生成HTML表格,我們只需關(guān)心GetString的5個參數(shù)中的3個: ColumnDelimiter(分隔記錄集的列的HTML代碼),RowDelimiter(分隔記錄集的行的HTML 代碼),和NullExpr(當前記錄為空時應(yīng)生成的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"結(jié)果生成的HTML表格的代碼。 HTML表格的每列之間都將有[/td][td]的HTML代碼,每行之間的HTML代碼是[/td][/td][tr][td]. GetString方法將輸出正確的HTML代碼并存放在strTable中,這樣我們只需一行Response.Write便可以輸出數(shù)據(jù)集中的所有記錄. 讓我們來看個簡單的例 子,假設(shè)我們的查詢結(jié)果返回了以下的行和列: 以下是引用片段: Col1 Col2 Col3 Row1 Bob Smith 40 Row1 Ed Frank 43 Row1 Sue Void 42