📄 project_edit1.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'无变量传来时先赋初值，即添加状态
ProjectType=""
ProjectName=""
ZhuChiCom=""
ProjectJD=""
N=9
redim XieZhuoCom(N)
for i=0 to N
XieZhuoCom(i)=""
next
if Request.QueryString ("new")="new" then '新增状态
ProjectCode=""
ProjectName=""
session("ProjectCode")=""
session("ProjectName")=""
session("ProjectType")=""
session("view")=""
else
if Request.QueryString ("edit")="edit" then '从列表进入修改状态
if Request.QueryString ("view")="view" then
session("view")="view"
else
session("view")=""
end if
ProjectCode=Request.QueryString ("code")
ProjectName=Request.QueryString ("name")
ProjectType=Request.QueryString ("type")
session("ProjectCode")=ProjectCode
session("Projectname")=ProjectName
session("ProjectType")=ProjectType
else
ProjectCode=session("ProjectCode") '各页间跳转
ProjectName=session("ProjectName")
ProjectType=session("ProjectType")
end if
end if
'修改
if not ProjectCode="" then
set rst=server.createobject("ADODB.recordset")
Strsql="select 项目类别,项目名称,主持单位,项目进度,退回标志 from XT_VD_ProjectName where 项目编码='"&ProjectCode&"'"
rst.open Strsql,strconn
ProjectType=rst("项目类别")
ProjectName=rst("项目名称")
ZhuChiCom=rst("主持单位")
ProjectJD=rst("项目进度")
back=rst("退回标志")
rst.close
set rst=nothing
'取出协作单位名称
set rst1=server.createobject("ADODB.recordset")
Strsql1="select 单位名称 from xt_vd_ProjectCompany where 项目编码='"&ProjectCode&"' order by 单位序号"
rst1.CursorType =3
rst1.CursorLocation =3
rst1.LockType =2
rst1.open Strsql1,strconn
if rst1.RecordCount<>0 then
for i=0 to rst1.RecordCount-1
XieZhuoCom(i)=rst1("单位名称")
rst1.MoveNext
next
end if
rst1.Close
set rst1=nothing
end if
%>
<html>
<head>
<title>项目申报书_封面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/CssLink.css">
<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" onload="window.top.ProjectMax()">
<table width="720" 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"><%= ProjectCode %></font>] 项目名称[<font color="#FFFF00"><%=ProjectName%></font>] <font color="#FFFF00"><%=request.querystring("ProjectInfo")%></font></td>
</tr>
<tr>
<td width="540" height="400" valign="top">
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<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">1.封面</font></div>
</td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="Project_Regist1.asp<%if Request.QueryString ("new")="new" then Response.Write "?new=new" end if%>" onsubmit="return checkfun()">
<tr bgcolor="#FFFFFF">
<td height="20" width="4"> </td>
<td height="20" width="151">
<div align="left"><b></b></div>
</td>
<td height="20" width="1"> </td>
<td height="20" width="332"> </td>
<td height="20" width="8"> </td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="20" width="4" bgcolor="#EAEAEA"> </td>
<td height="20" width="151" bgcolor="#EAEAEA">
<div align="left"><b>应用开发研究计划</b></div>
</td>
<td height="20" width="1"> </td>
<td height="20" width="332">
<input type="radio" name="ProjectType" value="11" <%if ProjectType="11" then response.write "Checked" end if%>>
1.重点项目
<input type="radio" name="ProjectType" value="12" <%if ProjectType="12" then response.write "Checked" end if%>>
2.青科技人才启动研究</td>
<td height="20" width="8"> </td>
</tr>
<tr bgcolor="white">
<td width="4"> </td>
<td width="151" bgcolor="white" align="right">
<div align="left"><b></b></div>
</td>
<td width="1"> </td>
<td width="332"> </td>
<td width="8"> </td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="20" width="4" bgcolor="#EAEAEA"> </td>
<td height="20" width="151" bgcolor="#EAEAEA" align="right">
<div align="left"><b> 科技攻关计划 </b></div>
</td>
<td height="20" width="1" bgcolor="#EAEAEA"> </td>
<td height="20" width="332" bgcolor="#EAEAEA">
<input type="radio" name="ProjectType" value="21" <%if ProjectType="21" then response.write "Checked" end if%>>
1.重大专项
<input type="radio" name="ProjectType" value="22" <%if ProjectType="22" then response.write "Checked" end if%>>
2.重点项目
<input type="radio" name="ProjectType" value="23" <%if ProjectType="23" then response.write "Checked" end if%>>
3. 一般项目</td>
<td height="20" width="8"> </td>
</tr>
<tr bgcolor="white">
<td width="4"> </td>
<td width="151" align="right">
<div align="left"><b></b></div>
</td>
<td width="1"> </td>
<td width="332"> </td>
<td width="8"> </td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="20" width="4"> </td>
<td height="20" width="151" bgcolor="#EAEAEA" align="right">
<div align="left"><b>科技产业化计划</b></div>
</td>
<td height="20" width="1"> </td>
<td height="20" width="332">
<input type="radio" name="ProjectType" value="31" <%if ProjectType="31" then response.write "Checked" end if%>>
1.重大项目
<input type="radio" name="ProjectType" value="32" <%if ProjectType="32" then response.write "Checked" end if%>>
2.重点项目
<input type="radio" name="ProjectType" value="33" <%if ProjectType="33" then response.write "Checked" end if%>>
3. 一般项目 <br>
<input type="radio" name="ProjectType" value="34" <%if ProjectType="34" then response.write "Checked" end if%>>
4.专利择优支持<br>
</td>
<td height="20" width="8"> </td>
</tr>
<tr bgcolor="white">
<td width="4"> </td>
<td width="151" align="right">
<div align="left"><b></b></div>
</td>
<td width="1"> </td>
<td width="332"> </td>
<td width="8"> </td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="20" width="4"> </td>
<td height="20" width="151" bgcolor="#EAEAEA" align="right">
<div align="left"><b>科技创新条件与环境建设</b></div>
</td>
<td height="20" width="1"> </td>
<td height="20" width="332" bgcolor="#EAEAEA">
<p>
<input type="radio" name="ProjectType" value="41" <%if ProjectType="41" then response.write "Checked" end if%>>
1.中介服务体系建设
<input type="radio" name="ProjectType" value="42" <%if ProjectType="42" then response.write "Checked" end if%>>
2.国际合作
<input type="radio" name="ProjectType" value="43" <%if ProjectType="43" then response.write "Checked" end if%>>
3.工程中心
<input type="radio" name="ProjectType" value="44" <%if ProjectType="44" then response.write "Checked" end if%>>
4.重点实验室建设
<input type="radio" name="ProjectType" value="45" <%if ProjectType="45" then response.write "Checked" end if%>>
5.企业孵化器
<input type="radio" name="ProjectType" value="46" <%if ProjectType="46" then response.write "Checked" end if%>>
6.软科学<br>
<input type="radio" name="ProjectType" value="47" <%if ProjectType="47" then response.write "Checked" end if%>>
7.科学普及
<input type="radio" name="ProjectType" value="48" <%if ProjectType="48" then response.write "Checked" end if%>>
8.其他</p>
</td>
<td height="20" width="8"> </td>
</tr>
<tr bgcolor="white">
<td width="4"> </td>
<td width="151" align="right">
<div align="left"><b></b></div>
</td>
<td width="1"> </td>
<td width="332"> </td>
<td width="8"> </td>
</tr>
<tr bgcolor="white">
<td width="4"> </td>
<td width="151" align="right">
<div align="left"><b></b></div>
</td>
<td width="1"> </td>
<td width="332"> </td>
<td width="8"> </td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="20" width="4"> </td>
<td height="20" width="151" bgcolor="#EAEAEA"><b>项目名称</b></td>
<td height="20" width="1"> </td>
<td height="20" width="332">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -