📄 list3.asp

📁 ASP 网页数据库短训教程源码
💻 ASP
字号:
<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY LANGUAGE=VBScript>
    <FORM METHOD='POST' name=frm1 ACTION='list3.asp'>
      <table border=1 align=center cellspacing=0 cellpadding=4 height=390>
        <TR><td width=100><td width=195>
        <TR><td >部门<td>
            <SELECT id=select1 style="width:100px" name=select1> 
              <OPTION value="04">保卫<OPTION value="05">财务
              <OPTION value="03">供销<OPTION value="02">技术<OPTION value="01">生产
            </SELECT>
            <Input Type=hidden name=hid value='保卫'>
        <TR><td>编号<td><Input Type=text name=txt1 value=''>
        <TR><td>姓名<td><Input Type=text name=txt2 value=''>
        <TR><td>基本工资<td><Input Type=text name=txt value=0>
        <TR><td>岗位津贴<td><Input Type=text name=txt value=0>
        <TR><td>职务补贴<td><Input Type=text name=txt value=0>
        <TR><td>奖金<td><Input Type=text name=txt value=0>
        <TR><td>房租<td><Input Type=text name=txt value=0>
        <TR><td>水电<td><Input Type=text name=txt value=0>
        <TR><td>实发工资<td><Input Type=text readonly=true name=txt value=0>
      </table>
      <SCRIPT for=select1 EVENT=onblur LANGUAGE=vbscript>
        i=frm1.select1.selectedindex
        f=frm1.select1.options(i).text
        k=frm1.select1.options(i).value
        frm1.hid.value=f
        frm1.txt1.value=k
        frm1.txt1.focus
      </SCRIPT>
      <SCRIPT for=txt1 event=onblur LANGUAGE=VBScript>
        if len(frm1.txt1.value)<5 then 
          msgbox "编号太短"
          frm1.txt1.focus
        else
          frm1.txt2.focus
        end if
      </SCRIPT>
<%
  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
  p=Request.form("txt2")
  if len(p)>0 then
    redim na(rs.Fields.count-1)
    For J=0 To RS.Fields.Count-1
      na(j)= RS.Fields(j).name
    next
    redim bb(rs.Fields.count-1)  
    bb(0)=Request.form("hid")
    bb(1)=Request.form("txt1")
    bb(2)=Request.form("txt2")
    For J=3 To RS.Fields.Count-1
      bb(j)=Request.form("txt")(j-2)
    next
    RS.AddNew na, bb
    RS.Update
  end if
  Response.write "</table>"
  RS.close  
  conn.close
%>
      <table border=0 align=center height=50>
        <tr><td><INPUT type=submit value="确定增加">
      </table>
    </Form>
    <SCRIPT for=txt event=onchange LANGUAGE=VBScript>
      w = ccur(frm1.txt(0).value)+ccur(frm1.txt(1).value)
      w=w+ccur(frm1.txt(2).value)+ccur(frm1.txt(3).value)
      w=w-ccur(frm1.txt(4).value)-ccur(frm1.txt(5).value)
      frm1.txt(6).value=w
    </SCRIPT>
    <SCRIPT for=txt event=onblur LANGUAGE=VBScript>
      if len(frm1.txt2.value)=0 then 
        msgbox "姓名不能空"
        frm1.txt2.focus
      end if
    </SCRIPT>
  </BODY>
</HTML>
⌨️ 快捷键说明

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