📄 update_select2.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" -->
<%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_month '发放月份
dim mStr_salary_date '发放时间
%>
<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 METHOD=POST ACTION="update.asp?Continue=<%=request("Continue")%>" 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>
<SELECT id="emp" NAME="employee_id">
<OPTION VALUE=''>请选择</OPTION>
<%call listemployee(0,mStr_employee_id)%>
</SELECT>
<FONT COLOR=RED>**</FONT>
</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%>
<td> <%=mStr_salary_month%>月<INPUT TYPE="hidden" NAME="salary_month" value=<%=mStr_salary_month%>></td>
<%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>
<input type="hidden" value='<%=request("salary_type")%>' name="salary_type">
</TD>
</TR>
</TABLE>
<TABLE BORDER="0" WIDTH="80%">
<TR>
<TD>
<INPUT TYPE="submit">
<INPUT TYPE="reset">
</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 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 + -