project_edit7_4_3.asp

ASP程序实现的科技期刊系统

    <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">&nbsp;<%=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="1" valign="top" height="228" bgcolor="#FF9900"></td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<script language="vbscript">
function checkfun()   '校验字数是否大于200字
		checkfun=true
		if form1.SheHYY.value="" then 
			checkfun=false
			window.alert "'项目完成后的社会意义'为空，请重新输入！"
			exit function
		end if		
		if len(form1.SheHyy.value)>200 then 
			checkfun=false
			window.alert "'项目完成后的社会意义'多于200字，请重新输入！"
			exit function
		end if
		if form1.YeWFW.value="" then 
			checkfun=false
			window.alert "'单位注册登记业务范围和目前主要业务'为空，请重新输入！"
			exit function
		end if
		if len(form1.YeWFW.value)>200 then 
			checkfun=false
			window.alert "'单位注册登记业务范围和目前主要业务'多于200字，请重新输入！"
			exit function
		end if
		if form1.ZhuCZB.value="" then 
			checkfun=false
			window.alert "'单位注册资本构成'为空，请重新输入！"
			exit function
		end if
		if len(form1.ZhuCZB.value)>200 then 
			checkfun=false
			window.alert "'单位注册资本构成'多于200字，请重新输入！"
			exit function
		end if
		if form1.RenYGC.value="" then 
			checkfun=false
			window.alert "'人员构成'为空，请重新输入！"
			exit function
		end if
		if len(form1.RenYGC.value)>200 then 
			checkfun=false
			window.alert "'人员构成'多于200字，请重新输入！"
			exit function
		end if
end function
function checkfun1()   '校验上传路径
		checkfun1=true
		if form2.file.value ="" then 
			checkfun1=false
			window.alert "请选择您的报告路径，请重新输入！"
			exit function
		end if
end function
</script>