main.asp

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

dim Str_project_name            '项目名称
dim Str_project_begin           '合同签定日期
dim Str_project_end             '规定完成日期
dim Str_project_finish          '实际完成日期
dim Str_tbonus_fprize           '前期分配金额
dim Str_tbonus_fisgive          '前期是否发放
dim Str_tbonus_fdate            '前期发放日期
dim Str_tbonus_lprize           '后期分配金额
dim Str_tbonus_lisgive          '后期是否发放
dim Str_tbonus_ldate            '后期发放日期
dim Str_employee_id             '员工ID
dim Str_dpt_id                  '部门ID
dim Rec_Data                             '结果集
dim Int_PageCount                        '总页数
dim Int_Count                            '记数

    mInt_CountPerPage     =  GetCountPerPage()

    '计算页数
    set Rec_Data         = mCls_view_tech_bonus.SearchData(mStr_SortBy + " "+  mStr_AscMark, mStr_employee_name, mStr_project_name, mStr_project_begin, mStr_project_end, mStr_project_finish, mStr_tbonus_fprize, mStr_tbonus_fisgive, mStr_tbonus_fdate, mStr_tbonus_lprize, mStr_tbonus_lisgive, mStr_tbonus_ldate, mStr_employee_id, mStr_dpt_id)
    mInt_RecordCount      = Rec_Data.RecordCount
    if not Rec_Data.eof then
        Rec_Data.PageSize = mInt_CountPerPage
        Int_PageCount        = Rec_Data.PageCount
        if mInt_Page > Int_PageCount then mInt_Page=1
        Rec_Data.AbsolutePage  = mInt_Page
    end if
    Int_Count            = 0
    Do while not Rec_Data.eof and Int_Count<mInt_CountPerPage
        '读取资料
        Int_Count        =  Int_Count+1

        Str_PK_employee_id      = Server.HTMLEncode(trim(Rec_Data.fields("employee_id") & ""))
        Str_employee_name       = Server.HTMLEncode(trim(Rec_Data.fields("employee_name") & ""))
        Str_project_name        = Server.HTMLEncode(trim(Rec_Data.fields("project_name") & ""))
        Str_project_begin       = Server.HTMLEncode(trim(Rec_Data.fields("project_begin") & ""))
        Str_project_end         = Server.HTMLEncode(trim(Rec_Data.fields("project_end") & ""))
        Str_project_finish      = Server.HTMLEncode(trim(Rec_Data.fields("project_finish") & ""))
        Str_tbonus_fprize       = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fprize") & ""))
        Str_tbonus_fisgive      = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fisgive") & ""))
        Str_tbonus_fdate        = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fdate") & ""))
        Str_tbonus_lprize       = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lprize") & ""))
        Str_tbonus_lisgive      = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lisgive") & ""))
        Str_tbonus_ldate        = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_ldate") & ""))
        Str_employee_id         = Server.HTMLEncode(trim(Rec_Data.fields("employee_id") & ""))
        Str_dpt_id              = Server.HTMLEncode(trim(Rec_Data.fields("dpt_id") & ""))




        '显示资料
%>
        <!-- #include file="../view_tech_bonus/Show_view_tech_bonus.asp" -->
<%        
        Rec_Data.movenext
    loop
    Rec_Data.close
end function

function GetOrderBy(pStr_SortBy)
    if (mStr_SortBy = pStr_SortBy) then
        if (mStr_AscMark = "") then
            Response.Write "<img src='../image/btup.gif' ALIGN='ABSMIDDLE' BORDER=0>"
        else
            Response.Write "<img src='../image/btdown.gif' ALIGN='ABSMIDDLE' BORDER=0>"
        end if
    end if
end function
%>

<SCRIPT LANGUAGE="javascript">
<!--********************************************************************************-->
function getpage(pStr_Page){
//换页
    window.Frm_Update.Page.value=pStr_Page;
    window.Frm_Update.submit()
}
<!--********************************************************************************-->
function OrderBy(pStr_Type){
//排序
    window.Frm_Update.SortBy.value=pStr_Type;
    if (pStr_Type=="<% =mStr_SortBy%>"){
        window.Frm_Update.AscMark.value=(window.Frm_Update.AscMark.value==""?"desc":"")
    } else {
        window.Frm_Update.AscMark.value=""
    }
    window.Frm_Update.Page.value=1;
    window.Frm_Update.submit()
}
<!--********************************************************************************-->
function SelectAll(){
//全选
var Int_Count
var Int_I
    Int_Count=window.Frm_Data.length
    for(Int_I=0; Int_I<=Int_Count-1; Int_I++){
        if (document.Frm_Data.elements[Int_I].name=="ChkID"){
            document.Frm_Data.elements[Int_I].checked=true
        }
    }
}
<!--********************************************************************************-->
function SelectReverse(){
//反选
var Int_Count
var Int_I
var Str_Var
    Int_Count=window.Frm_Data.length
    for(Int_I=0; Int_I<=Int_Count-1; Int_I++){
        if (document.Frm_Data.elements[Int_I].name=="ChkID"){
            Str_Var=document.Frm_Data.elements[Int_I].checked
            document.Frm_Data.elements[Int_I].checked=! Str_Var
        }
    }
}
<!--********************************************************************************-->
function CallUpdate(){
//修改资料
var Int_SelectCount
var Str_ChkID
var Int_Len
var Str_Date=new Date()
    Int_SelectCount=GetSelectCount()
    Str_ChkID=GetSelected()
    if (Int_SelectCount<=0){
        alert("对不起，请选择要修改的 [view_tech_bonus]！")
        return
    }
    if (Int_SelectCount>1){
        alert("对不起，您只能选择一个要修改的 [view_tech_bonus]！")
        return
    }
    Int_Len=Str_ChkID.length
    if (Str_ChkID!="") {Str_ChkID=Str_ChkID.substr(1,Int_Len-2)}
        
    window.location="Update.asp?<% =mStr_WINDURL%>&time="+Str_Date.getTime()+"&PK_employee_id="+Str_ChkID
}
<!--********************************************************************************-->
function CallDelete(){
//删除资料
var Int_SelectCount
var Str_ChkID
var Str_Date=new Date()
    Int_SelectCount=GetSelectCount()
    Str_ChkID=GetSelected()
    if (Int_SelectCount<=0){
        alert("对不起，请选择要删除的 [view_tech_bonus]！")
        return
    }
    if (window.confirm("删除选定的 [view_tech_bonus]吗？")){
        window.location="Delete.asp?<% =mStr_WINDURL%>&time="+Str_Date.getTime()+"&PK_employee_id="+Str_ChkID
    }
}
<!--********************************************************************************-->
function GetSelectCount(){
//读取选定的编码
var Int_Count
var Int_SelectCount
var Str_Chk
var Str_ChkID
var Int_I
var Str_Value
    Str_ChkID=""
    Int_Count=window.Frm_Data.length
    Int_SelectCount=0
    for(Int_I=0; Int_I<=Int_Count-1; Int_I++){
        if (document.Frm_Data.elements[Int_I].name=="ChkID"){
            Str_Value=document.Frm_Data.elements[Int_I].value
            if ((Str_Value!="") && (document.Frm_Data.elements[Int_I].checked)){
                Int_SelectCount=Int_SelectCount+1
            }
        }
    }
    return Int_SelectCount
}
<!--********************************************************************************-->
function GetSelected(){
//读取选定的编码
var Int_Count
var Int_SelectCount
var Str_Chk
var Str_ChkID
var Int_I
var Str_Value
    Str_ChkID=""
    Int_Count=window.Frm_Data.length
    Int_SelectCount=0
    for(Int_I=0; Int_I<=Int_Count-1; Int_I++){
        if (document.Frm_Data.elements[Int_I].name=="ChkID"){
            Str_Value=document.Frm_Data.elements[Int_I].value
            if ((Str_Value!="") && (document.Frm_Data.elements[Int_I].checked)){
                Int_SelectCount=Int_SelectCount+1;
                Str_ChkID=Str_ChkID +",'"+Str_Value+"'";
            }
        }
    }
    if (Str_ChkID!="") {Str_ChkID=Str_ChkID.substr(1)}
    return Str_ChkID
}
<!--********************************************************************************-->
</SCRIPT>