📄 list1.asp

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

💻 ASP

字号:

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
<%
  Sub ShowPage(objRS,no)
    objRS.AbsolutePosition=no		' 指定当前记录号
      ' 显示单记录
    For J=0 To objRS.Fields.Count-1
      Data="<TR><td >" & objRS.Fields(j).name
      Data=Data & "<td>" & objRS.Fields(j).Value
      Response.Write data
    Next
  End Sub
  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,2,2
  If Request("no") = "" Then
    Session("no")=1
  else
    select case Request("no")
      case "First"
        Session("no")=1
      case "Previous"
        Session("no")=Session("no")-1
      case "next"
        Session("no")=Session("no")+1
      case "last"
        Session("no")=RS.RecordCount
    end select
  End If
  if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount
  if Session("no")<1 then Session("no")=1
  Response.write "<table border=1 align=center cellspacing=0 cellpadding=4 height=390>"
  Response.write "<TR><td width=100><td width=195>"
  ShowPage RS, Session("no")
  Response.write "</table>"
  RS.close
  set RS=nothing
  conn.close
  set conn=nothing
%>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -