main.asp

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

dim Str_tbonus_fpercent         '个人前期分配比例
dim Str_tbonus_fisgive          '前期是否发放
dim Str_tbonus_fdate            '前期发放日期
dim Str_tbonus_lastsum          '项目纯分配金额（后期）
dim Str_tbonus_lpercent         '个人后期分配比例
dim Str_tbonus_lisgive          '后期是否发放
dim Str_tbonus_ldate            '后期发放日期
dim Str_employee_id             '员工ID
dim Str_project_id              '项目ID
dim Rec_Data                             '结果集
dim Int_PageCount                        '总页数
dim Int_Count                            '记数
Dim proj(10000)

    mInt_CountPerPage     =  GetCountPerPage()

    '计算页数
    set Rec_Data         = mCls_wh_tech_bonuses.SearchData(mStr_SortBy + " "+  mStr_AscMark, 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)
    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_tbonus_id        = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_id") & ""))
        Str_tbonus_memo         = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_memo") & ""))
        Str_tbonus_quote        = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_quote") & ""))
        Str_tbonus_firstsum     = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_firstsum") & ""))
        Str_tbonus_fpercent     = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fpercent") & ""))
        Str_tbonus_fisgive      = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fisgive") & ""))
        Str_tbonus_fdate        = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fdate") & ""))
        Str_tbonus_lastsum      = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lastsum") & ""))
        Str_tbonus_lpercent     = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lpercent") & ""))
        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_project_id          = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))

        Str_tbonus_memo         = replace(Str_tbonus_memo,vbCrlf,"<BR> &nbsp; ")

        Str_tbonus_fisgive      = replace(Str_tbonus_fisgive,"1","是")
        Str_tbonus_fisgive      = replace(Str_tbonus_fisgive,"0","否")

        Str_tbonus_lisgive      = replace(Str_tbonus_lisgive,"1","是")
        Str_tbonus_lisgive      = replace(Str_tbonus_lisgive,"0","否")
		proj(Int_Count)			= Str_project_id

        '显示资料
%>
        <!-- #include file="../wh_tech_bonuses/Show_wh_tech_bonuses.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(id){
//修改资料
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("对不起，请选择要修改的 [wh_tech_bonuses]！")
        return
    }
    if (Int_SelectCount>1){
        alert("对不起，您只能选择一个要修改的 [wh_tech_bonuses]！")
        return
    }
    Int_Len=Str_ChkID.length
    if (Str_ChkID!="") {Str_ChkID=Str_ChkID.substr(1,Int_Len-2)}
        
    window.open("Update.asp?<% =mStr_WINDURL%>&time="+Str_Date.getTime()+"&PK_tbonus_id="+Str_ChkID+"&flag="+id)
}
<!--********************************************************************************-->
function CallDelete(id){
//删除资料
var Int_SelectCount
var Str_ChkID
var Str_Date=new Date()
    Int_SelectCount=GetSelectCount()
    Str_ChkID=GetSelected()
    if (Int_SelectCount<=0){
        alert("对不起，请选择要删除的 [wh_tech_bonuses]！")
        return
    }
    if (window.confirm("删除选定的 [wh_tech_bonuses]吗？")){
        window.open("Delete.asp?<% =mStr_WINDURL%>&time="+Str_Date.getTime()+"&PK_tbonus_id="+Str_ChkID+"&flag="+id)
    }
}
<!--********************************************************************************-->
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>