許多ASP程式設計師都有執行資料庫查詢,然後將查詢結果以HTML表格的形式顯示出來的經驗。通常我們是這麼做的:
| 以下是引用片段: <% 'Create connection / recordset 'Populate data into recordset object %> <TABLE> <% Do While not rs.EOF %> <TR> <TD ><%=rs(Field1)% ></TD> <TD ><%=rs(Field2)% ></TD> . </TR> <% rs.MoveNext Loop %> </TABLE> |
如果查詢結果很多,伺服器解釋你的ASP script將花費大量的時間,因為有許多的Response.Write語句要處理. 如果你將輸出的全部結果放在一個很長的字串裡(從到),那麼伺服器只需解釋一遍Response.Write語句,速度就會快得多. 微軟公司裡的一些能幹的傢伙已經將想法變成了現實. (注意,這是一個ADO 2.0以上才有的特性.如果你還在使用以前版本的話,請升級到最新版)
有了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表格的例子裡所看到的那樣,每列用...分隔,每行用...分隔。例子的程式碼:
| 以下是引用片段: <%@ 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表格的每列之間都會有的HTML程式碼,每行之間的HTML程式碼是. GetString方法將輸出正確的HTML程式碼並存放在strTable中,這樣我們只需一行Response.Write便可以輸出資料集中的所有記錄. 讓我們來看個簡單的例子,假設我們的查詢結果傳回了以下的行和列:
| 以下是引用片段: Col1 Col2 Col3 Row1 Bob Smith 40 Row1 Ed Frank 43 Row1 Sue Void 42 |
GetString語句傳回的字串將會是:
| 以下是引用片段: Bob</td ><td >Smith</td ><td >40</td ><td ></td ></tr ><tr >< td >Ed ... |
這個字串看起來冗長而雜亂,但它就是想要的HTML程式碼。 (注意看,我們在手工書寫的HTML程式碼中,將放在它的後面。這是因為我們的格式化字串中並不含有這些表格頭尾所需的字串。)