📄 list6.asp

📁 ASP 网页数据库短训教程源码
💻 ASP
字号:
<%
  Sub ShowPage(objRS,no,a)
    objRS.AbsolutePosition=no
    if len(a)>0 then
      For J=1 To objRS.Fields.Count
        objRS.Fields(j-1).value=a(j)
      next
      objRS.Update
    end if
    For J=0 To objRS.Fields.Count-1
      Data="<TR><td>"
      Data=Data & objRS.Fields(j).name
      Data=Data & "<td><Input Type=text name='txt' value="
      Data=Data & objRS.Fields(j).Value & ">"
      Response.Write data
    Next
  End Sub
%>
<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY><FORM METHOD='POST' name=frm1 ACTION='list6.asp'>
    <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,2,2
  If Session("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
  b1="<A name=a1 HREF='list6.asp?no=First'>" & "第一个" & "</A> "
  b2="<A name=a2 HREF='list6.asp?no=Previous'>" & "上一个" & "</A> "
  b3="<A name=a3 HREF='list6.asp?no=next'>" & "下一个" & "</A> "
  b4="<A name=a4 HREF='list6.asp?no=last'>" & "最后一个" & "</A>"
  Response.write b1 & b2 & b3 & b4
  Response.write "<table border=1 align=center cellspacing=0 cellpadding=4>"
  Response.write "<TR><td width=100><td width=100>"
  ShowPage RS, Session("no"),Request.form("txt")
  Response.write "</table>"
  RS.close
  conn.close
%>
    <INPUT type=submit value="确定修改">
    <SCRIPT for=txt event=onchange LANGUAGE=VBScript>
      w= ccur(frm1.txt(3).value)+frm1.txt(4).value+frm1.txt(5).value+frm1.txt(6).value
      w=w-frm1.txt(7).value-frm1.txt(8).value
      frm1.txt(9).value=w
    </SCRIPT>
    </Form>
  </BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -