onepage.fun

来自「学生学历证明查询系统 欢迎使用HOT学历证明查询系统」· FUN 代码 · 共 35 行

<%

Sub ShowOnePage( rs, Page )
  Response.Write "<CENTER><table border=1 bgcolor=#ffffff width=100% cellspacing=0 cellpadding=0 borderColorDark=#fffdf7 borderColorLight=#fbd664>"
  Response.Write "<TR BGCOLOR=#fee6c0>"
  Response.WRITE "<TD>编号</TD>"
  For i=0 to rs.Fields.Count-1
     Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
  Next
  Response.Write "</TR>"

  If Page > rs.PageCount Then Page = rs.PageCount
  If Page < 1 Then Page = 1
  if rs.eof then
     response.write "对不起，数据库中没有你想要找的学生记录!"
     response.end
  end if
 
  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

%>