onepage.fun

来自「这是一个无纸化测试系统」· FUN 代码 · 共 28 行

<%

Sub ShowOnePage( rs, Page )

  Response.Write "<CENTER><TABLE BORDER=1>"
  Response.Write "<TR BGCOLOR=#00FFFF >"
  Response.WRITE "<TD><font size='2'>分页</font></TD>"
  For i=0 to rs.Fields.Count-1
     Response.WRITE "<TD><font size='2'>" & rs.Fields(i).Name & "</font></TD>"
  Next
  Response.Write "</TR>"

  rs.AbsolutePage = Page
  For iPage = 1 To rs.PageSize
     Response.Write "<TR>"
     RecNo = (Page - 1) * rs.PageSize + iPage
     Response.Write "<TD><font size='2'>" & RecNo & "</font></TD>"
     For i=0 to rs.Fields.Count-1
        Response.WRITE "<TD><font size='2'>" & rs.Fields(i).Value & "</font></TD>"
     Next
     Response.Write "</TR>"
     rs.MoveNext
     If rs.EOF Then Exit For
  Next
  Response.Write "</TABLE></CENTER>"  
End Sub

%>