📄 main2.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能:项目信息--主界面
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设置权限
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_projects/Cls_wh_projects.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%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
<TITLE>wh_projects--主界面</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_project_name '项目名称
dim mStr_project_begin '签定合同日期
dim mStr_project_end '规定完成合同日期
dim mStr_project_finish '实际合同完成合同日期
dim mStr_project_score '验收评分
dim mStr_project_sum '合同总金额
dim mStr_project_firstpay '首期付款金额
dim mStr_project_lastpay '后期付款金额
dim mStr_project_notpay '未付款
dim mStr_project_cost '前期成本费用
dim mStr_project_operation '前期业务费用
dim mStr_project_codes '前期非南京公司开发程序费
dim mStr_project_host '前期主机费用
dim mStr_project_dns '前期域名费用
dim mStr_project_search '前期搜索引擎费用
dim mStr_project_mail '前期邮箱费用
dim mStr_project_other '前期其它费用
dim mStr_project_cost2 '后期成本费用
dim mStr_project_operation2 '后期业务费用
dim mStr_project_codes2 '后期非南京公司开发程序费
dim mStr_project_host2 '后期主机费用
dim mStr_project_dns2 '后期域名费用
dim mStr_project_search2 '后期搜索引擎费用
dim mStr_project_mail2 '后期邮箱费用
dim mStr_project_other2 '后期其它费用
dim mStr_project_memo '备注
call InitData()
%>
<script LANGUAGE="JavaScript">
function openwin(url) {
window.open(url, '', "height=600, width=380, toolbar =no, menubar=no, scrollbars=no, resizable=no, location=no, status=no"); //写成一行
}
</script>
</HEAD>
<BODY>
<FORM ID="Frm_Data" NAME="Frm_Data">
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD ALIGN="RIGHT">
<A HREF="Update.asp?<% =mStr_WINDURL%>">新增</A>
<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 HREF='javascript:OrderBy("project_name")'>项目名称<% call GetOrderBy("project_name")%></A></TD>
<TD><A HREF='javascript:OrderBy("project_begin")'>签定合同日期<% call GetOrderBy("project_begin")%></A></TD>
</TR>
<%
call ShowAllData_wh_projects() '显示查询结果
%>
</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='project_name' VALUE='<% =mStr_project_name %>'>
<INPUT NAME='project_begin' VALUE='<% =mStr_project_begin %>'>
<INPUT NAME='project_end' VALUE='<% =mStr_project_end %>'>
<INPUT NAME='project_finish' VALUE='<% =mStr_project_finish %>'>
<INPUT NAME='project_score' VALUE='<% =mStr_project_score %>'>
<INPUT NAME='project_sum' VALUE='<% =mStr_project_sum %>'>
<INPUT NAME='project_firstpay' VALUE='<% =mStr_project_firstpay %>'>
<INPUT NAME='project_lastpay' VALUE='<% =mStr_project_lastpay %>'>
<INPUT NAME='project_notpay' VALUE='<% =mStr_project_notpay %>'>
<INPUT NAME='project_cost' VALUE='<% =mStr_project_cost %>'>
<INPUT NAME='project_operation' VALUE='<% =mStr_project_operation %>'>
<INPUT NAME='project_codes' VALUE='<% =mStr_project_codes %>'>
<INPUT NAME='project_host' VALUE='<% =mStr_project_host %>'>
<INPUT NAME='project_dns' VALUE='<% =mStr_project_dns %>'>
<INPUT NAME='project_search' VALUE='<% =mStr_project_search %>'>
<INPUT NAME='project_mail' VALUE='<% =mStr_project_mail %>'>
<INPUT NAME='project_other' VALUE='<% =mStr_project_other %>'>
<INPUT NAME='project_cost2' VALUE='<% =mStr_project_cost2 %>'>
<INPUT NAME='project_operation2' VALUE='<% =mStr_project_operation2 %>'>
<INPUT NAME='project_codes2' VALUE='<% =mStr_project_codes2 %>'>
<INPUT NAME='project_host2' VALUE='<% =mStr_project_host2 %>'>
<INPUT NAME='project_dns2' VALUE='<% =mStr_project_dns2 %>'>
<INPUT NAME='project_search2' VALUE='<% =mStr_project_search2 %>'>
<INPUT NAME='project_mail2' VALUE='<% =mStr_project_mail2 %>'>
<INPUT NAME='project_other2' VALUE='<% =mStr_project_other2 %>'>
<INPUT NAME='project_memo' VALUE='<% =mStr_project_memo %>'>
</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_wh_projectsPage"))
if mInt_Page=0 then mInt_Page=1
session("session_wh_projectsPage")=mInt_Page
mStr_SortBy = trim(request.form("SortBy"))
mStr_AscMark = trim(request.form("AscMark"))
mStr_project_name = trim(request.form("project_name"))
mStr_project_begin = trim(request.form("project_begin"))
mStr_project_end = trim(request.form("project_end"))
mStr_project_finish = trim(request.form("project_finish"))
mStr_project_score = trim(request.form("project_score"))
mStr_project_sum = trim(request.form("project_sum"))
mStr_project_firstpay = trim(request.form("project_firstpay"))
mStr_project_lastpay = trim(request.form("project_lastpay"))
mStr_project_notpay = trim(request.form("project_notpay"))
mStr_project_cost = trim(request.form("project_cost"))
mStr_project_operation = trim(request.form("project_operation"))
mStr_project_codes = trim(request.form("project_codes"))
mStr_project_host = trim(request.form("project_host"))
mStr_project_dns = trim(request.form("project_dns"))
mStr_project_search = trim(request.form("project_search"))
mStr_project_mail = trim(request.form("project_mail"))
mStr_project_other = trim(request.form("project_other"))
mStr_project_cost2 = trim(request.form("project_cost2"))
mStr_project_operation2 = trim(request.form("project_operation2"))
mStr_project_codes2 = trim(request.form("project_codes2"))
mStr_project_host2 = trim(request.form("project_host2"))
mStr_project_dns2 = trim(request.form("project_dns2"))
mStr_project_search2 = trim(request.form("project_search2"))
mStr_project_mail2 = trim(request.form("project_mail2"))
mStr_project_other2 = trim(request.form("project_other2"))
mStr_project_memo = trim(request.form("project_memo"))
Str_Mess = ""
Int_Count = 1
if ((mStr_project_begin<>"") and not (IsDate(mStr_project_begin))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [签定合同日期] 一栏必须为日期！"
Int_Count = Int_Count+1
end if
if ((mStr_project_end<>"") and not (IsDate(mStr_project_end))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [规定完成合同日期] 一栏必须为日期！"
Int_Count = Int_Count+1
end if
if ((mStr_project_finish<>"") and not (IsDate(mStr_project_finish))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [实际合同完成合同日期] 一栏必须为日期！"
Int_Count = Int_Count+1
end if
if ((mStr_project_score<>"") and not (IsNumeric(mStr_project_score))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [验收评分] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_sum<>"") and not (IsNumeric(mStr_project_sum))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [合同总金额] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_firstpay<>"") and not (IsNumeric(mStr_project_firstpay))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [首期付款金额] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_lastpay<>"") and not (IsNumeric(mStr_project_lastpay))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期付款金额] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_notpay<>"") and not (IsNumeric(mStr_project_notpay))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [未付款] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_cost<>"") and not (IsNumeric(mStr_project_cost))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期成本费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_operation<>"") and not (IsNumeric(mStr_project_operation))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期业务费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_codes<>"") and not (IsNumeric(mStr_project_codes))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期非南京公司开发程序费] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_host<>"") and not (IsNumeric(mStr_project_host))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期主机费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_dns<>"") and not (IsNumeric(mStr_project_dns))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期域名费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_search<>"") and not (IsNumeric(mStr_project_search))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期搜索引擎费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_mail<>"") and not (IsNumeric(mStr_project_mail))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期邮箱费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_other<>"") and not (IsNumeric(mStr_project_other))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [前期其它费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_cost2<>"") and not (IsNumeric(mStr_project_cost2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期成本费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_operation2<>"") and not (IsNumeric(mStr_project_operation2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期业务费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_codes2<>"") and not (IsNumeric(mStr_project_codes2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期非南京公司开发程序费] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_host2<>"") and not (IsNumeric(mStr_project_host2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期主机费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_dns2<>"") and not (IsNumeric(mStr_project_dns2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期域名费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_search2<>"") and not (IsNumeric(mStr_project_search2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期搜索引擎费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_mail2<>"") and not (IsNumeric(mStr_project_mail2))) then
Str_Mess = Str_Mess + "\n" + cstr(Int_Count) + ") [后期邮箱费用] 一栏必须为数值！"
Int_Count = Int_Count+1
end if
if ((mStr_project_other2<>"") and not (IsNumeric(mStr_project_other2))) 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()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -