<%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 ''建立上傳對(duì)象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;"	'設(shè)置上傳類型的黑名單
upfile.GetData (10240000)   '取得上傳數(shù)據(jù),限制最大上傳10M

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

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