showrs.asp

vbsql做的销售管理课程设计样本不完全仅为范例

<%
Sub ShowRS(rs)      '显示结果集
   Response.write("<center><table border=1>")
   Response.write("<tr bgcolor=#ddeeff>")
   For i=0 to rs.Fields.Count-1
       response.write("<td>" & rs.Fields(i).Name & "</td>")
   next
   response.write("</tr>")
   while not rs.eof
       response.write("<tr>")
       for i=0 to rs.Fields.Count-1
           response.write("<td>" & rs.Fields(i).Value & "</td>")
       next
       response.write("</tr>")
       rs.MoveNext
   wend
   response.write("</table></center>")
End Sub
%>