📄 main.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能：wh_tech_bonuses--主界面
'编写人员：阿房
'编写时间：2003-08-16 19:57:18
'开发平台：ASP3.0 + MSSQL2000
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_tech_bonuses/Cls_wh_tech_bonuses.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<%if session("right")<2 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%>
<%
set rs=conn.execute("select max(project_id) from wh_projects")
maxid=rs(0)
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<TITLE>wh_tech_bonuses--主界面</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_tbonus_quote '技术部分配比例
dim mStr_tbonus_firstsum '项目纯分配金额（前期）
dim mStr_tbonus_fpercent '个人前期分配比例
dim mStr_tbonus_fisgive '前期是否发放
dim mStr_tbonus_fdate '前期发放日期
dim mStr_tbonus_lastsum '项目纯分配金额（后期）
dim mStr_tbonus_lpercent '个人后期分配比例
dim mStr_tbonus_lisgive '后期是否发放
dim mStr_tbonus_ldate '后期发放日期
dim mStr_employee_id '员工ID
dim mStr_project_id '项目ID
dim PK_project_id
PK_project_id=request("PK_project_id")
call InitData()
%>
</HEAD>
<BODY leftmargin="0" topmargin="0"><div align="center">
<FORM ID="Frm_Data" NAME="Frm_Data">
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD ALIGN="LEFT" WIDTH=33%>
<A HREF="javascript:SelectAll()">全选</A>
<A HREF="javascript:SelectReverse()">反选</A>
</TD>
<TD ALIGN="RIGHT">
<A HREF="javascript:CallUpdate(<%=PK_project_id%>)">修改</A>
<A HREF="javascript:CallDelete(<%=PK_project_id%>)">删除</A>
<A HREF="javascript:WindowPrint()">打印</A>
<A HREF="Search.asp?<% =mStr_WINDURL%>" target="_parent">查询</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>员工姓名
</TD>
<TD>技术部分配金额（前期）
</TD>
<TD>个人前期分配比例
</TD>
<TD>前期实得奖金
</TD>
<TD>前期发放日期
</TD>
<TD>技术部分配金额（后期）
</TD>
<TD>个人后期分配比例
</TD>
<TD>后期实得奖金
</TD>
<TD>后期发放日期
</TD>
</TR>
<%
call ShowAllData_wh_tech_bonuses() '显示查询结果
%>
</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='tbonus_quote' VALUE='<% =mStr_tbonus_quote %>'>
<INPUT NAME='tbonus_firstsum' VALUE='<% =mStr_tbonus_firstsum %>'>
<INPUT NAME='tbonus_fpercent' VALUE='<% =mStr_tbonus_fpercent %>'>
<INPUT NAME='tbonus_fisgive' VALUE='<% =mStr_tbonus_fisgive %>'>
<INPUT NAME='tbonus_fdate' VALUE='<% =mStr_tbonus_fdate %>'>
<INPUT NAME='tbonus_lastsum' VALUE='<% =mStr_tbonus_lastsum %>'>
<INPUT NAME='tbonus_lpercent' VALUE='<% =mStr_tbonus_lpercent %>'>
<INPUT NAME='tbonus_lisgive' VALUE='<% =mStr_tbonus_lisgive %>'>
<INPUT NAME='tbonus_ldate' VALUE='<% =mStr_tbonus_ldate %>'>
<INPUT NAME='employee_id' VALUE='<% =mStr_employee_id %>'>
<INPUT NAME='project_id' VALUE='<% =mStr_project_id %>'>
</FORM>
</DIV></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_wh_tech_bonusesPage"))
if mInt_Page=0 then mInt_Page=1
session("session_wh_tech_bonusesPage")=mInt_Page
mStr_SortBy = trim(request.form("SortBy"))
mStr_AscMark = trim(request.form("AscMark"))
mStr_tbonus_quote = trim(request.form("tbonus_quote"))
mStr_tbonus_firstsum = trim(request.form("tbonus_firstsum"))
mStr_tbonus_fpercent = trim(request.form("tbonus_fpercent"))
mStr_tbonus_fisgive = trim(request.form("tbonus_fisgive"))
mStr_tbonus_fdate = trim(request.form("tbonus_fdate"))
mStr_tbonus_lastsum = trim(request.form("tbonus_lastsum"))
mStr_tbonus_lpercent = trim(request.form("tbonus_lpercent"))
mStr_tbonus_lisgive = trim(request.form("tbonus_lisgive"))
mStr_tbonus_ldate = trim(request.form("tbonus_ldate"))
mStr_employee_id = trim(request.form("employee_id"))
mStr_project_id = trim(request.form("project_id"))
Str_Mess = ""
Int_Count = 1
if ((mStr_tbonus_quote<>"") and not (IsNumeric(mStr_tbonus_quote))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [技术部分配比例] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_tbonus_firstsum<>"") and not (IsNumeric(mStr_tbonus_firstsum))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [项目纯分配金额（前期）] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_tbonus_fpercent<>"") and not (IsNumeric(mStr_tbonus_fpercent))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [个人前期分配比例] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_tbonus_fdate<>"") and not (IsDate(mStr_tbonus_fdate))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期发放日期] 一栏必须为日期！"
Int_Count = Int_Count+1
end if
if ((mStr_tbonus_lastsum<>"") and not (IsNumeric(mStr_tbonus_lastsum))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [项目纯分配金额（后期）] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_tbonus_lpercent<>"") and not (IsNumeric(mStr_tbonus_lpercent))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [个人后期分配比例] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_tbonus_ldate<>"") and not (IsDate(mStr_tbonus_ldate))) 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_tech_bonuses()
'显示查询结果
dim Str_PK_tbonus_id '主鍵
dim Str_tbonus_memo '备注
dim Str_tbonus_quote '技术部分配比例
dim Str_tbonus_firstsum '项目纯分配金额（前期）
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -