<!--#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 ''建立上傳對(duì)象
 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)  ''生成一個(gè)文件對(duì)象
 if file.FileSize>0 then         ''如果 FileSize > 0 說(shuō)明有文件數(shù)據(jù)
 if file.FileSize<FileMaxSize then ''如果未超過(guò)文件大小限制
 if FileType<>"" then	'如果限制了上傳文件類型
 if Instr(FileType,GetExtendName(file.FileName)) then
	TypeFlag = 1        '文件為允許的類型
 else
	TypeFlag = 0		'文件為不允許的類型
	response.write "<script language=JavaScript>{window.alert('上傳失敗，系統(tǒng)不支持您所上傳的附件類型!');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
  '記錄上傳附件的個(gè)數(shù)及上傳附件的路徑
  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  ''刪除此對(duì)象

if iCount>0 then
 	response.write "<script language=JavaScript>{window.alert('附件上傳成功!');window.history.go(-2);}</script>"
else
	response.write "<script language=JavaScript>{window.alert('附件上傳失敗，請(qǐng)與系統(tǒng)管理員聯(lián)系!');window.history.go(-1);}</script>"
end if

sub HtmEnd(Msg)
 	set upload=nothing
end sub
''將當(dāng)前的日期和時(shí)間轉(zhuǎn)為文件名
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
%>