📄 show.asp

📁 这是一个自己研发的薪酬管理系统
💻 ASP
字号:
<%@ Language=VBScript %>
<%
'文件功能:市场部部提成管理---查看
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设立权限控制
%>


<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_market_bonuses/Cls_wh_market_bonuses.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->

<%call checklogin()%>

<%if session("right")<3 and session("dpt")<>2 or session("right")=1 then
	dim lr
	lr="<font color=red>"&now()&"有"&session("name")&"试图查看市场部提成  IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
    call savelog("../pub/error.htm",lr)
	call savedatalog(now(),session("name"),"试图查看市场部提成",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),2)
	response.redirect("../error.asp?msg=2")
end if%>

<HTML>
<HEAD>
    <META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
    <TITLE>wh_market_bonuses--查看</TITLE>
    <%
    dim mStr_WINDCallType
    mStr_WINDCallType = trim(request.querystring("WINDCallType"))       '调用方式
    dim mStr_WINDURL   '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
    mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)

    '以下为全局变量定义
    dim mStr_PK_mbonus_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="javascript:window.location.reload()">查看</A>
            </TD>
        </TR>
    </TABLE>
    <BR>
    <%
    call ShowData_wh_market_bonuses()   '显示wh_market_bonuses
    %>
    <TABLE BORDER="0" WIDTH="90%">
        <TR>
            <TD ALIGN="LEFT">
                <A HREF="javascript:window.history.back()">返回</A>
            </TD>
            <TD ALIGN="RIGHT">
                <A HREF="Update.asp?<% =mStr_WINDURL%>">新增</A>&nbsp;
                <A HREF="Update.asp?<% =mStr_WINDURL%>&PK_mbonus_id=<% Response.write mStr_PK_mbonus_id%>">修改</A>&nbsp;
                <A HREF="javascript:DeleteData()">删除</A>&nbsp;
                <A HREF="javascript:WindowPrint()">打印</A>&nbsp;
                <A HREF="Search.asp?<% =mStr_WINDURL%>">查询</A>&nbsp;
            </TD>
        </TR>
    </TABLE>
    <DIV STYLE="DISPLAY:NONE">
    </DIV>
</BODY> 
</HTML> 
<%
function InitData()
    mStr_PK_mbonus_id      =  trim(request.querystring("PK_mbonus_id"))
end function

function ShowData_wh_market_bonuses()
dim Str_mbonus_id                        'mbonus_id
dim Str_mbonus_memo                      '备注
dim Str_mbonus_sum                       '项目纯分配金额
dim Str_mbonus_quota                     '市场部分配比例
dim Str_mbonus_percent                   '个人应分配比例
dim Str_mbonus_isgive                    '是否发放
dim Str_mbonus_date                      '发放日期
dim Str_employee_id                      '员工ID
dim Str_project_id                       '项目ID
dim Rec_Data                             '结果集
    if (mStr_PK_mbonus_id<>"") then
        set Rec_Data   = mCls_wh_market_bonuses.GetData(mStr_PK_mbonus_id)
        if (not Rec_Data.eof) then
            Str_mbonus_id                     = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_id") & ""))
            Str_mbonus_memo                   = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_memo") & ""))
            Str_mbonus_sum                    = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_sum") & ""))
            Str_mbonus_quota                  = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_quota") & ""))
            Str_mbonus_percent                = Server.HTMLEncode(trim(Rec_Data.fields("mbonus_percent") & ""))
            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_project_id                    = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))

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


            '显示
%>
        <!-- #include file="../wh_market_bonuses/ShowOne_wh_market_bonuses.asp" -->
<%        
        end if
        Rec_Data.Close
    end if
    if (mStr_PK_mbonus_id="") then
        call ShowMess(16,"找不到相应的 [wh_market_bonuses]!")
        call WindowBack()
    end if
end function
%>

<SCRIPT LANGUAGE="javascript">
<!--********************************************************************************-->
function DeleteData(){
var w_date=new Date()
    if (window.confirm("要删除所选定的 [wh_market_bonuses]吗？")){
        window.location="Delete.asp?<% =mStr_WINDURL%>&time="+w_date.getTime()+"&PK_mbonus_id='<% Response.write mStr_PK_mbonus_id%>'"
    }
}
<!--********************************************************************************-->
</SCRIPT>
⌨️ 快捷键说明

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