工资管理系统_html_其他_其他下载-pudn.com

<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>