update.asp

这是一个自己研发的薪酬管理系统

                <TD>&nbsp;
                    <INPUT STYLE="WIDTH:30px" NAME="tbonus_fpercent" VALUE='<% Response.write mStr_tbonus_fpercent%>'>%
                    <FONT COLOR=RED>**</FONT>
                </TD>
            </TR>
            <TR>
                <TD>前期是否发放&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT NAME="tbonus_fisgive">
                        <OPTION VALUE='' SELECTED></OPTION>
                        <OPTION VALUE='1' <% if mStr_tbonus_fisgive="True" then Response.write "SELECTED"%>>是</OPTION>
                        <OPTION VALUE='0' <% if mStr_tbonus_fisgive="False" then Response.write "SELECTED"%>>否</OPTION>
                    </SELECT>
                    <FONT COLOR=RED>**</FONT>
                </TD>
            </TR>
            <TR>
                <TD>前期发放日期&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT STYLE="WIDTH:50px" NAME="tbonus_fdateYear" ONCHANGE='javascript:window.Frm_Update.tbonus_fdate.value=ConvertToDate(window.Frm_Update.tbonus_fdateYear.value,window.Frm_Update.tbonus_fdateMonth.value,window.Frm_Update.tbonus_fdateDay.value)'>
                        <OPTION VALUE='' SELECTED></OPTION>
                        <%
                        if (FormatDate(mStr_tbonus_fdate,"yyyy")="") then
                            Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
                        else
                            Call ShowOptionList(Val(FormatDate(mStr_tbonus_fdate,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_tbonus_fdate,"yyyy"))-5,11,Val(FormatDate(mStr_tbonus_fdate,"yyyy")))
                        end if
                        %>
                    </SELECT>年
                    <SELECT STYLE="WIDTH:40px" NAME="tbonus_fdateMonth" ONCHANGE='javascript:window.Frm_Update.tbonus_fdate.value=ConvertToDate(window.Frm_Update.tbonus_fdateYear.value,window.Frm_Update.tbonus_fdateMonth.value,window.Frm_Update.tbonus_fdateDay.value)'>
                        <OPTION VALUE='' SELECTED></OPTION>
                        <% Call ShowOptionList(1,1,12,FormatDate(mStr_tbonus_fdate,"mm")) %>
                    </SELECT>月
                    <SELECT STYLE="WIDTH:40px" NAME="tbonus_fdateDay" ONCHANGE='javascript:window.Frm_Update.tbonus_fdate.value=ConvertToDate(window.Frm_Update.tbonus_fdateYear.value,window.Frm_Update.tbonus_fdateMonth.value,window.Frm_Update.tbonus_fdateDay.value)'>
                        <OPTION VALUE='' SELECTED></OPTION>
                        <% Call ShowOptionList(1,1,31,FormatDate(mStr_tbonus_fdate,"dd")) %>
                    </SELECT>日
                    <SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
                    &nbsp;&nbsp;&nbsp;西元：<INPUT STYLE="WIDTH:100px" NAME="tbonus_fdate" VALUE='<% Response.write mStr_tbonus_fdate%>' READONLY CLASS="READONLY">
                    </SPAN>
                </TD>
            </TR>
            <TR>
                <TD>技术部分配金额（后期）&nbsp;</TD>
                <TD>&nbsp;
                    <INPUT STYLE="WIDTH:100px" NAME="tbonus_lastsum1" VALUE='<%if len(mStr_tbonus_lastsum)>0 then Response.write mStr_tbonus_lastsum*0.03%>' readonly style="font-size: 9pt; color: blue" size="8">
					<INPUT VALUE='<% Response.write mStr_tbonus_lastsum%>' type="hidden" NAME="tbonus_lastsum">
                </TD>
            </TR>
            <TR>
                <TD>个人后期分配比例&nbsp;</TD>
                <TD>&nbsp;
                    <INPUT STYLE="WIDTH:30px" NAME="tbonus_lpercent" VALUE='<% Response.write mStr_tbonus_lpercent%>'>%
                </TD>
            </TR>
            <TR>
                <TD>后期是否发放&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT NAME="tbonus_lisgive">
                        <OPTION VALUE='' SELECTED></OPTION>
                        <OPTION VALUE='1' <% if mStr_tbonus_lisgive="True" then Response.write "SELECTED"%>>是</OPTION>
                        <OPTION VALUE='0' <% if mStr_tbonus_lisgive="False" then Response.write "SELECTED"%>>否</OPTION>
                    </SELECT>
                </TD>
            </TR>
            <TR>
                <TD>后期发放日期&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT STYLE="WIDTH:50px" NAME="tbonus_ldateYear" ONCHANGE='javascript:window.Frm_Update.tbonus_ldate.value=ConvertToDate(window.Frm_Update.tbonus_ldateYear.value,window.Frm_Update.tbonus_ldateMonth.value,window.Frm_Update.tbonus_ldateDay.value)'>
                        <OPTION VALUE='' SELECTED></OPTION>
                        <%
                        if (FormatDate(mStr_tbonus_ldate,"yyyy")="") then
                            Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
                        else
                            Call ShowOptionList(Val(FormatDate(mStr_tbonus_ldate,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_tbonus_ldate,"yyyy"))-5,11,Val(FormatDate(mStr_tbonus_ldate,"yyyy")))
                        end if
                        %>
                    </SELECT>年
                    <SELECT STYLE="WIDTH:40px" NAME="tbonus_ldateMonth" ONCHANGE='javascript:window.Frm_Update.tbonus_ldate.value=ConvertToDate(window.Frm_Update.tbonus_ldateYear.value,window.Frm_Update.tbonus_ldateMonth.value,window.Frm_Update.tbonus_ldateDay.value)'>
                        <OPTION VALUE='' SELECTED></OPTION>
                        <% Call ShowOptionList(1,1,12,FormatDate(mStr_tbonus_ldate,"mm")) %>
                    </SELECT>月
                    <SELECT STYLE="WIDTH:40px" NAME="tbonus_ldateDay" ONCHANGE='javascript:window.Frm_Update.tbonus_ldate.value=ConvertToDate(window.Frm_Update.tbonus_ldateYear.value,window.Frm_Update.tbonus_ldateMonth.value,window.Frm_Update.tbonus_ldateDay.value)'>
                        <OPTION VALUE='' SELECTED></OPTION>
                        <% Call ShowOptionList(1,1,31,FormatDate(mStr_tbonus_ldate,"dd")) %>
                    </SELECT>日
                    <SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
                    &nbsp;&nbsp;&nbsp;西元：<INPUT STYLE="WIDTH:100px" NAME="tbonus_ldate" VALUE='<% Response.write mStr_tbonus_ldate%>' 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_tbonus_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_tbonus_id" VALUE='<% Response.write mStr_PK_tbonus_id%>'>
			<INPUT TYPE="text" NAME="flag" VALUE='<% Response.write flag%>'>
        </DIV>
    </FORM> 
