根据传入的recordset对象实例，按表格输出内容子过程-ASP教程,数据库相关

function iif(cond,expr1,expr2)
 if cond then
  iif = expr1
 else
  iif = expr2
 end if
end function

sub outinfo(rst)

 allcount=rst.recordcount-1

 response.write “<table id=tablemx><form method=post action=manage.asp>”
    
  response.write “<tr><td>all<input type=checkbox name=allselect></td>”
  
  for k=0 to rst.fields.count-1

   response.write “<td>”&rst(k).name&”</td>”

  next

  response.write “</tr>”
 
 for i=0 to allcount

  response.write “<tr><td>”&i&”<input type=checkbox name=su_no value=”&rst(“su_no”)&”></td>”

  for k=0 to rst.fields.count-1

   response.write “<td>”&rst(k).value&”</td>”

  next

  response.write “</tr>”&vbcrlf

  rst.movenext

 next

 response.write “</table>total records [“&allcount+1&”]</form>”

end sub