📄 list1.asp.txt

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

💻 TXT

字号:

<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
  If Request("h1") <> "" Then
    Session("h1")=Request("h1")
  else
    if Session("h1")="" then Session("h1") = "true"
  end if
  ssql="select * from 职工工资 where (" & Session("h1") & ")"
  set rs=server.createobject("adodb.recordset")
  rs.open ssql,conn,1,2,1
  if rs.recordCount=0 then
    Response.Write "找不到"
  else
    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
 end if
%>
  <table border=0 align=center cellspacing=0 cellpadding=4>
    <TR><TD><A HREF="list1.asp?no=First" TARGET="Bottom">第一个</A>
        <A HREF="list1.asp?no=Previous" TARGET="Bottom">上一个</A>
        <A HREF="list1.asp?no=next" TARGET="Bottom">下一个</A>
        <A HREF="list1.asp?no=last" TARGET="Bottom">最后一个</A>
  </table>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -