<!--#include file="myupgroupware.inc"-->
<%'引用上傳組件文件%>

<%
'定義上傳組件對象upload
set upload=new upgroupware
'判斷是否是上傳標識
if upload.form("act")="uploadfile" then
	'設置上傳路徑
	'filepath=trim(upload.form("filepath"))
	filepath="../../newspic/"
	i=0
	for each formName in upload.File
		'獲取上傳文件名
		set file=upload.File(formName)
   '得到的文件擴展名不含有.并轉換成大寫
   fileExt=lcase(file.FileExt)
   '判斷上傳文件是否有數據流
   if file.filesize<1 then
	  response.write "<script language=javascript>alert('請先選擇你要上傳的文件！');history.go(-1);</script>"
	  response.end
   end if
   '判斷上傳文件格式是否為"bmp","jpg","gif","png".如果想擴展可以在條件添加的
   if (fileExt<>"bmp") and (fileExt<>"jpg") and (fileExt<>"gif") and (fileExt<>"png")  and (fileExt<>"swf") then
	  response.write "<script language=javascript>alert('該文件類型不能上傳！');history.go(-1);</script>"
	  response.end
   end if
   '判斷上傳文件數據大小:M*1024=Mk
   if file.filesize>(10240000) then
		response.write "<script language=javascript>alert('圖片文件大小不能超過1000K！');history.go(-1);</script>"
		response.end
   end if

logo=upload.Form("logo")
if logo<>"-" then
 filename=logo
else
 randomize
 ranNum=int(90000*rnd)+10000
 filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
end if
%>
<%
 if file.FileSize>0 then         ''如果 FileSize > 0 說明有文件數據
  'file.SaveAs Server.mappath(filename)   ''保存文件
  file.SaveToFile Server.mappath(FileName)
  'response.write file.FileName&"　　上傳成功!　　<br>"
  'response.write "新文件名："&FileName&"<br>"
  'response.write "新文件名已復制到所需的位置，可關閉窗口！"
  if filelx="swf" then
  response.write "<script>window.opener.document."&upload.form("FormName")&".size.value='"&int(file.FileSize/1024)&" K'</script>"
  end if
  response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>"
%>
<%
end if
set file=nothing
next
set upload=nothing
end if
%>
<script language="javascript">
window.alert("文件上傳成功!！");
window.close()
</script>