有了GetString方法,我們就可以僅用一個(gè)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個(gè)參數(shù)中的3個(gè): ColumnDelimiter(分隔記錄集的列的HTML代碼),RowDelimiter(分隔記錄集的行的HTML 代碼),和NullExpr(當(dāng)前記錄為空時(shí)應(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ù)集中的所有記錄. 讓我們來看個(gè)簡單的例 子,假設(shè)我們的查詢結(jié)果返回了以下的行和列: 以下是引用片段: Col1 Col2 Col3 Row1 Bob Smith 40 Row1 Ed Frank 43 Row1 Sue Void 42