📄 project_edit4.asp
字号:
<td height="20" width="1"> </td>
<td height="300" valign="middle" align="center" width="13"><b>课<br>
<br>
题<br>
<br>
组<br>
<br>
成<br>
<br>
员</b></td>
<td height="30" colspan="9">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%for i=0 to 9%>
<td height="30" width="46">
<input type="text" name="Name0<%=cstr(i)%>" size="6" maxlength="5" value="<%=name(i)%>">
</td>
<td height="30" width="56">
<select name="sex0<%=cstr(i)%>">
<option value="男" <%if sex(i)="男" then response.write "selected" end if%>>男</option>
<option value="女" <%if sex(i)="女" then response.write "selected" end if%>>女</option>
</select>
</td>
<td height="30" width="28">
<input type="text" name="age0<%=cstr(i)%>" size="3" maxlength="3" value="<%=age(i)%>" onblur="return isnumeric(age0<%=cstr(i)%>) ">
</td>
<td height="30" width="74">
<input type="text" name="company0<%=cstr(i)%>" size="10" maxlength="20" value="<%=company(i)%>">
</td>
<td height="30" width="72">
<input type="text" name="ZhiWu0<%=cstr(i)%>" size="6" maxlength="5"value="<%=ZhiWu(i)%>">
</td>
<td height="30" width="68">
<select name="ZhiCheng0<%=cstr(i)%>" style="width:40pt">
<option value="无" <%if ZhiCheng(i)="无" then response.write "selected" end if %>>无</option>
<option value="正高"<%if ZhiCheng(i)="正高" then response.write "selected" end if %>>正高</option>
<option value="副高"<%if ZhiCheng(i)="副高" then response.write "selected" end if %>>副高</option>
<option value="中级"<%if ZhiCheng(i)="中级" then response.write "selected" end if %>>中级</option>
<option value="其它"<%if ZhiCheng(i)="其它" then response.write "selected" end if %>>其它</option>
</select>
</td>
<td height="30" width="68">
<select name="XueLi0<%=cstr(i)%>" style="width:40pt">
<option value="无" <%if XueLi(i)="无" then response.write "selected" end if %>>无</option>
<option value="博士"<%if XueLi(i)="博士" then response.write "selected" end if %>>博士</option>
<option value="硕士"<%if XueLi(i)="硕士" then response.write "selected" end if %>>硕士</option>
<option value="本科"<%if XueLi(i)="本科" then response.write "selected" end if %>>本科</option>
<option value="大专"<%if XueLi(i)="大专" then response.write "selected" end if %>>大专</option>
<option value="其它"<%if XueLi(i)="其它" then response.write "selected" end if %>>其它</option>
</select>
</td>
<td height="30" width="70">
<input type="text" name="FenGong0<%=cstr(i)%>" size="10" maxlength="5" value="<%=FenGong(i)%>">
</td>
<td height="30" width="44">
<select name="TouRu0<%=cstr(i)%>">
<%for j=1 to 12%>
<option value="<%=cstr(j)%>"<%if TouRu(i)=cstr(j) then response.write "selected" end if %>>
<%=cstr(j)%></option>
<%next %>
</select>
</td>
</tr>
<%next%>
</table>
</td>
</tr>
<tr>
<td height="20" colspan="12" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="20" colspan="12" bgcolor="#FFFFFF">
<div align="center">
<%if session("view")<>"view" then
response.write session("view")
%>
<input class="button" type="submit" name="Submit" value="提交" onClick="return checkfun()">
<input class="button" type="reset" name="Submit2" value="重填">
<%end if%>
<input class="button" type="button" name="Submit3" value="打印" onClick="window.open('../project/print_word_4.asp')">
</div>
</td>
</tr>
<tr>
<td height="20" width="1" bgcolor="#FFFFFF"> </td>
<td height="20" width="13" bgcolor="#FFFFFF"> </td>
<td height="20" width="46" bgcolor="#FFFFFF"> </td>
<td height="20" width="56" bgcolor="#FFFFFF"> </td>
<td height="20" width="28" bgcolor="#FFFFFF"> </td>
<td height="20" width="70" bgcolor="#FFFFFF"> </td>
<td height="20" width="61" bgcolor="#FFFFFF"> </td>
<td height="20" width="68" bgcolor="#FFFFFF"> </td>
<td height="20" width="61" bgcolor="#FFFFFF"> </td>
<td height="20" width="70" bgcolor="#FFFFFF"> </td>
<td height="20" width="53" bgcolor="#FFFFFF"> </td>
<td height="20" width="13" bgcolor="#FFFFFF"> </td>
</tr>
</form>
</table>
</td>
<td width="3" height="228" bgcolor="#FF9900"></td>
<td width="200" valign="top" height="228" align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#FF9900">
<tr bgcolor="#FFFFFF">
<td colspan="3" align="center" height="20"><font color="#FFFF00"><a href="../Project/Project_Query.asp?query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><span class="blank">查询我的项目</span></a></font> <a href="PrintAll.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"><span class="blank">全文打印</span></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">No</td>
<td width="136" height="20">
<div align="center">目 录</div>
</td>
<td width="34" align="center" height="20"> 打印</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">1</td>
<td width="136" height="20"><a href="Project_edit1.asp" class="blank">封面</a></td>
<td width="34" align="center" height="20"> <a href="print_word_1.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">2</td>
<td width="136" height="20" class="blank"><a href="Project_edit2.asp" class="blank">单位情况</a></td>
<td width="34" align="center" height="20"> <a href="print_word_2.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">3</td>
<td width="136" height="20"><a href="Project_edit3.asp" class="blank">项目情况</a></td>
<td width="34" align="center" height="20"> <a href="print_word_3.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">4</td>
<td width="136" height="20"><a href="Project_edit4.asp" class="blank">人员情况</a></td>
<td width="34" align="center" height="20"> <a href="print_word_4.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">5</td>
<td width="136" height="20"><a href="Project_edit5.asp" class="blank">经费情况</a></td>
<td width="34" align="center" height="20"> <a href="print_word_5.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" height="20" align="center">6</td>
<td width="136" height="20" bgcolor="#FFFFFF"><a href="Project_edit6.asp" class="blank">附件</a></td>
<td width="34" align="center" height="20"> <a href="print_word_6.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">7</td>
<td width="136" height="20">
<%if session("ProjectType")="43" or session("ProjectType")="44" then %>
<a href="Project_edit7_4_1.asp" class="blank">
<%end if%>
<%if session("ProjectType")="46" or session("ProjectType")="47" then %>
</a><a href="Project_edit7_4_2.asp" class="blank">
<%end if%>
<%if session("ProjectType")="41" or session("ProjectType")="45" then %>
</a><a href="Project_edit7_4_3.asp" class="blank">
<%end if%>
<%if session("ProjectType")="42" then %>
</a><a href="Project_edit7_4_4.asp" class="blank">
<%end if%>
<%if left(session("ProjectType"),1)="3" then %>
</a><a href="Project_edit7_3.asp" class="blank">
<%end if%>
补充材料</a></td>
<td width="34" align="center" height="20">
<%if session("ProjectType")="43" or session("ProjectType")="44" then %>
<a href="Print_word_7_4_1.asp" target="_blank"> <img src="../public/images/print.gif" width="17" height="19" border="0"></a>
<%end if%>
<%if session("ProjectType")="46" or session("ProjectType")="47" then %>
<a href="Print_word_7_4_2.asp" target="_blank"> <img src="../public/images/print.gif" width="17" height="19" border="0"></a>
<%end if%>
<%if session("ProjectType")="41" or session("ProjectType")="45" then %>
<a href="Print_word_7_4_3.asp" target="_blank"> <img src="../public/images/print.gif" width="17" height="19" border="0"></a>
<%end if%>
<%if session("ProjectType")="42" then %>
<a href="Print_word_7_4_4.asp" target="_blank"> <img src="../public/images/print.gif" width="17" height="19" border="0"></a>
<%end if%>
<%if left(session("ProjectType"),1)="3" then %>
<a href="Print_word_7_3.asp" target="_blank"> <img src="../public/images/print.gif" width="17" height="19" border="0"></a>
<%end if%>
</td>
</tr>
<form name="form2" method="post" action="myfileUp.asp" enctype="multipart/form-data">
<tr bgcolor="#FFFFFF">
<td rowspan="2" align="center" height="41">8</td>
<td width="136" height="20" >可行性报告</td>
<td width="34" align="center" height="20">
<%
set fileobj=Server.CreateObject ("scripting.filesystemobject")
txtFileName=session("Projectcode") & ".doc"
filepath=server.mappath("\project\doc") & "\" & txtFileName
if fileobj.FileExists (filepath) then
Response.Write "<a href=..\project\doc\" + txtFileName+" class=blank target='_blank'><img src='../public/images/print.gif' width='17' height='19' border='0'></a>"
set fileobj=nothing
end if%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="136" height="20" >
<table style=font-size:9pt; width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" height="30">
<div align="center">
<input style="width:120px;height:18px;" type="file" name="file" size="13" class="button">
<input type="hidden" name="CopyrightInfo" value="http://www.chinaasp.com">
</div>
</td>
</tr>
<%if not request.querystring("fileInfo")="" then %>
<tr>
<td colspan="2" height="30"> <%=request.querystring("fileinfo")%></td>
</tr>
<%end if%>
</table>
</td>
<td width="34" align="center" height="20">
<input type="submit" name="Submit4" value="提交" class="button" onClick="return checkfun1()">
</td>
</tr>
</form>
<tr bgcolor="#FFFFFF">
<td width="21" align="center" height="20">9</td>
<td width="136" height="20" ><a href="Project_edit8.asp" class="blank">推荐及审批意见</a></td>
<td width="34" align="center" height="20"> <a href="print_word_8.asp" target="_blank"><img src="../public/images/print.gif" width="17" height="19" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height="20">
<%if ProjectJD="申报" then%>
<p><a href="UpdateToTJ.asp?code=<%=session("ProjectCode")%>"><font color="#CC0000">☆☆
申请推荐 ☆☆</font></a></p>
<%end if%>
<%if back="10" then'项目退回%>
<p><a href="UpdateToTJ.asp?code=<%=session("ProjectCode")%>&again=again"><font color="#CC0000">☆☆
重新申报 ☆☆</font></a></p>
<%end if%>
</td>
</tr>
</table>
<a href="#" onClick="window.top.switchSysBar()" class="blank">返回</a> </td>
<td width="3" valign="top" height="228" bgcolor="#FF9900"></td>
</tr>
</table>
<p> </p>
<p> </p>
</body>
</html>
<script language="vbscript">
function checkfun() '校验字数是否大于200字
checkfun=true
if form1.Person1.value="" then
checkfun=false
window.alert "项目主持人1简介内容不能为空，注意不要多于200字，请重新输入！"
exit function
end if
if len(form1.Person1.value)>200 then
checkfun=false
window.alert "项目主持人1简介内容多于200字，请重新输入！"
exit function
end if
if len(form1.Person2.value)>200 then
checkfun=false
window.alert "项目主持人2简介内容多于200字，请重新输入！"
exit function
end if
if len(form1.Manager.value)>200 then
checkfun=false
window.alert "项目组织管理方式内容多于200字，请重新输入！"
exit function
end if
N=9
for i=12 to 12+N*9 step 9
if document.forms(0)(i).value<>"" then
for j=i+9 to 12+N*9 step 9
if document.forms(0)(i).value=document.forms(0)(j).value then
window.alert "人员姓名不能重复，请重新输入！"
document.forms(0)(j).focus()
checkfun=false
end if
next
end if
next
end function
function checkfun1() '校验上传路径
checkfun1=true
if form2.file.value ="" then
checkfun1=false
window.alert "请选择您的报告路径，请重新输入！"
exit function
end if
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -