📄 update.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/fun.asp" -->
<%call checklogin()%>
<%
if session("right")<3 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
%>
<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 mStr_PK_project_id '主鍵
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()
%>
</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()"><%if mStr_PK_project_id="" then Response.write "新增" else Response.write "修改"%></A>
</TD>
</TR>
</TABLE>
<FORM ACTION="Post_Update.asp?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post">
打的栏位为必须填写
<TABLE WIDTH="80%" <% Response.write GetTableBorder()%>>
<COLGROUP>
<COL 1 CLASS="TABLEHEAD" WIDTH="150" ALIGN="RIGHT">
<COL 1 CLASS="TABLEDATA">
</COLGROUP>
<TR>
<TD>项目名称 </TD>
<TD>
<INPUT STYLE="WIDTH:200px" NAME="project_name" VALUE='<% Response.write mStr_project_name%>'>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>签定合同日期 </TD>
<TD>
<SELECT NAME="project_beginYear" ONCHANGE='javascript:window.Frm_Update.project_begin.value=ConvertToDate(window.Frm_Update.project_beginYear.value,window.Frm_Update.project_beginMonth.value,window.Frm_Update.project_beginDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<%
if (FormatDate(mStr_project_begin,"yyyy")="") then
Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
else
Call ShowOptionList(Val(FormatDate(mStr_project_begin,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_project_begin,"yyyy"))-5,11,Val(FormatDate(mStr_project_begin,"yyyy")))
end if
%>
</SELECT>年
<SELECT NAME="project_beginMonth" ONCHANGE='javascript:window.Frm_Update.project_begin.value=ConvertToDate(window.Frm_Update.project_beginYear.value,window.Frm_Update.project_beginMonth.value,window.Frm_Update.project_beginDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,12,FormatDate(mStr_project_begin,"mm")) %>
</SELECT>月
<SELECT NAME="project_beginDay" ONCHANGE='javascript:window.Frm_Update.project_begin.value=ConvertToDate(window.Frm_Update.project_beginYear.value,window.Frm_Update.project_beginMonth.value,window.Frm_Update.project_beginDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,31,FormatDate(mStr_project_begin,"dd")) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="project_begin" VALUE='<% Response.write mStr_project_begin%>' READONLY CLASS="READONLY">
</SPAN>
</TD>
</TR>
<TR>
<TD>规定完成合同日期 </TD>
<TD>
<SELECT NAME="project_endYear" ONCHANGE='javascript:window.Frm_Update.project_end.value=ConvertToDate(window.Frm_Update.project_endYear.value,window.Frm_Update.project_endMonth.value,window.Frm_Update.project_endDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<%
if (FormatDate(mStr_project_end,"yyyy")="") then
Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
else
Call ShowOptionList(Val(FormatDate(mStr_project_end,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_project_end,"yyyy"))-5,11,Val(FormatDate(mStr_project_end,"yyyy")))
end if
%>
</SELECT>年
<SELECT NAME="project_endMonth" ONCHANGE='javascript:window.Frm_Update.project_end.value=ConvertToDate(window.Frm_Update.project_endYear.value,window.Frm_Update.project_endMonth.value,window.Frm_Update.project_endDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,12,FormatDate(mStr_project_end,"mm")) %>
</SELECT>月
<SELECT NAME="project_endDay" ONCHANGE='javascript:window.Frm_Update.project_end.value=ConvertToDate(window.Frm_Update.project_endYear.value,window.Frm_Update.project_endMonth.value,window.Frm_Update.project_endDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,31,FormatDate(mStr_project_end,"dd")) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="project_end" VALUE='<% Response.write mStr_project_end%>' READONLY CLASS="READONLY">
</SPAN>
</TD>
</TR>
<TR>
<TD>实际完成合同日期 </TD>
<TD>
<SELECT NAME="project_finishYear" ONCHANGE='javascript:window.Frm_Update.project_finish.value=ConvertToDate(window.Frm_Update.project_finishYear.value,window.Frm_Update.project_finishMonth.value,window.Frm_Update.project_finishDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<%
if (FormatDate(mStr_project_finish,"yyyy")="") then
Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
else
Call ShowOptionList(Val(FormatDate(mStr_project_finish,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_project_finish,"yyyy"))-5,11,Val(FormatDate(mStr_project_finish,"yyyy")))
end if
%>
</SELECT>年
<SELECT NAME="project_finishMonth" ONCHANGE='javascript:window.Frm_Update.project_finish.value=ConvertToDate(window.Frm_Update.project_finishYear.value,window.Frm_Update.project_finishMonth.value,window.Frm_Update.project_finishDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,12,FormatDate(mStr_project_finish,"mm")) %>
</SELECT>月
<SELECT NAME="project_finishDay" ONCHANGE='javascript:window.Frm_Update.project_finish.value=ConvertToDate(window.Frm_Update.project_finishYear.value,window.Frm_Update.project_finishMonth.value,window.Frm_Update.project_finishDay.value)'>
<OPTION VALUE='' SELECTED>请选择</OPTION>
<% Call ShowOptionList(1,1,31,FormatDate(mStr_project_finish,"dd")) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="project_finish" VALUE='<% Response.write mStr_project_finish%>' READONLY CLASS="READONLY">
</SPAN>
</TD>
</TR>
<TR>
<TD>验收评分 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="project_score" VALUE='<% Response.write mStr_project_score%>' style="font-size: 9pt; color: blue" size="8">
</TD>
</TR>
<TR>
<TD>合同总金额 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="project_sum" VALUE='<% Response.write mStr_project_sum%>' style="font-size: 9pt; color: green" size="8">
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>首期付款金额 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="project_firstpay" VALUE='<% Response.write mStr_project_firstpay%>' style="font-size: 9pt; color: green" size="8">
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>后期付款金额 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="project_lastpay" VALUE='<% Response.write mStr_project_lastpay%>' style="font-size: 9pt; color: green" size="8">
</TD>
</TR>
<TR>
<TD>前期成本费用 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="project_cost" VALUE='<% Response.write mStr_project_cost%>' style="font-size: 9pt; color: red" size="8">
</TD>
</TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -