<% Const UP_FileSize = 4194304 'Const UP_FileTypes = "jpg,gif,doc,xls,pdf,csv,ppt,zip,rar,txt,mdb" Const UP_FileTypes = "JPG,JPEG,GIF" 'Const UP_FileTypes = "JPG,GIF" Dim UP_FileType : UP_FileType=Split(UP_FileTypes,",") Server.ScriptTimeOut = 999 Dim FileUP Set FileUP=New Upload_File FileUP.GetDate(-1) set F_Form = FileUp.Form Dim FSO,FSOIsOK FSOIsOK=1 Set FSO=Server.CreateObject("Scripting.FileSystemObject") If Err<>0 Then Err.Clear FSOIsOK=0 End If Dim D_Name,F_Name If FSOIsOK=1 Then 'If FSO.FolderExists(Server.MapPath("PicFolder_l"))=False Then 'FSO.CreateFolder Server.MapPath("PicFolder_l") 'End If Else D_Name="All_Files" End If Set FSO=Nothing Dim F_File,F_Type,EX_Name Set F_File=FileUP.File("ufile") if F_Form("file_name") <> "" then F_Name = F_Form("file_name") else F_Name=create_unique end if EX_Name = F_File.FileName F_Type=FixName(F_File.FileExt) if EX_Name <> "" then ' check file is correct !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! IF F_File.FileSize > Int(UP_FileSize) Then Response.Write("檔大小超出，請返回重新上傳") response.end ElseIF IsvalidFile(F_Type) = False Then Response.Write("檔格式非法，請返回重新上傳") response.end Else F_File.SaveToFile Server.MapPath("../../upload_photo/large_photo/" & F_Name) 'Response.Write "" %> <% 'end if Set F_File=Nothing Set FileUP=Nothing %>