upfile.asp

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

<!--#include file="../inc/office_open.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<%
set conn=opendb
set rsUpload = Server.CreateObject("ADODB.Recordset")
Uploadsql = "SELECT * FROM UploadSet where id=1"
rsUpload.Open Uploadsql,conn

FilePath=rsUpload("filepath")
FileMaxSize=rsUpload("size")
FileType=rsUpload("FileType")
fileweb=rsUpload("weburl")
nameset =rsUpload("nameset")
dim upload,file,formName,iCount
set upload=new upload_5xSoft ''建立上传对象
 UpFilePath = FilePath
 ''在目录后加(/)
 if right(UpFilePath,1)<>"/" then UpFilePath=UpFilePath&"/" 
iCount=0
Session("UploadFileCount")=0
Session("UploadFileDir")=""
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
 if file.FileSize<FileMaxSize then ''如果未超过文件大小限制
 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
  file.SaveAs Server.mappath(UpFilePath&fname)   ''保存文件
  iCount=iCount+1
  FileNameStr = FileWeb&UpFilePath&fname
  '记录上传附件的个数及上传附件的路径
  Session("UploadFileCount")=iCount
  Session("UploadFileDir")=Session("UploadFileDir")+"*"+FileNameStr
end if
 else
 response.write "<script language=JavaScript>{window.alert('上传失败，上传附件大小超出指定范围!');window.history.go(-1);}</script>"
 exit for
 end if
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象

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
%>