📄 project_edit4.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"-->
<%
Person1=""
Person2=""
Manager=""
name1=""
sex1=""
age1=0
company1=""
ZhiWu1=""
ZhiCheng1=""
XueLi1=""
FenGong1=""
TouRu1=""
dim name(9)
dim sex(9)
dim age(9)
dim company(9)
dim ZhiWu(9)
dim ZhiCheng(9)
dim XueLi(9)
dim FenGong(9)
dim TouRu(9)
for i=0 to 9
name(i)=""
sex(i)=""
age(i)=0
company(i)=""
ZhiWu(i)=""
ZhiCheng(i)=""
XueLi(i)=""
FenGong(i)=""
TouRu(i)=""
next
ProjectJD=""
back=""
%>
<%
'修改
if not session("ProjectCode")="" then
set rst=server.createobject("ADODB.recordset")'修改主持人简介
Strsql="select 项目主持人1简介,项目主持人2简介,组织管理方式,项目进度,退回标志 from xt_VD_ProjectBasic where 项目编码='"&session("ProjectCode")&"'"
rst.open Strsql,strconn
if not rst.EOF then
Person1=rst("项目主持人1简介")
Person2=rst("项目主持人2简介")
Manager=rst("组织管理方式")
ProjectJD=rst("项目进度")
back=rst("退回标志")
end if
rst.Close
set rst=nothing
set rst1=server.createobject("ADODB.recordset")'读取主要人员简介
Strsql="select * from xt_VD_ProjectPerson where 项目编码='"&session("ProjectCode")&"'order by 人员标志 desc"
rst1.CursorType =3
rst1.CursorLocation =3
rst1.LockType =2
rst1.open Strsql,strconn
if not rst1.EOF then
if left(rst1("人员标志"),1) ="1" then '主要负责人
name1=rst1("姓名")
sex1=rst1("性别")
age1=rst1("年龄")
company1=rst1("单位")
ZhiWu1=rst1("职务")
ZhiCheng1=rst1("职称")
XueLi1=rst1("学历")
FenGong1=rst1("具体分工")
TouRu1=rst1("年投入时间")
end if
rst1.MoveNext
for i=2 to rst1.RecordCount '其他人员
if left(rst1("人员标志"),1) ="0" then
name(i-2)=rst1("姓名")
sex(i-2)=rst1("性别")
age(i-2)=rst1("年龄")
company(i-2)=rst1("单位")
ZhiWu(i-2)=rst1("职务")
ZhiCheng(i-2)=rst1("职称")
XueLi(i-2)=rst1("学历")
FenGong(i-2)=rst1("具体分工")
TouRu(i-2)=rst1("年投入时间")
end if
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">
<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" 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"><%=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"> 4.人员情况</font></div>
</td>
</tr>
</table>
<table width="520" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20" width="1" bgcolor="#FFFFFF"> </td>
<td colspan="10" bgcolor="#FFFFFF" height="20">
<div align="left"></div>
</td>
<td height="20" width="13" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="25" colspan="12"><font color="#0066CC"><b>四、项目人员情况</b></font></td>
</tr>
<form name="form1" method="post" action="Project_regist4.asp">
<tr>
<td height="20" width="1" bgcolor="#EAEAEA"> </td>
<td height="20" colspan="10" bgcolor="#EAEAEA">项目主持人1简介（200字以内）： <br>
</td>
<td height="20" width="13" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="25" width="1" bgcolor="white"> </td>
<td height="80" colspan="10" bgcolor="white" align="center">
<textarea name="Person1" rows="4" cols="65"><%=Person1%></textarea>
</td>
<td height="30" width="13" bgcolor="white"> </td>
</tr>
<tr>
<td height="20" width="1" bgcolor="#EAEAEA"> </td>
<td height="20" colspan="10" bgcolor="#EAEAEA">项目主持人2简介（200字以内）： </td>
<td height="20" width="13" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="25" width="1" bgcolor="white"> </td>
<td height="80" colspan="10" bgcolor="white" align="center">
<textarea name="Person2" rows="4" cols="65"><%=Person2%></textarea>
</td>
<td height="30" width="13" bgcolor="white"> </td>
</tr>
<tr>
<td height="20" width="1" bgcolor="#EAEAEA"> </td>
<td height="20" colspan="10" bgcolor="#EAEAEA">项目主持单位采取何种方式组织和管理课题承担单位以确保项目完成（200字以内）：</td>
<td height="20" width="13" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="25" width="1" bgcolor="white"> </td>
<td height="80" colspan="10" bgcolor="white" align="center">
<textarea name="Manager" rows="4" cols="65"><%=manager%></textarea>
</td>
<td height="30" width="13" bgcolor="white"> </td>
</tr>
<tr>
<td height="20" width="1" bgcolor="#EAEAEA"> </td>
<td height="20" colspan="10" bgcolor="#EAEAEA">项目主要人员情况</td>
<td height="20" width="13" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="20" width="1"> </td>
<td height="20" width="13" align="center"> </td>
<td height="20" width="46" align="center">姓名</td>
<td height="20" width="56" align="center">性别</td>
<td height="20" width="28" align="center">年龄</td>
<td height="20" width="70" align="center">单 位</td>
<td height="20" width="61" align="center">职务</td>
<td height="20" width="68" align="center">职称</td>
<td height="20" width="61" align="center">学历</td>
<td height="20" width="70" align="center">在本课题<br>
中具体分工</td>
<td height="20" width="53" align="center">年投入<br>
时间(月)</td>
<td height="20" width="13"> </td>
</tr>
<tr>
<td height="61" width="1" bgcolor="#EAEAEA"> </td>
<td height="61" width="13" bgcolor="#EAEAEA"><b>负责人</b></td>
<td height="61" width="46" bgcolor="#EAEAEA">
<input type="text" name="Name1" size="6" maxlength="5" value="<%=name1%>">
</td>
<td height="61" width="56" bgcolor="#EAEAEA">
<select name="sex1">
<option value="男" <%if sex1="男" then response.write "selected" end if %>>男</option>
<option value="女" <%if sex1="女" then response.write "selected" end if %>>女</option>
</select>
</td>
<td height="61" width="28" bgcolor="#EAEAEA">
<input type="text" name="age1" size="3" maxlength="3" value="<%=age1%>" onblur="return isnumeric(age1) ">
</td>
<td height="61" width="70" bgcolor="#EAEAEA">
<input type="text" name="company1" size="10" maxlength="20" value="<%=Company1%>">
</td>
<td height="61" width="61" bgcolor="#EAEAEA">
<input type="text" name="ZhiWu1" size="6" maxlength="5" value="<%=ZhiWu1%>">
</td>
<td height="61" width="68" bgcolor="#EAEAEA">
<select name="ZhiCheng1" style="width:40pt">
<option value="无" <%if ZhiCheng1="无" then response.write "selected" end if %>>无</option>
<option value="正高"<%if ZhiCheng1="正高" then response.write "selected" end if %>>正高</option>
<option value="副高"<%if ZhiCheng1="副高" then response.write "selected" end if %>>副高</option>
<option value="中级"<%if ZhiCheng1="中级" then response.write "selected" end if %>>中级</option>
<option value="其它"<%if ZhiCheng1="其它" then response.write "selected" end if %>>其它</option>
</select>
</td>
<td height="61" width="61" bgcolor="#EAEAEA">
<select name="XueLi1" style="width:40pt">
<option value="无" <%if XueWei1="无" then response.write "selected" end if %>>无</option>
<option value="博士"<%if XueLi1="博士" then response.write "selected" end if %>>博士</option>
<option value="硕士"<%if XueLi1="硕士" then response.write "selected" end if %>>硕士</option>
<option value="本科"<%if XueLi1="本科" then response.write "selected" end if %>>本科</option>
<option value="大专"<%if XueLi1="大专" then response.write "selected" end if %>>大专</option>
<option value="其它"<%if XueLi1="其它" then response.write "selected" end if %>>其它</option>
</select>
</td>
<td width="70" bgcolor="#EAEAEA">
<input type="text" name="FenGong1" size="10" maxlength="5" value="<%=FenGong1%>">
</td>
<td width="53" bgcolor="#EAEAEA">
<select name="TouRu1">
<%for j=1 to 12%>
<option value="<%=cstr(j)%>"<%if TouRu1=cstr(j) then response.write "selected" end if %>>
<%=j%></option>
<%next %>
</select>
</td>
<td height="61" width="13" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -