根据传入的recordset对象实例，按表格输出内容子过程

根据传入的recordset对象实例，按表格输出内容子过程

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 根据传入的recordset对象实例，按表格输出内容子过程 (http://www.webasp.net/article/24/23573.htm)

-- 作者：未知
-- 发布日期： 2005-05-09

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

webasp.net