fsave.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<!--#include file="../inc/css.asp"-->
<!--#include file="../inc/upload.asp"-->
<%
	Server.ScriptTimeOut =20
	Dim iDateTime,iaddfile,ifrom,iinfo,ilevel,cent,iread,iadd,info,iext
	dim upload,file,formName,formPath,iCount,opFlag,Number
	set upload=new upload_file ''建立上传对象

	'--------将日期转化成文件名--------
	function MakedownName()
		dim fname
		fname = now()
		fname = replace(fname,"-","")
		fname = replace(fname," ","") 
		fname = replace(fname,":","")
		fname = replace(fname,"PM","")
		fname = replace(fname,"AM","")
		fname = replace(fname,"上午","")
		fname = replace(fname,"下午","")
		fname = int(fname) + int((100)*Rnd + 1)
		MakedownName=fname & iext
	end function 

		
	
	formPath=Session("mailaddroot")
	iCount=0
	
	'读取文件内容
	for each formName in upload.file 
	    set file=upload.file(formName) 
		if file.FileSize>0 then       
			iCount=iCount+1
			iext="." & mid(file.FileName,InStrRev(file.FileName, ".")+1)
			newname=MakedownName()
			iaddfile=newname
			file.SaveAs Server.mappath(formPath&newname)   ''保存文件 
			
			exit for
		else 
			iaddfile=""
         	end if
	next

            SET rs=Server.CreateObject("ADODB.RecordSet") 
	    rs.ActiveConnection = Session("conn")
	    rs.CursorType = 1
            rs.LockType =3
	opFlag=Request.QueryString("opFlag")  
	Number=Request.QueryString("Number")
	select case opFlag
	case "cmdAddNew"   
		rs.open("select * from marketd where Id='" & upload.Form("Id") & " ' "),Session("conn"),1,3
		if rs.eof   then 
		rs.Addnew
		rs("Dname")=upload.Form("Dname")
		rs("Dman")=upload.form("Dman")
		rs("Ddate")=upload.form("Ddate")
		rs("Pdata")=upload.form("Pdata")
		rs("Athing")=upload.form("Athing")
		rs("Beizhu")=upload.form("Beizhu")
		rs("Id")=upload.form("Id")
		rs("Urls")=iaddfile
		rs.Update
		else
		response.write("<script language=javascript>alert('您所输入的方案编号已经存在，请重新输入!');window.history.back()</script>")
		Response.end
		end if
    	case "cmdEdit"
		rs.Open(Session("SQL"))
		rs.Move Number
		rs("Dname")=upload.form("Dname")
		rs("Dman")=upload.form("Dman")
		rs("Ddate")=upload.form("Ddate")
		rs("Pdata")=upload.form("Pdata")
		rs("Athing")=upload.form("Athing")
		rs("Beizhu")=upload.form("Beizhu")
		rs("Id")=upload.form("Id")
		rs("Urls")=iaddfile
		rs.Update
	end select

	rs.close
	set rs=nothing
	'重定向
	response.redirect "fmain.asp"
%>