📄 main.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能：view_market_bonus2--主界面
'编写人员：阿房
'编写时间：2003-08-18 14:39:32
'开发平台：ASP3.0 + MSSQL2000
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../view_market_bonus2/Cls_view_market_bonus2.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_bonus2--主界面</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_employee_id '员工ID
dim mStr_dpt_id '部门ID
dim mStr_mbonus_id '提成ID
dim mStr_project_id '项目ID
call InitData()
%>
<%
dim empid,itemid
empid=request("empid")
itemid=request("itemid")
'response.end%>
<script language="javascript">
function countnum(whichclick)
{
if (whichclick.checked == true){
bonus_sum.prize_sum.value = eval(bonus_sum.prize_sum.value) + eval(whichclick.value);
}
else{
bonus_sum.prize_sum.value = eval(bonus_sum.prize_sum.value) - eval(whichclick.value);
}
}
function sendsum()
{
window.opener.document.Frm_Update.<%=itemid%>.value=bonus_sum.prize_sum.value;
window.close();
}
</script>
</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="RIGHT">
<A HREF="javascript:WindowPrint()">打印</A>
</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>姓名</TD>
<TD>项目名称</A></TD>
<TD>个人分配金额</TD>
<TD>是否发放</TD>
<TD>发放日期</TD>
</TR>
<%
call ShowAllData_view_market_bonus2() '显示查询结果
%>
</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='employee_id' VALUE='<% =mStr_employee_id %>'>
<INPUT NAME='dpt_id' VALUE='<% =mStr_dpt_id %>'>
<INPUT NAME='mbonus_id' VALUE='<% =mStr_mbonus_id %>'>
<INPUT NAME='project_id' VALUE='<% =mStr_project_id %>'>
</FORM>
</DIV>
<form name="bonus_sum" action=''><input name="prize_sum" type="text" value="0" readonly="true" size="10" maxlength="10" style="font-family:宋体; font-size: 20px; color: blue;font-weight: bold" value="加粗"><A HREF="javascript:sendsum()">结算</A><!-- <input name="button" type="submit" value="确定"> --></form>
</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_bonus2Page"))
if mInt_Page=0 then mInt_Page=1
session("session_view_market_bonus2Page")=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_employee_id = trim(request.form("employee_id"))
mStr_dpt_id = trim(request.form("dpt_id"))
mStr_mbonus_id = trim(request.form("mbonus_id"))
mStr_project_id = trim(request.form("project_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 ((mStr_employee_id<>"") and not (IsNumeric(mStr_employee_id))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [员工ID] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_dpt_id<>"") and not (IsNumeric(mStr_dpt_id))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [部门ID] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_mbonus_id<>"") and not (IsNumeric(mStr_mbonus_id))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [提成ID] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_id<>"") and not (IsNumeric(mStr_project_id))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [项目ID] 一栏必须为数值！"
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_bonus2()
'显示查询结果
dim Str_PK_employee_name '主鍵
dim Str_employee_name '姓名
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -