下面代码演示7行代码将数据库中的表按表格显示

set rst=Server.CreateObject("Adodb.Recordset")

rst.Open "select * from users", "DRIVER={SQL Server};server=llh;database=bbs;uid=sa;pwd=", 1, 3, adCmdText

tBody=rst.getString(2,,"</td><td>","</td></tr><tr><td>")

For i=0 to rst.fields.count-1

tHead=thead&"<td>"&rst.fields(i).name&"</td>"

next

response.write "<table border><tr>"&tHead&"</tr><tr><td>"&left(tBody,len(tBody)-8)&"</table>"