</BODY> 
</HTML> 

<%
function InitData()
'初始化
dim Rec_Data                              '结果集
    mStr_PK_tbonus_id         =  trim(request.querystring("PK_tbonus_id"))
    if (mStr_PK_tbonus_id<>"") then
        '读取原有数据
        set Rec_Data = mCls_wh_tech_bonuses.GetData(mStr_PK_tbonus_id)
        if (not Rec_Data.eof) then
            mStr_tbonus_memo                     = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_memo") & ""))
            mStr_tbonus_quote                    = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_quote") & ""))
            mStr_tbonus_firstsum                 = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_firstsum") & ""))
            mStr_tbonus_fpercent                 = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fpercent") & ""))
            mStr_tbonus_fisgive                  = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fisgive") & ""))
            mStr_tbonus_fdate                    = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fdate") & ""))
            mStr_tbonus_lastsum                  = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lastsum") & ""))
            mStr_tbonus_lpercent                 = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lpercent") & ""))
            mStr_tbonus_lisgive                  = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lisgive") & ""))
            mStr_tbonus_ldate                    = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_ldate") & ""))
            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_tbonus_id="") then
            call ShowMess(16,"对不起，找不到您所要的 [wh_tech_bonuses]！")
            call WindowBack()
        end if
    else
        mStr_tbonus_memo                     = ""
        mStr_tbonus_quote                    = ""
        mStr_tbonus_firstsum                 = ""
        mStr_tbonus_fpercent                 = ""
        mStr_tbonus_fisgive                  = ""
        mStr_tbonus_fdate                    = ""
        mStr_tbonus_lastsum                  = ""
        mStr_tbonus_lpercent                 = ""
        mStr_tbonus_lisgive                  = ""
        mStr_tbonus_ldate                    = ""
        mStr_employee_id                     = ""
        mStr_project_id                      = ""
    end if
end function
%>