project_edit7_3.asp

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

            </td>
            <td width="118" bgcolor="white" align="right">比计划上一年度增长</td>
            <td width="126" bgcolor="white"> 
              <input type="text" name="WanCXSB" size="10" maxlength="10" value="<%=WanCXSB%>" onblur="return isnumeric(this)">
              % </td>
            <td width="10" bgcolor="white">&nbsp;</td>
          </tr>
          <tr> 
            <td height="25" width="9" bgcolor="white">&nbsp;</td>
            <td width="132" bgcolor="white" align="right">计划完成年度实现利税</td>
            <td width="109" bgcolor="white"> 
              <input type="text" name="WanCLS" size="10" maxlength="10" value="<%=WanCLS%>" onblur="return isnumeric(this)">
            </td>
            <td width="118" bgcolor="white" align="right">比计划上一年度增长</td>
            <td width="126" bgcolor="white"> 
              <input type="text" name="WanCLSB" size="10" maxlength="10" value="<%=WanCLSB%>" onblur="return isnumeric(this)">
              % </td>
            <td width="10" bgcolor="white">&nbsp;</td>
          </tr>
          <tr> 
            <td height="20" width="9" bgcolor="#EAEAEA">&nbsp;</td>
            <td height="20" colspan="4" bgcolor="#EAEAEA">项目主持单位信息化情况</td>
            <td height="20" width="10" bgcolor="#EAEAEA">&nbsp;</td>
          </tr>
          <tr> 
            <td height="25" width="9" bgcolor="white">&nbsp;</td>
            <td colspan="4" bgcolor="white" align="right"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td align="right">硬件水平</td>
                  <td align="center"> 
                    <select name="YingJSP">
                      <option value="好" <%if YingJSP="好" then response.write "selected" end if %>>好</option>
                      <option value="中" <%if YingJSP="中" then response.write "selected" end if %><%if YingJSP="" then response.write "selected" end if %>>中</option>
                      <option value="差" <%if YingJSP="差" then response.write "selected" end if %>>差</option>
                    </select>
                  </td>
                  <td align="right">软件水平</td>
                  <td align="center"> 
                    <select name="RuanJSP">
                      <option value="好" <%if RuanJSP="好" then response.write "selected" end if %>>好</option>
                      <option value="中" <%if RuanJSP="中" then response.write "selected" end if %><%if RuanJSP="" then response.write "selected" end if %>>中</option>
                      <option value="差" <%if RuanJSP="差" then response.write "selected" end if %>>差</option>
                    </select>
                  </td>
                  <td align="right">管理层应用水平</td>
                  <td align="center"> 
                    <select name="GuanLSP">
                      <option value="好" <%if GuanLSP="好" then response.write "selected" end if %>>好</option>
                      <option value="中" <%if GuanLSP="中" then response.write "selected" end if %><%if GuanLSP="" then response.write "selected" end if %>>中</option>
                      <option value="差" <%if GuanLSP="差" then response.write "selected" end if %>>差</option>
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td align="right">业务层应用水平</td>
                  <td align="center"> 
                    <select name="YeWSP">
                      <option value="好" <%if YeWSP="好" then response.write "selected" end if %>>好</option>
                      <option value="中" <%if YeWSP="中" then response.write "selected" end if %><%if YeWSP="" then response.write "selected" end if %>>中</option>
                      <option value="差" <%if YeWSP="差" then response.write "selected" end if %>>差</option>
                    </select>
                  </td>
                  <td align="right">生产层应用水平</td>
                  <td height="20" align="center"> 
                    <select name="ShengCSP">
                      <option value="好" <%if ShengCSP="好" then response.write "selected" end if %>>好</option>
                      <option value="中" <%if ShengCSP="中" then response.write "selected" end if %><%if ShengCSP="" then response.write "selected" end if %>>中</option>
                      <option value="差" <%if ShengCSP="差" then response.write "selected" end if %>>差</option>
                    </select>
                  </td>
                  <td align="right">单位主要领导重视程度</td>
                  <td align="center"> 
                    <select name="ZhongSCD">
                      <option value="好" <%if ZhongSCD="好" then response.write "selected" end if %>>好</option>
                      <option value="中" <%if ZhongSCD="中" then response.write "selected" end if %><%if ZhongSCD="" then response.write "selected" end if %>>中</option>
                      <option value="差" <%if ZhongSCD="差" then response.write "selected" end if %>>差</option>
                    </select>
                  </td>
                </tr>
              </table>
            </td>
            <td width="10" bgcolor="white">&nbsp;</td>
          </tr>
          <tr> 
            <td height="20" colspan="6" bgcolor="#FFFFFF">&nbsp;</td>
          </tr>
          <tr> 
            <td height="28" colspan="6" bgcolor="#FFFFFF"> 
              <div align="center"> 
                <%if session("view")<>"view" then
					  response.write session("view")
					  %>
                <input class="button" type="submit" name="Submit" value="提交" >
                <input class="button" type="reset" name="Submit2" value="重填">
                <%end if%>
                <input class="button" type="button" name="Submit3" value="打印" onClick="window.open('../project/print_word_7_3.asp')">
              </div>
            </td>
          </tr>
          <tr> 
            <td height="20" width="9" bgcolor="#FFFFFF">&nbsp;</td>
            <td height="20" width="132" bgcolor="#FFFFFF">&nbsp;</td>
            <td height="20" width="109" bgcolor="#FFFFFF">&nbsp;</td>
            <td height="20" width="118" bgcolor="#FFFFFF">&nbsp;</td>
            <td height="20" width="126" bgcolor="#FFFFFF">&nbsp;</td>
            <td height="20" width="10" bgcolor="#FFFFFF">&nbsp;</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">&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="3" valign="top" height="228" bgcolor="#FF9900"></td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<script language="vbscript">
function checkfun1()   '校验上传路径
		checkfun1=true
		if form2.file.value ="" then 
			checkfun1=false
			window.alert "请选择您的报告路径，请重新输入！"
			exit function
		end if
end function
</script>