''显示表头
For i=0 to Columns.Count-1
Response.Write("<td align=left width=200 height=13>")
Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>")
Next
Response.Write("</tr>")
''显示内容
rs.pagesize=1
For i=1 to rs.PageSize
Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")
For j=0 to Columns.Count-1
Response.Write("<td align=right width=200 height=13><font size=2>"&Columns(j)&"</font></td>")
Next
Response.Write("</tr>")
请多指教!