📄 project_edit5.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'判断是否填封面页或修改页
if session("ProjectCode")="" and session("ProjectName")="" then
Response.Redirect ("Project_edit1.asp?projectinfo=请先注册封面信息!")
else
ProjectCode=session("ProjectCode")
ProjectName=session("ProjectName")
end if
%>
<!--#include file="../Include/AdoConn.asp"-->
<%
dim Year1DaoWei(3)
dim Year2DaoWei(3)
dim Year3DaoWei(3)
dim LaiYuanSM(3)
Coun1DaoWei=0
Coun2DaoWei=0
Coun3DaoWei=0
allCounDaoWei=0
dim WuChang(2)
dim TieXi(2)
dim YouChang(2)
dim ShiYongFX(2)
CounWC=0
CounTX=0
CounYC=0
AllCounNum=0
for i=0 to 3
year1DaoWei(i)=0
year2DaoWei(i)=0
year3DaoWei(i)=0
LaiYuanSM(i)="无"
next
for i=0 to 2
WuChang(i)=0
TieXi(i)=0
YouChang(i)=0
ShiYongFX(i)="0"
next
ProjectJD=""
back=""
%>
<%
'修改
if not session("ProjectCode")="" then
set rst=server.createobject("ADODB.recordset")'经费总额，从项目基本表中取出
Strsql="select 经费总额,申请经费总额,项目进度,退回标志 from xt_VD_ProjectBasic where 项目编码='"&session("ProjectCode")&"'"
rst.open Strsql,strconn
if not rst.EOF then
allCounDaoWei=rst("经费总额")
AllCounNum=rst("申请经费总额")
ProjectJD=rst("项目进度")
back=rst("退回标志")
end if
rst.Close
set rst=nothing
set rst1=server.createobject("ADODB.recordset")'经费来源
Strsql="select * from xt_VD_ProjectFee where 项目编码='"&session("ProjectCode")&"'"
rst1.CursorType =3
rst1.CursorLocation =3
rst1.LockType =2
rst1.open Strsql,strconn
if not rst1.EOF then
for i=0 to rst1.RecordCount-2
year1DaoWei(i)=rst1("本年度到位")
year2DaoWei(i)=rst1("第二年度到位")
year3DaoWei(i)=rst1("第三年度到位")
LaiYuanSM(i)=rst1("来源说明")
rst1.MoveNext
next
'取出经费合计
Coun1DaoWei=rst1("本年度到位")
Coun2DaoWei=rst1("第二年度到位")
Coun3DaoWei=rst1("第三年度到位")
end if
rst1.Close
set rst1=nothing
set rst2=server.createobject("ADODB.recordset")'申请市科技经费数量
Strsql="select * from xt_VD_ProjectFeeNum where 项目编码='"&session("ProjectCode")&"'"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.open Strsql,strconn
if not rst2.EOF then
for i=0 to rst2.RecordCount-2
WuChang(i)=rst2("无偿")
TieXi(i)=rst2("贴息")
YouChang(i)=rst2("有偿")
ShiYongFX(i)=rst2("使用方向")
rst2.MoveNext
next
'取出申请经费合计
CounWC=rst2("无偿")
CounTX=rst2("贴息")
CounYC=rst2("有偿")
end if
rst2.Close
set rst2=nothing
end if
%>
<html>
<head>
<title>项目申报书_经费情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/CssLink.css">
<script language="javascript">
ArrayString=new Array(1,"您有为空的项目","file1","文件不能为空！","text1","姓名1不能为空！","text2","性别不能为空！");
</script>
<script language="javascript" src="../js/checkForm.js">
</script>
<script language="javascript" src="../js/check_email_num.js">
</script>
<style>
td{font-size:9pt}
.button
{
BACKGROUND-COLOR: #e6f4ff;
BORDER-BOTTOM: #0099ff 1px solid;
BORDER-LEFT: #0099ff 1px solid;
BORDER-RIGHT: #0099ff 1px solid;
BORDER-TOP: #0099ff 1px solid;
COLOR: #336699;
HEIGHT: 18px;
TEXT-ALIGN: center
}
A:link
{
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
A:visited
{
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
A:active
{
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
A:hover
{
COLOR: blue;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<table width="714" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" height="1" bgcolor="#ffcc00"></td>
</tr>
<tr>
<td colspan="4" height="20" bgcolor="#FF9900"> 项目编码[<font color="#FFFF00"><%=session("ProjectCode")%></font>] 项目名称[<font color="#FFFF00"><%=session("ProjectName")%></font>] <font color="#FFFF00"><%=request.querystring("ProjectInfo")%></font></td>
</tr>
<tr>
<td width="530" height="400" valign="top">
<table border="0" cellspacing="0" cellpadding="0" align="center" width="382">
<tr>
<td height="20">
<div align="center"><img src="../public/images/shenbaoshu.gif" width="300" height="40"><img src="../public/images/lastpost.gif" width="11" height="11">
<font color="#0066CC"> 5.经费情况</font></div>
</td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="6" bgcolor="#FFFFFF" height="20">
<div align="left"></div>
</td>
</tr>
<tr>
<td height="25" colspan="6"><font color="#0066CC"><b>五、经费来源及预算（单位：万元）</b></font></td>
</tr>
<form name="form1" method="post" action="Project_regist5.asp" onsubmit="return CheckForm(this)">
<tr>
<td height="20" align="center" width="76" bgcolor="#EAEAEA"> </td>
<td bgcolor="#EAEAEA" align="center" width="73" height="20">本年度到位
</td>
<td bgcolor="#EAEAEA" align="center" width="74" height="20">第二年度到位</td>
<td bgcolor="#EAEAEA" align="center" width="79" height="20">第三年度到位</td>
<td bgcolor="#EAEAEA" colspan="2" align="center" height="20">来源说明</td>
</tr>
<tr>
<td height="20" width="76">自筹资金</td>
<td colspan="5" rowspan="4" height="20">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%for i=0 to 3%>
<tr>
<td width="73" height="20">
<input type="text" name="Year1DaoWei<%=cstr(i)%>" size="10" maxlength="20" value="<%=Year1DaoWei(i)%>" onblur="return isnumeric(Year1DaoWei<%=cstr(i)%>)" onchange="counYear1()">
</td>
<td width="73" height="20">
<input type="text" name="Year2DaoWei<%=cstr(i)%>" size="10" maxlength="20" value="<%=Year2DaoWei(i)%>" onblur="return isnumeric(Year2DaoWei<%=cstr(i)%>)" onchange="counYear2()">
</td>
<td width="77" height="20">
<input type="text" name="Year3DaoWei<%=cstr(i)%>" size="10" maxlength="20" value="<%=Year3DaoWei(i)%>" onblur="return isnumeric(Year3DaoWei<%=cstr(i)%>)" onchange="counYear3()">
</td>
<td height="20" width="204">
<input type="text" name="LaiYuanSM<%=cstr(i)%>" size="23" maxlength="20" value="<%=LaiYuanSM(i)%>">
</td>
</tr>
<%next%>
</table>
</td>
</tr>
<tr>
<td height="20" width="76">银行贷款</td>
</tr>
<tr>
<td height="20" width="76">
<p>其他国拔</p>
</td>
</tr>
<tr>
<td height="20" width="76">其他资金</td>
</tr>
<tr>
<td height="20" width="76">合计</td>
<td width="73" height="20">
<input type="text" name="Coun1DaoWei" size="10" maxlength="20" value="<%=Coun1DaoWei%>" onFocus="Coun1DaoWei.blur()">
</td>
<td align="right" width="74" height="20">
<input type="text" name="Coun2DaoWei" size="10" maxlength="20" value="<%=Coun2DaoWei%>" onFocus="Coun2DaoWei.blur()">
</td>
<td width="79" height="20">
<input type="text" name="Coun3DaoWei" size="10" maxlength="20" value="<%=Coun3DaoWei%>" onFocus="Coun3DaoWei.blur()">
</td>
<td width="58" height="20">总计</td>
<td height="20" width="147">
<input type="text" name="AllCounDaoWei" size="15" maxlength="20" value="<%=AllCounDaoWei%>" onFocus="AllCounDaoWei.blur()">
</td>
</tr>
<tr>
<td height="20" width="76"> </td>
<td colspan="5" height="20"> </td>
</tr>
<tr>
<td height="30" colspan="6"><font color="#0066CC">申请市科技经费数量<b>（单位：万元）</b></font>
</td>
</tr>
<tr>
<td height="30" colspan="6">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="59" bgcolor="#EAEAEA" height="20" align="center"> </td>
<td height="20" bgcolor="#EAEAEA" width="65" align="center">无偿</td>
<td height="20" bgcolor="#EAEAEA" width="67" align="center">贴息</td>
<td height="20" bgcolor="#EAEAEA" width="81" align="center">有偿</td>
<td width="228" bgcolor="#EAEAEA" height="20" align="center">使用方向<br>
(选择下面对应数字填写，可多选)</td>
</tr>
<tr>
<td width="59" height="20">本年度</td>
<td colspan="4" rowspan="3" height="20">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%for i=0 to 2%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -