📄 list5.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<%
  Sub ShowPage(objRS, PageNo)
      ' 设置目前页次，然后利用For...Next 循环显示出该页的记录
    objRS.AbsolutePage=PageNo
    For I=1 To objRS.PageSize
      Data="<TR>"
      For J=0 To objRS.Fields.Count-1
        Data=Data & "<TD>" & objRS.Fields(j).Value & "</TD>"
      Next
      Response.write Data
      objRS.MoveNext
      If objRS.EOF Then Exit For
    Next
  End Sub
%>
<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
    <P align=center><FONT face=隶书 size=6>职工工资</FONT></br>
<%
  set conn=server.createobject("adodb.Connection")
  CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")
  conn.Open
  set rs=server.createobject("adodb.recordset")
  rs.open "职工工资",conn,1,1,2

  if rs.EOF then
    Response.Write "数据库中暂无资料!"
  else
    Response.write "<table border=1 align=center cellspacing=0 cellpadding=4>"
    Response.write "<tr align=center>"
    RS.PageSize=8			' 设置分页大小
    For I=1 To RS.PageCount	' 显示页次超级链接
      Response.write "<A HREF='list5.asp?Page="& I & "'>" &_
        "第" & I & "页" & "</A>" & "&nbsp;&nbsp;"
    Next
      ' 读取表的字段名称以作为表格的标题
    for i=0 to rs.fields.count-1
      Response.Write "<td>" & rs.fields(i).name
    next
    Response.Write "</tr>"
      ' 调用记录显示Sub过程
    If Session("Page") & Request("Page") = "" Then
      ShowPage RS, 1
    else
      if Request("Page") <> "" Then Session("Page")=Request("Page")
      ShowPage RS, Session("Page")
    End If
  end if
  rs.Close
  set rs=nothing
%>
    </table>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -