⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.asp

📁 这是一个自己研发的薪酬管理系统
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<%
'文件功能：view_market_bonus--主界面
'编写人员：阿房
'编写时间：2003-08-14 10:08:40
'开发平台：ASP3.0 + MSSQL2000

%>

<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../view_market_bonus/Cls_view_market_bonus.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>


<HTML>
<HEAD>
    <META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
    <TITLE>view_market_bonus--主界面</TITLE>
    <%
    dim mStr_WINDCallType
    mStr_WINDCallType = trim(request.querystring("WINDCallType"))       '调用方式
    dim mStr_WINDURL   '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
    mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
    
    dim mInt_Page                            '当前页
    dim mInt_RecordCount                     '总记录数
    dim mInt_CountPerPage                    '每页记录数
    dim mStr_SortBy                          '排序方式
    dim mStr_AscMark                         '排列顺序
    
    dim mStr_employee_name                   '姓名
    dim mStr_project_name                    '项目名称
    dim mStr_mbonus_prize                    '个人分配金额
    dim mStr_mbonus_isgive                   '是否发放
    dim mStr_mbonus_date                     '发放日期
    dim mStr_dpt_id                          'dpt_id
    call InitData()
    %>
</HEAD>
<BODY>
    <TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0">
        <TR>
            <TD>
                <FONT CLASS="locationhead">您的位置：</FONT>
                <A CLASS="locationdata" HREF="Main.asp?<% =mStr_WINDURL%>">个人提成信息</A>>>
                <A CLASS="locationlastdata" HREF="Main.asp?<% =mStr_WINDURL%>">主界面</A>
            </TD>
        </TR>
    </TABLE>

    <FORM ID="Frm_Data" NAME="Frm_Data">
        <TABLE BORDER="0" WIDTH="100%">
            <TR>
                <TD ALIGN="LEFT" WIDTH=33%>
                    <A HREF="javascript:SelectAll()">全选</A>&nbsp;
                    <A HREF="javascript:SelectReverse()">反选</A>&nbsp;
                </TD>
                <TD ALIGN="RIGHT">
                    <A HREF="javascript:WindowPrint()">打印</A>&nbsp;
                    <A HREF="Search.asp?<% =mStr_WINDURL%>">查询</A>&nbsp;
                </TD>
            </TR>
        </TABLE>
        <TABLE WIDTH=100% <% Response.write GetTableBorder()%>>
            <COLGROUP>
                <COL 1 WIDTH="40" ALIGN="CENTER">
                <COL 2 WIDTH="40" ALIGN="CENTER">
            </COLGROUP>
            <TR CLASS='TABLEHEAD' ALIGN=CENTER>
                <TD>序号</TD>
            
                <TD><A HREF='javascript:OrderBy("employee_name")'>姓名<% call GetOrderBy("employee_name")%></A></TD>
                <TD><A HREF='javascript:OrderBy("project_name")'>项目名称<% call GetOrderBy("project_name")%></A></TD>
                <TD><A HREF='javascript:OrderBy("project_begin")'>合同签定日期<% call GetOrderBy("project_begin")%></A></TD>
                <TD><A HREF='javascript:OrderBy("project_end")'>规定完成日期<% call GetOrderBy("project_end")%></A></TD>
                <TD><A HREF='javascript:OrderBy("project_finish")'>实际完成日期<% call GetOrderBy("project_finish")%></A></TD>
                <TD><A HREF='javascript:OrderBy("mbonus_prize")'>个人分配金额<% call GetOrderBy("mbonus_prize")%></A></TD>
                <TD><A HREF='javascript:OrderBy("mbonus_date")'>发放日期<% call GetOrderBy("mbonus_date")%></A></TD>
            </TR>
            <%
            call ShowAllData_view_market_bonus()       '显示查询结果
            %>
        </TABLE>
        <%
        '显示页数
        call ShowPage(mInt_RecordCount,mInt_CountPerPage,mInt_Page,"WIDTH:100%")
        %>
    </FORM>
    <DIV STYLE="DISPLAY:NONE">
        <FORM ACTION="?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post">
            <INPUT NAME="Page"      id=Page         VALUE='<% =mInt_Page %>'>
            <INPUT NAME="SortBy"    id=SortBy       VALUE='<% =mStr_SortBy %>'>
            <INPUT NAME="AscMark"   id=AscMark      VALUE='<% =mStr_AscMark %>'>
            <INPUT NAME='employee_name'   VALUE='<% =mStr_employee_name %>'>
            <INPUT NAME='project_name'    VALUE='<% =mStr_project_name %>'>
            <INPUT NAME='mbonus_prize'    VALUE='<% =mStr_mbonus_prize %>'>
            <INPUT NAME='mbonus_isgive'   VALUE='<% =mStr_mbonus_isgive %>'>
            <INPUT NAME='mbonus_date'     VALUE='<% =mStr_mbonus_date %>'>
            <INPUT NAME='dpt_id'          VALUE='<% =mStr_dpt_id %>'>
        </FORM>
    </DIV>
</BODY>
</HTML>
<%
function InitData()
'初始化
dim Str_Mess                             '错误信息
dim Int_Count                            '错误记录数

    '读取查询条件
    mInt_Page           =  val(trim(request.form("Page")))
    if mInt_Page=0 then mInt_Page=Val(session("session_view_market_bonusPage"))
    if mInt_Page=0 then mInt_Page=1
    session("session_view_market_bonusPage")=mInt_Page
    
    mStr_SortBy         =  trim(request.form("SortBy"))
    mStr_AscMark        =  trim(request.form("AscMark"))

    mStr_employee_name                     = trim(request.form("employee_name"))
    mStr_project_name                      = trim(request.form("project_name"))
    mStr_mbonus_prize                      = trim(request.form("mbonus_prize"))
    mStr_mbonus_isgive                     = trim(request.form("mbonus_isgive"))
    mStr_mbonus_date                       = trim(request.form("mbonus_date"))
    mStr_dpt_id                            = trim(request.form("dpt_id"))
    Str_Mess      =  ""
    Int_Count     =  1


    if ((mStr_mbonus_prize<>"") and not (IsNumeric(mStr_mbonus_prize))) then
        Str_Mess  = Str_Mess + "\n" + cstr(Int_Count) + ") [个人分配金额] 一栏必须为数值！"
        Int_Count = Int_Count+1
    end if
    if ((mStr_mbonus_date<>"") and not (IsDate(mStr_mbonus_date))) 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_view_market_bonus()
'显示查询结果
dim Str_PK_employee_id          '主鍵
dim Str_employee_name           '姓名
dim Str_project_name            '项目名称
dim Str_project_begin           '合同签定日期
dim Str_project_end             '规定完成日期
dim Str_project_finish          '实际完成日期
dim Str_mbonus_prize            '个人分配金额
dim Str_mbonus_isgive           '是否发放
dim Str_mbonus_date             '发放日期
dim Str_employee_id             'employee_id
dim Str_dpt_id                  'dpt_id
dim Rec_Data                             '结果集
dim Int_PageCount                        '总页数
dim Int_Count                            '记数

    mInt_CountPerPage     =  GetCountPerPage()

    '计算页数
    set Rec_Data         = mCls_view_market_bonus.SearchData(mStr_SortBy + " "+  mStr_AscMark, mStr_employee_name, mStr_project_name, mStr_mbonus_prize, mStr_mbonus_isgive, mStr_mbonus_date, 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_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") & ""))



        '显示资料
%>
        <!-- #include file="../view_market_bonus/Show_view_market_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_market_bonus]！")
        return
    }
    if (Int_SelectCount>1){
        alert("对不起，您只能选择一个要修改的 [view_market_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_market_bonus]！")
        return
    }
    if (window.confirm("删除选定的 [view_market_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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -