main.asp

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

dim Str_project_name            '项目名称
dim Str_mbonus_prize            '个人分配金额
dim Str_mbonus_isgive           '是否发放
dim Str_mbonus_date             '发放日期
dim Str_employee_id             '员工ID
dim Str_dpt_id                  '部门ID
dim Str_mbonus_id               '提成ID
dim Str_project_id              '项目ID
dim Rec_Data                             '结果集
dim Int_PageCount                        '总页数
dim Int_Count                            '记数

    mInt_CountPerPage     =  GetCountPerPage()

    '计算页数
    set Rec_Data         = mCls_view_market_bonus2.SearchData(mStr_SortBy + " "+  mStr_AscMark, mStr_employee_name, mStr_project_name, mStr_mbonus_prize, mStr_mbonus_isgive, mStr_mbonus_date, mStr_employee_id, mStr_dpt_id, mStr_mbonus_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_employee_name    = Server.HTMLEncode(trim(Rec_Data.fields("employee_name") & ""))
        Str_employee_name       = Server.HTMLEncode(trim(Rec_Data.fields("employee_name") & ""))
        Str_project_name        = Server.HTMLEncode(trim(Rec_Data.fields("project_name") & ""))
        Str_mbonus_prize        = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_prize") & ""))
        Str_mbonus_isgive       = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_isgive") & ""))
        Str_mbonus_date         = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_date") & ""))
        Str_employee_id         = Server.HTMLEncode(trim(Rec_Data.fields("employee_id") & ""))
        Str_dpt_id              = Server.HTMLEncode(trim(Rec_Data.fields("dpt_id") & ""))
        Str_mbonus_id           = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_id") & ""))
        Str_project_id          = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))



        '显示资料
%>
        <!-- #include file="../view_market_bonus2/Show_view_market_bonus2.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_market_bonus2]！")
        return
    }
    if (Int_SelectCount>1){
        alert("对不起，您只能选择一个要修改的 [view_market_bonus2]！")
        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_name="+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_market_bonus2]！")
        return
    }
    if (window.confirm("删除选定的 [view_market_bonus2]吗？")){
        window.location="Delete.asp?<% =mStr_WINDURL%>&time="+Str_Date.getTime()+"&PK_employee_name="+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>