📄 post_update.asp

📁 这是一个自己研发的薪酬管理系统
💻 ASP
字号:
<%@ Language=VBScript %>
<%
'文件功能：wh_projects--存储
'编写人员：房鹏(AhFun)
'编写时间：2003-08-11 15:29:28
'开发平台：ASP3.0 + MSSQL2000

%>

<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_projects/Cls_wh_projects.asp" -->
<!-- #include file="../pub/fun.asp" -->
<!-- #include file="../pub/conn.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_projects--存储</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_project_id                      '主鍵
dim Str_project_name                       '项目名称
dim Str_project_begin                      '签定合同日期
dim Str_project_end                        '规定完成合同日期
dim Str_project_finish                     '实际合同完成合同日期
dim Str_project_score                      '验收评分
dim Str_project_sum                        '合同总金额
dim Str_project_firstpay                   '首期付款金额
dim Str_project_lastpay                    '后期付款金额
dim Str_project_notpay                     '未付款
dim Str_project_cost                       '前期成本费用
dim Str_project_operation                  '前期业务费用
dim Str_project_codes                      '前期非南京公司开发程序费
dim Str_project_host                       '前期主机费用
dim Str_project_dns                        '前期域名费用
dim Str_project_search                     '前期搜索引擎费用
dim Str_project_mail                       '前期邮箱费用
dim Str_project_other                      '前期其它费用
dim Str_project_cost2                      '后期成本费用
dim Str_project_operation2                 '后期业务费用
dim Str_project_codes2                     '后期非南京公司开发程序费
dim Str_project_host2                      '后期主机费用
dim Str_project_dns2                       '后期域名费用
dim Str_project_search2                    '后期搜索引擎费用
dim Str_project_mail2                      '后期邮箱费用
dim Str_project_other2                     '后期其它费用
dim Str_project_memo                       '备注

    Str_PK_project_id                      = trim(request.form("PK_project_id"))
    Str_project_name                       = trim(request.form("project_name"))
    Str_project_begin                      = trim(request.form("project_begin"))
    Str_project_end                        = trim(request.form("project_end"))
    Str_project_finish                     = trim(request.form("project_finish"))
    Str_project_score                      = trim(request.form("project_score"))
    Str_project_sum                        = trim(request.form("project_sum"))
    Str_project_firstpay                   = trim(request.form("project_firstpay"))
    Str_project_lastpay                    = trim(request.form("project_lastpay"))
    Str_project_notpay                     = trim(request.form("project_notpay"))
    Str_project_cost                       = trim(request.form("project_cost"))
    Str_project_operation                  = trim(request.form("project_operation"))
    Str_project_codes                      = trim(request.form("project_codes"))
    Str_project_host                       = trim(request.form("project_host"))
    Str_project_dns                        = trim(request.form("project_dns"))
    Str_project_search                     = trim(request.form("project_search"))
    Str_project_mail                       = trim(request.form("project_mail"))
    Str_project_other                      = trim(request.form("project_other"))
    Str_project_cost2                      = trim(request.form("project_cost2"))
    Str_project_operation2                 = trim(request.form("project_operation2"))
    Str_project_codes2                     = trim(request.form("project_codes2"))
    Str_project_host2                      = trim(request.form("project_host2"))
    Str_project_dns2                       = trim(request.form("project_dns2"))
    Str_project_search2                    = trim(request.form("project_search2"))
    Str_project_mail2                      = trim(request.form("project_mail2"))
    Str_project_other2                     = trim(request.form("project_other2"))
    Str_project_memo                       = trim(request.form("project_memo"))

    Str_Mess           =  ""
    Int_Count          =  1

    if (trim(Str_project_name)="") then
        Str_Mess  = Str_Mess +"\n"+ cstr(Int_Count) + ") [项目名称] 一栏不能为空！"
        Int_Count = Int_Count+1
    end if
    if (not (IsNumeric(Str_project_sum))) then
        Str_Mess  = Str_Mess  +"\n"+ cstr(Int_Count) + ") [合同总金额] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if (not (IsNumeric(Str_project_firstpay))) then
        Str_Mess  = Str_Mess  +"\n"+ cstr(Int_Count) + ") [首期付款金额] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
	if (IsNumeric(Str_project_firstpay) and IsNumeric(Str_project_sum)) then
		if int(Str_project_firstpay)>int(Str_project_sum) then 
		Str_Mess  = Str_Mess  +"\n"+ cstr(Int_Count) + ") [首期付款金额] 不能大于 [合同总金额]！"
        Int_Count = Int_Count+1
		end if
    end if
	if (IsNumeric(Str_project_firstpay) and IsNumeric(Str_project_lastpay) and IsNumeric(Str_project_sum)) then
		if int(Str_project_firstpay)+int(Str_project_lastpay)>int(Str_project_sum) then 
		Str_Mess  = Str_Mess  +"\n"+ cstr(Int_Count) + ") [首期付款金额+后期付款金额] 不能大于 [合同总金额]！"
        Int_Count = Int_Count+1
		end if
    end if

    if (Str_Mess<>"") then
        CheckData= "对不起，您录入的资料存在以下错误:" _
        +"\n"+ Str_Mess  _
        +"\n"+"\n"+"请检查资料或联系管理员！"
        exit function
    end if
	
	if (not (IsNumeric(Str_project_lastpay))) then
        Str_project_lastpay = 0
    end if

	Str_project_notpay=Str_project_sum-Str_project_firstpay-Str_project_lastpay

    CheckData = mCls_wh_projects.SaveData(Str_PK_project_id, Str_project_name, Str_project_begin, Str_project_end, Str_project_finish, Str_project_score, Str_project_sum, Str_project_firstpay, Str_project_lastpay, Str_project_notpay, Str_project_cost, Str_project_operation, Str_project_codes, Str_project_host, Str_project_dns, Str_project_search, Str_project_mail, Str_project_other, Str_project_cost2, Str_project_operation2, Str_project_codes2, Str_project_host2, Str_project_dns2, Str_project_search2, Str_project_mail2, Str_project_other2, Str_project_memo)
end function
%>
💿 文件大小 1211 K
👤 上传用户 dtlyzx
📂 所属分类企业管理
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -