📄 post_update.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能：wh_market_bonuses--存储
'编写人员：房鹏(AhFun)
'编写时间：2003-08-11 15:29:28
'开发平台：ASP3.0 + MSSQL2000
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_market_bonuses/Cls_wh_market_bonuses.asp" -->
<!-- #include file="../pub/fun.asp" -->
<!-- #include file="../pub/conn.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%>
<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)
%>
</HEAD>
<BODY>
<%
call InitData()
%>
</BODY>
</HTML>
<%
function InitData()
'功能:初始化
'参数:无
'返回:无
dim Str_Mess
Str_Mess = CheckData()
if (Str_Mess<>"") then
call ShowMess(16,Str_Mess)
call WindowBack()
else
if (request.form("Continue")="") then
select case mStr_WINDCallType
case else:
call WindowReplace("Main.asp?"+mStr_WINDURL)
end select
else
call WindowReplace("Update.asp?"+mStr_WINDURL+"&Continue=1")
end if
end if
end function
function CheckData()
'功能:存储资料
'参数:无
'返回:无
dim Str_Mess
dim Int_Count
dim Str_PK_mbonus_id '主鍵
dim Str_mbonus_memo '备注
dim Str_mbonus_sum '项目纯分配金额
dim Str_mbonus_quota '市场部分配比例
dim Str_mbonus_percent '个人应分配比例
dim Str_mbonus_isgive '是否发放
dim Str_mbonus_date '发放日期
dim Str_employee_id '员工ID
dim Str_project_id '项目ID
Str_PK_mbonus_id = trim(request.form("PK_mbonus_id"))
Str_mbonus_memo = trim(request.form("mbonus_memo"))
Str_mbonus_sum = trim(request.form("mbonus_sum"))
Str_mbonus_quota = trim(request.form("mbonus_quota"))
Str_mbonus_percent = trim(request.form("mbonus_percent"))
Str_mbonus_isgive = trim(request.form("mbonus_isgive"))
Str_mbonus_date = trim(request.form("mbonus_date"))
Str_employee_id = trim(request.form("employee_id"))
Str_project_id = trim(request.form("project_id"))
Str_Mess = ""
Int_Count = 1
if (not (IsNumeric(Str_mbonus_sum))) then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [项目纯分配金额] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if (not (IsNumeric(Str_mbonus_quota))) then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [市场部分配比例] 一栏必须为数值！"
Int_Count = Int_Count+1
elseif int(Str_mbonus_quota)>100 or int(Str_mbonus_quota)<0 then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [市场部分配比例] 一栏必须为0-100数值！"
Int_Count = Int_Count+1
end if
if (not (IsNumeric(Str_mbonus_percent))) then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [个人应分配比例] 一栏必须为数值！"
Int_Count = Int_Count+1
elseif Str_mbonus_percent>100 or Str_mbonus_percent<0 then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [个人应分配比例] 一栏必须为0-100数值！"
Int_Count = Int_Count+1
end if
if (trim(Str_mbonus_isgive)="") then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [是否发放] 一栏不能为空！"
Int_Count = Int_Count+1
end if
if (not (IsNumeric(Str_employee_id))) then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [员工ID] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if (not (IsNumeric(Str_project_id))) then
Str_Mess = Str_Mess +"\n"+ cstr(Int_Count) + ") [项目ID] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if (Str_Mess<>"") then
CheckData= "对不起，您录入的资料存在以下错误:" _
+"\n"+ Str_Mess _
+"\n"+"\n"+"请检查资料或联系管理员！"
exit function
end if
CheckData = mCls_wh_market_bonuses.SaveData(Str_PK_mbonus_id, Str_mbonus_memo, Str_mbonus_sum, Str_mbonus_quota, Str_mbonus_percent, Str_mbonus_isgive, Str_mbonus_date, Str_employee_id, Str_project_id)
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -