
以下是引用片段:
<%
'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>
如果查詢結(jié)果很多,服務(wù)器解釋你的ASP script將花費(fèi)大量的時(shí)間,因?yàn)橛性S多的Response.Write語句要處理. 如果你將輸出的全部結(jié)果放在一個(gè)很長的字符串里(從 到 ),那么服務(wù)器只需解釋一遍Response.Write語句,速度就會(huì)快得多 . 微軟公司里的一些能干的家伙已經(jīng)將想法變成了現(xiàn)實(shí). (注意,這是一個(gè)ADO 2.0以上才有的特性. 如果你還在使用以前版本的話,請(qǐng)升級(jí)到最新版)
有了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表格的例子里所看到的那樣,每列用...分隔,每行用...分隔。例子的代碼:
以下是引用片段:
以下是引用片段: <%@ 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表格的每列之間都將有的HTML代碼,每行之間的HTML代碼是. 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 |
GetString語句返回的字符串將是:
以下是引用片段:
以下是引用片段: Bob</td ><td >Smith</td ><td >40</td ><td ></td ></tr ><tr >< td >Ed ... |
這個(gè)字符串看上去冗長而雜亂,但它就是想要的HTML代碼。(注意看,我們?cè)谑止鴮懙腍TML代碼中,將放在它的后面. 這是因?yàn)槲覀兊母袷交址胁⒉缓羞@些表格 頭尾所需的字符串。)
您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。