📄 edit.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能:工资管理---修改
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13,003-8-22
'修改目的：设立权限控制,重写工资栏目调用方式
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_salaries/Cls_wh_salaries.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<!-- #include file="../pub/rsa.asp" -->
<%call checklogin()%>
<%
if session("right")<3 then
dim lr
lr="<font color=red>"&now()&"有"&session("name")&"试图修改工资总表 IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
call savelog("../pub/error.htm",lr)
call savedatalog(now(),session("name"),"试图修改工资总表",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),2)
response.redirect("../error.asp?msg=2")
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
<TITLE>wh_salaries--维护</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
'下列为全局变量
dim mStr_PK_salary_id '主鍵
dim mStr_salary_id 'salary_id
dim mStr_salary_date 'salary_date
dim mStr_salary_month 'salary_month
dim mStr_employee_id 'employee_id
dim mStr_salary_info1 'salary_info1
dim mStr_salary_info2 'salary_info2
dim mStr_salary_memo '备注
dim mStr_salary_isopen '是否发布
call InitData()
%>
<script language="javascript" src="../pub/message1.js"></script>
</HEAD>
<BODY>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD>
<FONT CLASS="locationhead">您的位置：</FONT>
<A CLASS="locationdata" HREF="Main.asp?<% =mStr_WINDURL%>">工资管理</A>>>
<A CLASS="locationlastdata" HREF="javascript:window.location.reload()">修改</A>
</TD>
</TR>
</TABLE>
<FORM ACTION="Post_Update.asp?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post" name="Frm_Update">
打<FONT COLOR=RED>**</FONT>的栏位为必须填写
<TABLE WIDTH="80%" <% Response.write GetTableBorder()%>>
<COLGROUP>
<COL 1 CLASS="TABLEHEAD" WIDTH="100" ALIGN="RIGHT">
<COL 1 CLASS="TABLEDATA">
</COLGROUP>
<TR>
<TD>员工姓名 </TD>
<td> <%=id2employee(mStr_employee_id)%><INPUT TYPE="hidden" name="employee_id" value="<%=mStr_employee_id%>"> </td>
</TR>
<TR>
<TD>发放月份 </TD>
<%if len(mStr_salary_month)=0 then%>
<TD>
<SELECT NAME="salary_month" ONCHANGE='javascript:window.Frm_Update.salary_date.value=ConvertToDate(window.Frm_Update.salary_dateYear.value,window.Frm_Update.salary_dateMonth.value,window.Frm_Update.salary_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,12,mStr_salary_month) %>
</SELECT>月
<FONT COLOR=RED>**</FONT>
</TD>
<%else
if session("right")=4 then%>
<td> <INPUT TYPE="text" NAME="salary_month" value=<%=mStr_salary_month%>>月</td>
<%else%>
<td> <%=mStr_salary_month%>月<INPUT TYPE="hidden" NAME="salary_month" value=<%=mStr_salary_month%>></td>
<%end if
end if%>
</TR>
<TR>
<TD>发放时间 </TD>
<TD>
<SELECT NAME="salary_dateYear" ONCHANGE='javascript:window.Frm_Update.salary_date.value=ConvertToDate(window.Frm_Update.salary_dateYear.value,window.Frm_Update.salary_dateMonth.value,window.Frm_Update.salary_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<%
if (FormatDate(mStr_salary_date,"yyyy")="") then
Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
else
Call ShowOptionList(Val(FormatDate(mStr_salary_date,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_salary_date,"yyyy"))-5,11,Val(FormatDate(mStr_salary_date,"yyyy")))
end if
%>
</SELECT>年
<SELECT NAME="salary_dateMonth" ONCHANGE='javascript:window.Frm_Update.salary_date.value=ConvertToDate(window.Frm_Update.salary_dateYear.value,window.Frm_Update.salary_dateMonth.value,window.Frm_Update.salary_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,12,FormatDate(mStr_salary_date,"mm")) %>
</SELECT>月
<SELECT NAME="salary_dateDay" ONCHANGE='javascript:window.Frm_Update.salary_date.value=ConvertToDate(window.Frm_Update.salary_dateYear.value,window.Frm_Update.salary_dateMonth.value,window.Frm_Update.salary_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,31,FormatDate(mStr_salary_date,"dd")) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="salary_date" VALUE='<% Response.write mStr_salary_date%>' READONLY CLASS="READONLY">
</SPAN>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<%
sql3="select top 2 salary_id from wh_salaries where employee_id="&mStr_employee_id&" order by -salary_id"
set rs2=conn.execute (sql3)
if not rs2.eof then
rs2.movenext
salary_id=rs2(0)
end if
set rs2=nothing
%>
<tr><td colspan="2" align="center" rowsbar>
<iframe src="../view_salaries/Show2.asp?PK_salary_id=<%=salary_id%>&employee=<%=id2employee(mStr_employee_id)%>" width="100%" scrolling="no"></iframe>
</td></tr>
<%
set rs=conn.execute("select * from wh_salaries where salary_id="&request("PK_salary_id"))
salary_month=rs("salary_month")
salary_date=rs("salary_date")
salary_info1=rs("salary_info1")
salary_info2=rs("salary_info2")
salary_month=rs("salary_month")
salary_memo=rs("salary_memo")
rs.close
dim plus(100,2)
dim minus(100,2)
dim plus_split
dim minus_split
plus_split = split(salary_info1,";")
for i = 0 to ubound(plus_split)
plus(i,0)=left(plus_split(i),instr(plus_split(i),":")-1)
plus(i,1)=decryptstr(right(plus_split(i),len(plus_split(i))-instr(plus_split(i),":")))
'response.write(plus(i,0)&"--"&plus(i,1)&"<br>")
next
minus_split = split(salary_info2,";")
for j = 0 to ubound(minus_split)
minus(j,0)=left(minus_split(j),instr(minus_split(j),":")-1)
minus(j,1)=decryptstr(right(minus_split(j),len(minus_split(j))-instr(minus_split(j),":")))
'response.write(minus(j,0)&"--"&minus(j,1)&"<br>")
next
%>
<%
for i = 0 to ubound(plus_split)%>
<tr>
<td><%=plus(i,0)%> <INPUT TYPE="hidden" value="<%=trim(plus(i,0))&":"%>" NAME="plus_item<%=i+1%>"></td>
<td>
<INPUT STYLE="WIDTH:100px" NAME="plus<%=i+1%>"
style="font-size: 9pt; color: green" size="8" value='<%=plus(i,1)%>'>
<%if trim(plus(i,0))="项目奖励" then
k=i%>
[<span id="text001"><a href='javascript:openwin("<% = "getprize.asp?empid=" & mStr_employee_id&"&itemid=plus"&i+1 %>")'><font color=blue>奖金发放</font></a></span>]
<%end if%></td>
</tr>
<%next
for j = 0 to ubound(minus_split)%>
<tr>
<td><%=minus(j,0)%> <INPUT TYPE="hidden" value="<%=minus(j,0)&":"%>" NAME="minus_item<%=j+1%>"></td>
<td>
<INPUT STYLE="WIDTH:100px" NAME="minus<%=j+1%>"
style="font-size: 9pt; color: red" size="8" value='<%=minus(j,1)%>'>
<%if trim(minus(j,0))="个税" then%>
[<A HREF="javascript:gettax();"><font color=blue>计算</font></A>]
<%end if%></td>
</tr>
<%next
%>
<TR>
<TD>备注 </TD>
<TD>
<TEXTAREA STYLE="HEIGHT:100px;WIDTH:200px" NAME="salary_memo"> <% Response.write mStr_salary_memo%></TEXTAREA>
</TD>
</TR>
<TR>
<TD>是否发布 </TD>
<TD>
<SELECT NAME="salary_isopen">
<OPTION VALUE='0' <%if mStr_salary_isopen=0 then response.write "selected"%>>暂不发布</OPTION>
<OPTION VALUE='1' <%if mStr_salary_isopen=1 then response.write "selected"%>>发布</OPTION>
</SELECT>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<tr STYLE="DISPLAY:NONE"><td><INPUT TYPE="text" NAME="salary_info1">
</td><td><INPUT TYPE="text" NAME="salary_info2">
</td></tr>
</TABLE>
<TABLE BORDER="0" WIDTH="80%">
<TR>
<TD>
<!--A HREF="#" ONCLICK="javascript:transdata();javascript:window.Frm_Update.submit();return false"><IMG SRC="../image/btok.gif" BORDER="0"></A-->
<A IsShowProcessBar="True" ONCLICK="javascript:transdata();javascript:window.Frm_Update.submit();return false"><IMG SRC="../image/btok.gif" BORDER="0"></A>
<A HREF="#" ONCLICK="javascript:window.Frm_Update.reset();return false"><IMG SRC="../image/btno.gif" BORDER="0"></A>
</TD>
<TD ALIGN="RIGHT">
</TD>
</TR>
</TABLE>
<DIV STYLE="DISPLAY:NONE">
<INPUT TYPE="hidden" NAME="PK_salary_id" VALUE='<% Response.write mStr_PK_salary_id%>'>
</DIV>
</FORM>
</BODY>
</HTML>
<script language="javascript">
function gettax()
{
var plus;
var minus;
var pretax;
var taxrate;
var deduct;
plus=0;
minus=0;
<%for m=1 to i-1%>
plus=plus+eval(Frm_Update.plus<%=m%>.value);
<%next%>
<%for n=1 to j-2%>
minus=minus+eval(Frm_Update.minus<%=n%>.value);
<%next%>
pretax=plus-minus-1000;
if(pretax<0){
taxrate=0;
deduct=0;}
if(pretax>=0 && pretax<500){
taxrate=0.05;
deduct=0;}
if (pretax>=500 && pretax<2000){
taxrate=0.1;
deduct=25;}
if (pretax>=2000 && pretax<5000){
taxrate=0.15;
deduct=125;}
if (pretax>=5000 && pretax<20000){
taxrate=0.2;
deduct=375;}
if (pretax>=20000 && pretax<40000){
taxrate=0.25;
deduct=1375;}
if (pretax>=40000 && pretax<60000){
taxrate=0.3;
deduct=3375;}
if (pretax>=60000 && pretax<80000){
taxrate=0.35;
deduct=6375;}
if (pretax>=80000 && pretax<100000){
taxrate=0.4;
deduct=10375;}
if (pretax>=100000){
taxrate=0.45;
deduct=15375;}
Frm_Update.minus<%=j-1%>.value = (pretax*taxrate-deduct);
}
function transdata(){
var salary_info1;
var salary_info2;
<%for m=1 to 2%>
salary_info1=salary_info1+Frm_Update.plus_item<%=m%>.value+Frm_Update.plus<%=m%>.value+";";
<%next%>
<%for n=1 to j+1%>
salary_info2=salary_info2+Frm_Update.minus_item<%=n%>.value+Frm_Update.minus<%=n%>.value+";";
<%next%>
Frm_Update.salary_info1.value=salary_info1;
Frm_Update.salary_info2.value=salary_info2;
}
</script>
<script LANGUAGE="JavaScript">
<!--
function openwin(url) {
window.open (url, "newwindow", "height=500, width=480, toolbar =no, menubar=no, scrollbars=no, resizable=no, location=no, status=no") //写成一行
}
//-->
</script>
<%
function InitData()
'初始化
dim Rec_Data '结果集
mStr_PK_salary_id = trim(request.querystring("PK_salary_id"))
if (mStr_PK_salary_id<>"") then
'读取原有数据
set Rec_Data = mCls_wh_salaries.GetData(mStr_PK_salary_id)
if (not Rec_Data.eof) then
mStr_salary_month = Server.HTMLEncode(trim(Rec_Data.fields("salary_month") & ""))
mStr_salary_date = Server.HTMLEncode(trim(Rec_Data.fields("salary_date") & ""))
mStr_employee_id = Server.HTMLEncode(trim(Rec_Data.fields("employee_id") & ""))
mStr_salary_memo = Server.HTMLEncode(trim(Rec_Data.fields("salary_memo") & ""))
mStr_salary_isopen = Server.HTMLEncode(trim(Rec_Data.fields("salary_isopen") & ""))
end if
Rec_Data.close
if (mStr_PK_salary_id="") then
call ShowMess(16,"对不起，找不到您所要的 [wh_salaries]！")
call WindowBack()
end if
else
mStr_salary_month = ""
mStr_salary_date = ""
mStr_employee_id = ""
end if
end function
%>
<script language="javascript">
function gettax()
{
var plus;
var minus;
var pretax;
var taxrate;
var deduct;
plus=0;
minus=0;
<%for m=1 to i%>
plus=plus+eval(Frm_Update.plus<%=m%>.value);
<%next%>
<%for n=1 to j-1%>
minus=minus+eval(Frm_Update.minus<%=n%>.value);
<%next%>
pretax=plus-minus-1000;
if(pretax<0){
taxrate=0;
deduct=0;}
if(pretax>=0 && pretax<500){
taxrate=0.05;
deduct=0;}
if (pretax>=500 && pretax<2000){
taxrate=0.1;
deduct=25;}
if (pretax>=2000 && pretax<5000){
taxrate=0.15;
deduct=125;}
if (pretax>=5000 && pretax<20000){
taxrate=0.2;
deduct=375;}
if (pretax>=20000 && pretax<40000){
taxrate=0.25;
deduct=1375;}
if (pretax>=40000 && pretax<60000){
taxrate=0.3;
deduct=3375;}
if (pretax>=60000 && pretax<80000){
taxrate=0.35;
deduct=6375;}
if (pretax>=80000 && pretax<100000){
taxrate=0.4;
deduct=10375;}
if (pretax>=100000){
taxrate=0.45;
deduct=15375;}
Frm_Update.minus<%=j%>.value = (pretax*taxrate-deduct);
}
function transdata(){
var salary_info1;
var salary_info2;
<%for m=1 to i%>
salary_info1=salary_info1+Frm_Update.plus_item<%=m%>.value+Frm_Update.plus<%=m%>.value+";";
<%next%>
<%for n=1 to j%>
salary_info2=salary_info2+Frm_Update.minus_item<%=n%>.value+Frm_Update.minus<%=n%>.value+";";
<%next%>
Frm_Update.salary_info1.value=salary_info1;
Frm_Update.salary_info2.value=salary_info2;
}
</script>
<script LANGUAGE="JavaScript">
<!--
function openwin(url) {
window.open (url, "newwindow", "height=500, width=480, toolbar =no, menubar=no, scrollbars=no, resizable=no, location=no, status=no") //写成一行
}
//-->
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -