showpage.asp

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

<%
Sub ShowPage(rs,page)      '显示结果集中的指定页
   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>")
   rs.AbsolutePage=Page
   For i=1 to rs.PageSize
       response.write("<tr>")
       for j=0 to rs.Fields.Count-1
           response.write("<td>" & rs.Fields(j).Value & "</td>")
       next
       response.write("</tr>")
       rs.MoveNext
       if rs.eof then exit for
   next
   response.write("</table></center>")
End Sub
%>