<%OPTION EXPLICIT%>
<!--#include FILE="upfile_class.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
dim SaveFilename 
upfilecount=0
set upfile=new upfile_class ''建立上傳對象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;"	'設置上傳類型的黑名單
upfile.GetData (10240000)   '取得上傳數據,限制最大上傳10M

if upfile.isErr then  '如果出錯
    select case upfile.isErr
	case 1
	Response.Write "你沒有上傳數據呀???是不是搞錯了??"
	case 2
	Response.Write "你上傳的文件超出我們的限制,最大10M"
	end select
	else
	
	FSPath=GetFilePath(Server.mappath("upfile.asp"),"\")'取得當前文件在服務器路徑
	ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在網站上的位置
	for each formName in upfile.file '列出所有上傳了的文件
	   set oFile=upfile.file(formname)
	   FileName=upfile.form(formName)'取得文本域的值
	   if not FileName>"" then  FileName=oFile.filename'如果沒有輸入新的文件名,就用原來的文件名
	   'upfile.AutoSave formname,FSPath&FileName   ''保存文件 也可以使用AutoSave來保存,參數一樣,但是會自動建立新的文件名
	   SaveFilename=upfile.AutoSave(formname,FSPath&FileName)
	   	
    if upfile.iserr then 
		Response.Write upfile.errmessage
		else
		upfilecount=upfilecount+1
		Response.Write "上傳成功"
		end if
		
  response.cookies("file3")=savefilename
  Response.Cookies("file3").Expires=date+1 
	 set oFile=nothing
	next
end if
set upfile=nothing  '刪除此對象

function GetFilePath(FullPath,str)
  If FullPath <> "" Then
    GetFilePath = left(FullPath,InStrRev(FullPath, str))
    Else
    GetFilePath = ""
  End If
End function
response.redirect "ok2.asp?file3="&savefilename&""
%>