📄 list2.asp.txt

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

💻 TXT

字号:

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
    <FORM align=center METHOD='POST' name=frm1 ACTION='list2.asp'>
    <table border=1 align=center cellspacing=0 cellpadding=4  height=390>
      <TR><td width=100><td width=195>
<%
  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 >" & objRS.Fields(j).name 
      Data=Data & "<td><Input Type=text name='txt' value=" & 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 Session("no") = "" Then
    Session("no")=1
  End If
  ShowPage RS, Session("no"),Request.form("txt")	' 以表单提交的Txt内容修改当前记录
  Response.write "</table>"
  RS.close  
  conn.close
%>
    <table border=0 align=center height=50>
      <tr><td><INPUT type=submit value="确定修改">
    </table>
    <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 + -