📄 update.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能:市场部部提成管理---新增、修改
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设立权限控制
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_market_bonuses/Cls_wh_market_bonuses.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<%if session("right")<3 and session("dpt")<>2 or session("right")=1 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%>
<%
set rs=conn.execute("select project_id,project_gain,project_gain2,project_not,project_notpay,project_sum,project_firstpay,project_lastpay from view_projects")%>
<script language = "vbScript">
dim proj(10000,2)
<%j=0
do while not rs.eof
%>
proj(<%=j%>,0)=<%=rs("project_id")%>
<% if rs("project_not")>0.1 then%>
proj(<%=j%>,1)=0
<% else%>
proj(<%=j%>,1)=<%=rs("project_gain")+rs("project_gain2")%>
<% end if
%>
<% rs.movenext
j=j+1
loop
rs.close
%>
function showsum(proj_id)
for i=0 to 10000
if int(proj_id) = 0 then
Frm_Update.mbonus_sum.value=0
exit for
end if
if int(proj_id) = proj(i,0) then
Frm_Update.mbonus_sum.value=proj(i,1)
exit for
end if
next
end function
</SCRIPT>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
<TITLE>wh_market_bonuses--维护</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
'下列为全局变量
dim mStr_PK_mbonus_id '主鍵
dim mStr_mbonus_memo '备注
dim mStr_mbonus_sum '项目纯分配金额
dim mStr_mbonus_quota '市场部分配比例
dim mStr_mbonus_percent '个人应分配比例
dim mStr_mbonus_isgive '是否发放
dim mStr_mbonus_date '发放日期
dim mStr_employee_id '员工ID
dim mStr_project_id '项目ID
call InitData()
%>
</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()"><%if mStr_PK_mbonus_id="" then Response.write "新增" else Response.write "修改"%></A>
</TD>
</TR>
</TABLE>
<FORM ACTION="Post_Update.asp?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post">
打<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 NAME="project_id" onchange="showsum(Frm_Update.project_id.value);">
<OPTION VALUE=''>请选择</OPTION>
<%Call listproj(mStr_project_id)%>
</SELECT>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>员工姓名 </TD>
<TD>
<SELECT NAME="employee_id">
<OPTION VALUE=''>请选择</OPTION>
<%Call listemployee(2,mStr_employee_id)%>
</SELECT>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>备注 </TD>
<TD>
<TEXTAREA STYLE="HEIGHT:100px;WIDTH:200px" NAME="mbonus_memo"><% Response.write mStr_mbonus_memo%> </TEXTAREA>
</TD>
</TR>
<TR>
<TD>项目纯分配金额 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="mbonus_sum" VALUE='<% Response.write mStr_mbonus_sum%>' style="font-size: 9pt; color: blue" size="8">元
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>市场部分配比例 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="mbonus_quota" VALUE='<% Response.write mStr_mbonus_quota%>'>%
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>个人应分配比例 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="mbonus_percent" VALUE='<% Response.write mStr_mbonus_percent%>'>%
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>是否发放 </TD>
<TD>
<SELECT NAME="mbonus_isgive">
<OPTION VALUE='1' <%if mStr_mbonus_isgive="1" then%> SELECTED<%end if%>>是</OPTION>
<OPTION VALUE='0' <%if mStr_mbonus_isgive="0" then%> SELECTED<%end if%>>否</OPTION>
</SELECT>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>发放日期 </TD>
<TD>
<SELECT NAME="mbonus_dateYear" ONCHANGE='javascript:window.Frm_Update.mbonus_date.value=ConvertToDate(window.Frm_Update.mbonus_dateYear.value,window.Frm_Update.mbonus_dateMonth.value,window.Frm_Update.mbonus_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<%
if (FormatDate(mStr_mbonus_date,"yyyy")="") then
Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
else
Call ShowOptionList(Val(FormatDate(mStr_mbonus_date,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_mbonus_date,"yyyy"))-5,11,Val(FormatDate(mStr_mbonus_date,"yyyy")))
end if
%>
</SELECT>年
<SELECT NAME="mbonus_dateMonth" ONCHANGE='javascript:window.Frm_Update.mbonus_date.value=ConvertToDate(window.Frm_Update.mbonus_dateYear.value,window.Frm_Update.mbonus_dateMonth.value,window.Frm_Update.mbonus_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,12,FormatDate(mStr_mbonus_date,"mm")) %>
</SELECT>月
<SELECT NAME="mbonus_dateDay" ONCHANGE='javascript:window.Frm_Update.mbonus_date.value=ConvertToDate(window.Frm_Update.mbonus_dateYear.value,window.Frm_Update.mbonus_dateMonth.value,window.Frm_Update.mbonus_dateDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,31,FormatDate(mStr_mbonus_date,"dd")) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="mbonus_date" VALUE='<% Response.write mStr_mbonus_date%>' READONLY CLASS="READONLY">
</SPAN>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0" WIDTH="80%">
<TR>
<TD>
<A HREF="#" ONCLICK="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">
<% if (mStr_PK_mbonus_id="") then%>
<INPUT NAME="Continue" TYPE="checkbox" VALUE="1" <% if request.querystring("Continue")<>empty then Response.write "CHECKED"%>>
确定后继续增加资料
<% end if %>
</TD>
</TR>
</TABLE>
<DIV STYLE="DISPLAY:NONE">
<INPUT TYPE="hidden" NAME="PK_mbonus_id" VALUE='<% Response.write mStr_PK_mbonus_id%>'>
</DIV>
</FORM>
</BODY>
</HTML>
<%
set conn = nothing
function InitData()
'初始化
dim Rec_Data '结果集
mStr_PK_mbonus_id = trim(request.querystring("PK_mbonus_id"))
if (mStr_PK_mbonus_id<>"") then
'读取原有数据
set Rec_Data = mCls_wh_market_bonuses.GetData(mStr_PK_mbonus_id)
if (not Rec_Data.eof) then
mStr_mbonus_memo = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_memo") & ""))
mStr_mbonus_sum = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_sum") & ""))
mStr_mbonus_quota = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_quota") & ""))
mStr_mbonus_percent = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_percent") & ""))
mStr_mbonus_isgive = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_isgive") & ""))
mStr_mbonus_date = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_date") & ""))
mStr_employee_id = Server.HTMLEncode(trim(Rec_Data.fields("employee_id") & ""))
mStr_project_id = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))
end if
Rec_Data.close
if (mStr_PK_mbonus_id="") then
call ShowMess(16,"对不起，找不到您所要的 [wh_market_bonuses]！")
call WindowBack()
end if
else
mStr_mbonus_memo = ""
mStr_mbonus_sum = ""
mStr_mbonus_quota = ""
mStr_mbonus_percent = ""
mStr_mbonus_isgive = ""
mStr_mbonus_date = ""
mStr_employee_id = ""
mStr_project_id = ""
end if
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -