📄 search.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)
    
    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>
    <FORM ACTION="Main.asp?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post">
        <TABLE WIDTH="80%" <% Response.write GetTableBorder()%>>
            <COLGROUP>
                <COL 1 CLASS="TABLEHEAD" WIDTH="100" ALIGN="RIGHT">
                <COL 2 CLASS="TABLEDATA">
            </COLGROUP>
            <TR>
                <TD>排序方式&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT STYLE="HEIGHT:100px;WIDTH:200px" NAME="SortBy">
                        <OPTION VALUE='mbonus_percent'>个人应分配比例</OPTION>
                        <OPTION VALUE='mbonus_date'>发放日期</OPTION>
                        <OPTION VALUE='employee_id'>员工ID</OPTION>
                        <OPTION VALUE='project_id'>项目ID</OPTION>
                    </SELECT>
                    <INPUT TYPE=RADIO       NAME="AscMark"  VALUE='' CHECKED>升序
                    <INPUT TYPE=RADIO       NAME="AscMark"  VALUE='desc'>倒序
                    <INPUT TYPE=HIDDEN      NAME="Page"    VALUE='1'>
                </TD>
            </TR>
            <TR>
                <TD>是否发放&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT STYLE="HEIGHT:100px;WIDTH:200px" NAME="mbonus_isgive">
                        <OPTION VALUE='' SELECTED></OPTION>
                    </SELECT>
                </TD>
            </TR>
            <TR>
                <TD>发放日期&nbsp;</TD>
                <TD>&nbsp;
                    <SELECT NAME="mbonus_dateYear" ONCHANGE='javascript:window.Frm_Update.mbonus_date.value=ConvertToDate(window.Frm_Update.mbonus_dateYear.value,window.Frm_Update.mbonus_dateMonth.value,window.Frm_Update.mbonus_dateDay.value)'>
                        <OPTION VALUE='' SELECTED>请选择</OPTION>
                        <% Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date())) %>
                    </SELECT>年
                    <SELECT NAME="mbonus_dateMonth" ONCHANGE='javascript:window.Frm_Update.mbonus_date.value=ConvertToDate(window.Frm_Update.mbonus_dateYear.value,window.Frm_Update.mbonus_dateMonth.value,window.Frm_Update.mbonus_dateDay.value)'>
                        <OPTION VALUE='' SELECTED>请选择</OPTION>
                        <% Call ShowOptionList(1,1,12,0) %>
                    </SELECT>月
                    <SELECT NAME="mbonus_dateDay" ONCHANGE='javascript:window.Frm_Update.mbonus_date.value=ConvertToDate(window.Frm_Update.mbonus_dateYear.value,window.Frm_Update.mbonus_dateMonth.value,window.Frm_Update.mbonus_dateDay.value)'>
                        <OPTION VALUE='' SELECTED>请选择</OPTION>
                        <% Call ShowOptionList(1,1,31,0) %>
                    </SELECT>日
                    <SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
                    &nbsp;&nbsp;&nbsp;西元：<INPUT STYLE="WIDTH:100px" NAME="mbonus_date" VALUE='' READONLY CLASS="READONLY">
                    </SPAN>
                </TD>
            </TR>
            <TR>
                <TD>员工姓名&nbsp;</TD>
                <TD>&nbsp;
					<SELECT NAME="employee_id">
					<OPTION VALUE=''>请选择</OPTION>
					<%Call listemployee(2,0)%>
					</SELECT>
                </TD>
            </TR>
            <TR>
                <TD>参与项目&nbsp;</TD>
                <TD>&nbsp;
					<SELECT NAME="project_id">
					<OPTION VALUE=''>请选择</OPTION>
					<%Call listproj(0)%>
					</SELECT>
                </TD>
            </TR>
        </TABLE>
        <TABLE BORDER="0" WIDTH="80%">
            <TR>
                <TD>
                    <A HREF="#" ONCLICK="javascript:window.Frm_Update.submit();return false"><IMG SRC="../image/btok.gif" BORDER="0"></A>
                    <A HREF="#" ONCLICK="javascript:window.Frm_Update.reset();return false"><IMG SRC="../image/btno.gif" BORDER="0"></A> 
                </TD>
            </TR>
        </TABLE>
        <DIV STYLE="DISPLAY:NONE">
        </DIV>
    </FORM> 
</BODY> 
</HTML> 

<%
function InitData()
end function
%>
⌨️ 快捷键说明

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