<%
Server.ScriptTimeout = 3000
Response.Buffer = true
if session("company_id") <> "" then
dim objUpload
dim sFile
dim sFolder
dim return_page
dim FileControler
dim myfile
dim fsize
dim item
dim value
dim file
%>
<%
set FileControler = server.CreateObject("Scripting.FileSystemObject")
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
For each file In objUpload.Files
sFile = file.FileName
Next
'Select each item in form
'************************
For each item In objUpload.Form
'Select each value of the current item
'*************************************
For each value In objUpload.Form(item)
'get information
if item = "folder" then
sFolder = value
end if
Next
Next
If Len(sFile) > 0 Then
sFile = lcase(sFile)
objUpload.Save server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/files/" & sFolder)
set myfile = FileControler.GetFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/files/" & sFolder) & "/" & sFile)
fsize = myfile.size
else
fsize = 1
End If
if fsize >= session("download_section_file_size") then
FileControler.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/files/") & "/" & sFolder & "/" & sFile
Response.Write ""
Response.Write "Sorry, file size are limited to " & session("display_download_section_file_size")
Response.Write "
click here to upload again..."
else
return_page = ""
Response.Write return_page
end if
set FileControler = nothing
else
Response.Redirect "../../index.asp"
end if
%>