<%
UpFilePath = "file/" '設定存放的目錄
if right(UpFilePath,1) <> "/" then UpFilePath = UpFilePath & "/" '在目錄後加(\)
UpFilePath = Server.MapPath(UpFilePath) '抓出完整主機路徑
Set fds = Server.CreateObject("Scripting.FileSystemObject")
'建立引用至FileSystemObject物件的fsObj物件變數
'利用FileSystemObject物件的FileExists方法檢查目錄是否存在(若發生錯誤，表示該主機不開放建立檔案寫入權限)
if Not fds.FolderExists(UpFilePath) then fds.CreateFolder(UpFilePath) '建立目錄指令
set fds = nothing '清除fsObj物件
FileMaxSize = 500000000 '設定檔案允許的大小
Server.ScriptTimeOut = 10000 '設定檔案傳輸時間
FileType = ".jpg.gif.htm" '設定允許的副檔名
set upload = new upload_5xsoft ''建立上傳對象
dim formName,StrFile
for each formName in upload.file ''列出所有上傳的檔案
set file = upload.file(formName) ''生成一個檔案對象
if file.FileSize > 0 then ''如果 FileSize > 0 說明有檔案byte數
if file.FileSize < FileMaxSize then ''如果未超過檔案大小限制
if FileType <> "" then '有限制上傳檔案類型
if Instr(FileType,GetExtendName(file.FileName)) then
TypeFlag = 1 '檔案為允許的類型
else
TypeFlag = 0 '檔案為不允許的類型
'session("txt") = "不支援您所上傳的檔案類型﹕"
'session("file") = session("file") & GetExtendName(file.FileName)
end if
else
TypeFlag = 1 '沒有限制上傳檔案類型
end if
if TypeFlag = 1 then
fname = file.FileName
file.SaveAs UpFilePath & "\" & fname ''儲存檔案
StrFile = StrFile & " " & fname
end if
else
'session("txt") = "檔案大小超出限制，您最多可以上傳 " & FileMaxSize & "byte的檔案"
exit for
end if
end if
set file = nothing
next
set upload = nothing ''刪除此對象
'此函數抓取副檔名
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
if fname <> Empty then
%>
<%=StrFile%> 上傳完畢
<%
else
%>
<%
end if
%>
返回上傳頁