main.asp

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

        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [前期邮箱费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_other<>"") and not (IsNumeric(mStr_project_other))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [前期其它费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_cost2<>"") and not (IsNumeric(mStr_project_cost2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期成本费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_operation2<>"") and not (IsNumeric(mStr_project_operation2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期业务费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_codes2<>"") and not (IsNumeric(mStr_project_codes2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期非南京公司开发程序费] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_host2<>"") and not (IsNumeric(mStr_project_host2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期主机费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_dns2<>"") and not (IsNumeric(mStr_project_dns2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期域名费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_search2<>"") and not (IsNumeric(mStr_project_search2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期搜索引擎费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_mail2<>"") and not (IsNumeric(mStr_project_mail2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期邮箱费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_project_other2<>"") and not (IsNumeric(mStr_project_other2))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [后期其它费用] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if

    if (Str_Mess<>"") then
        call ShowMess(16,"对不起，您录入的资料存在以下错误:" _
        +"\n"+  Str_Mess _
        +"\n"++"\n"+ "请检查资料或联系管理员！")
        call WindowBack()
    end if
end function

function ShowAllData_wh_projects()
'显示查询结果
dim Str_PK_project_id           '主鍵
dim Str_project_name            '项目名称
dim Str_project_begin           '签定合同日期
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            '备注
dim Rec_Data                             '结果集
dim Int_PageCount                        '总页数
dim Int_Count                            '记数

    mInt_CountPerPage     =  GetCountPerPage()

    '计算页数
    set Rec_Data         = mCls_wh_projects.SearchData(mStr_SortBy + " "+  mStr_AscMark, mStr_project_name, mStr_project_begin, mStr_project_end, mStr_project_finish, mStr_project_score, mStr_project_sum, mStr_project_firstpay, mStr_project_lastpay, mStr_project_notpay, mStr_project_cost, mStr_project_operation, mStr_project_codes, mStr_project_host, mStr_project_dns, mStr_project_search, mStr_project_mail, mStr_project_other, mStr_project_cost2, mStr_project_operation2, mStr_project_codes2, mStr_project_host2, mStr_project_dns2, mStr_project_search2, mStr_project_mail2, mStr_project_other2, mStr_project_memo)
    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_project_id       = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))
        Str_project_name        = Server.HTMLEncode(trim(Rec_Data.fields("project_name") & ""))
        Str_project_begin       = Server.HTMLEncode(trim(Rec_Data.fields("project_begin") & ""))
        Str_project_cost2       = Server.HTMLEncode(trim(Rec_Data.fields("project_cost2") & ""))
        Str_project_operation2            = Server.HTMLEncode(trim(Rec_Data.fields("project_operation2") & ""))
        Str_project_codes2      = Server.HTMLEncode(trim(Rec_Data.fields("project_codes2") & ""))
        Str_project_host2       = Server.HTMLEncode(trim(Rec_Data.fields("project_host2") & ""))
        Str_project_dns2        = Server.HTMLEncode(trim(Rec_Data.fields("project_dns2") & ""))
        Str_project_search2     = Server.HTMLEncode(trim(Rec_Data.fields("project_search2") & ""))
        Str_project_mail2       = Server.HTMLEncode(trim(Rec_Data.fields("project_mail2") & ""))
        Str_project_other2      = Server.HTMLEncode(trim(Rec_Data.fields("project_other2") & ""))
        Str_project_memo        = Server.HTMLEncode(trim(Rec_Data.fields("project_memo") & ""))
		Str_project_notpay      = Server.HTMLEncode(trim(Rec_Data.fields("project_notpay") & ""))
		Str_project_sum      = Server.HTMLEncode(trim(Rec_Data.fields("project_sum") & ""))

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

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