asp中记录集对象的getrows和getstring用法分析(2)

<TABLE Border=1> 
<TR><TD> 
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %> 
</TABLE> 

<TABLE Border=1> 
<TR> 
<TD>row1, field1 value</TD> 
<TD>row1, field2 value</TD> 
</TR> 
<TR> 
<TD>row2, field1 value</TD> 
<TD>row2, field2 value</TD> 
</TR> 
</TABLE> 

<% 
Set RS = conn.Execute("Select theValue,theText FROM selectOptionsTable orDER BY theText") 
optSuffix = "</OPTION>" & vbNewLine 
valPrefix = "<OPTION Value='" 
valSuffix = "'>" 
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" ) 
' Next line is the key to it! 
opts = Left( opts, Len(opts)-Len(valPrefix) ) 

Response.Write "<Select ...>" & vbNewLine 
Response.Write valPrefix & opts 
Response.Write "</Select>" 
%> 

<% 
Set RS = conn.Execute("Select * FROM table") 
tdSuffix = "</TD>" & vbNewLine & "<TD> 
trPrefix = "<TR>" & vbNewLine & "<TD>" 
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine 
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" ) 
' Next line is the key to it! 
opts = Left( opts, Len(opts)-Len(trPrefix) ) 
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine 
Response.Write trPrefix & opts 
Response.Write "</TABLE>" & vbNewLine 
%>

<% 
SQL = "Select '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table orDER BY text" 
Set RS = conn.Execute(SQL) 
Response.Write "<Select>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</Select>" 
%> 

<% 
SQL = "Select '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table orDER BY text" 
Set RS = conn.Execute(SQL) 
Response.Write "<Select>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</Select>" 
%>