onepage.fun

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· FUN 代码 · 共 28 行

<%

Sub ShowOnePage( rs, Page )

  Response.Write "<CENTER><TABLE BORDER=1>"
  Response.Write "<TR BGCOLOR=#00FFFF>"
  Response.WRITE "<TD>絪腹</TD>"
  For i=0 to rs.Fields.Count-1
     Response.WRITE "<TD>" & rs.Fields(i).Name & "</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>" & RecNo & "</TD>"
     For i=0 to rs.Fields.Count-1
        Response.WRITE "<TD>" & rs.Fields(i).Value & "</TD>"
     Next
     Response.Write "</TR>"
     rs.MoveNext
     If rs.EOF Then Exit For
  Next
  Response.Write "</TABLE></CENTER>"  
End Sub

%>