myfileup.asp

来自「ASP程序实现的科技期刊系统」· ASP 代码 · 共 38 行

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
if session("ProjectCode")="" then
	Response.Redirect("Project_edit1.asp?fileinfo=上传不成功,请先申报项目!&code="+session("projectCode")+"&name="+session("ProjectName"))
else

   FTPPath=server.mappath("\project\doc")
   projectcode=session("projectcode")

   set FileUp=server.createobject("ChinaASP.UpLoad")
   dim iCount
   iCount=0

   for each f in fileup.Files 
   	if f.isempty=false then
		if (instr(LCase(f.filename),".doc")=0) then Response.Redirect("Project_edit1.asp?fileInfo=只能上传WORD文档!")
		txtFileName=Projectcode & ".doc" 
		f.saveas FTPPath & "\" & txtFileName
		'在数据库项目表中写入可行性报告标志
		StrSQL="update XT_TD_Project set 可行性报告='Y' where 项目编码='"+ProjectCode+"'"
		conn.Execute StrSQL
		end if
	iCount=iCount+1
   next
   StrInfo="<b>上传成功!</b><br>注意：<br>1、报告应不少于2000字;<br>2、报告格式应按《科技计划项目可行性报告提纲》格式填写。<br>如不符条件，请更改后重新上传。"
   Response.Redirect("Project_edit1.asp?fileinfo="&StrInfo&"&code="+session("projectCode")+"&name="+session("ProjectName"))
end if 
%>