upfile1.asp

一个用asp和sql server开发的网上办公系统

<!--#include file="../inc/office_open.asp"-->
<!-- #include file="upload1_fun.asp" -->
<%
'从数据库中读出上船共享信息的参数
set conn=opendb
set rsUpload = Server.CreateObject("ADODB.Recordset")
   Uploadsql = "SELECT * FROM UploadSet where id=2"
   rsUpload.Open Uploadsql,conn
   FilePath=rsUpload("filepath")
   FileMaxSize=rsUpload("size")
   FileType=rsUpload("FileType")
   fileweb=rsUpload("weburl")
   nameset =rsUpload("nameset")
Dim NewFileName

Dim iCount,formPath,formName,file,FileExt
	 UpFilePath = FilePath
 ''在目录后加(/)
	 if right(UpFilePath,1)<>"/" then UpFilePath=UpFilePath&"/" 
iCount=0
Session("UploadFileCount")=0
Session("UploadFileDir")=""
	set fileup=new UpFile_Class ''建立上传对象
	fileup.GetData (FileMaxSize)   '取得上传数据,不限大小
	If fileup.err > 0 then
	    select case fileup.err
			case 1
					Response.Write "请先选择你要上传的文件　[ <a href=javascript:history.go(-1)>重新上传</a> ]"
			case 2
					Response.Write "文件大小超过了限制 " & int(FileMaxSize/1024) & "K　[ <a href=javascript:history.go(-1)>重新上传</a> ]"
		end select
	
	Else
		For each formName in fileup.file ''列出所有上传了的文件
			set file=fileup.file(formName)  ''生成一个文件对象
			if file.filesize<1 then
				response.write "请先选择你要上传的文件　[ <a href=javascript:history.go(-1)>重新上传</a> ]"
				response.end
	 		end if
			 if FileType<>"" then	'如果限制了上传文件类型
			 if Instr(FileType,GetExtendName(file.FileName)) then
				TypeFlag = 1        '文件为允许的类型
			 else
				TypeFlag = 0		'文件为不允许的类型
				response.write "<script language=JavaScript>{window.alert('上传失败，系统不支持您所上传的附件类型!');window.history.go(-1);}</script>"
			end if
			 else
			 TypeFlag = 1			'没有限制上传文件类型 
 			end if
		if TypeFlag = 1 then 
		  vfname = makefilename(now())
   		  if nameset = 1 then
 		   fname = vfname & iCount & "." & GetExtendName(file.FileName)
 		      elseif nameset =2 then
			   fname = file.FileName
			     elseif nameset = 3 then
				 fname = vfname & iCount & file.FileName
	      end if
			if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
			file.SaveToFile Server.mappath(UpFilePath&fname)    ''保存文件
			end if
  		iCount=iCount+1
  		FileNameStr = FileWeb&UpFilePath&fname
 		 '记录上传附件的个数及上传附件的路径
  		Session("UploadFileCount")=iCount
 		 Session("UploadFileDir")=Session("UploadFileDir")+"*"+FileNameStr
		end if

			Set File = Nothing
		Next
		Set Fileup = Nothing		
	End If

if iCount>0 then
 	response.write "<script language=JavaScript>{window.alert('附件上传成功!');window.history.go(-2);}</script>"
else
	response.write "<script language=JavaScript>{window.alert('附件上传失败，请与系统管理员联系!');window.history.go(-1);}</script>"
end if

sub HtmEnd(Msg)
 	set upload=nothing
end sub

''将当前的日期和时间转为文件名
function makefilename(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,"下午","")
  makefilename=fname
end function 

function GetExtendName(FileName)
	dim ExtName
	ExtName = LCase(FileName)
	ExtName = right(ExtName,3)
	ExtName = right(ExtName,3-Instr(ExtName,"."))
	GetExtendName = ExtName
end function
rsUpload.Close
set rsUpload=nothing
conn.close
set conn=nothing
%>