sql = "select * from 表名"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if(not rs.eof)then
  for i=0 to rs.fields.count-1
    response.write(rs.fields.item(i).name & " ")
  next

  response.write("<br/>")

  while(not rs.eof)
    for i=0 to rs.fields.count-1
      response.write(rs.fields.item(i).value& " ")
    next
    response.write("<br/>")
    rs.movenext
  wend

end if