<%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim objUpload
dim sOld_Ads
dim sAdsPath
dim sAdsURL
dim sAdsStatus
dim FileControler
dim myfile
dim fsize
dim return_page
dim item
dim value
dim file
dim objfs
dim objfile
%>
<%
set FileControler = server.CreateObject("Scripting.FileSystemObject")
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
sAdsPath = objUpload.Files.Item(1).FileName
'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 = "display_ads" then
sAdsStatus = value
end if
if item = "ads_banner_url" then
sAdsURL = value
end if
if item = "old_banner_image" then
sOld_Ads = value
end if
Next
Next
If Len(sAdsPath) > 0 Then
sAdsPath = lcase(sAdsPath)
objUpload.Save server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/")
set myfile = FileControler.GetFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/") & "/" & sAdsPath)
fsize = myfile.size
else
fsize = 1
End If
if fsize >= session("ads_banner_file_size") then
FileControler.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/") & "/" & sAdsPath
Response.Write ""
Response.Write "Sorry, images size are limited at " & session("display_ads_banner_file_size")
Response.Write "
click here to modify..."
else
if sAdsPath = "" then
sAdsPath = sOld_Ads
else
if sAdsPath <> sOld_Ads then
if len(sOld_Ads) > 0 then
if FileControler.FileExists(session("images_folder") & "/" & sOld_Ads) = true then
FileControler.DeleteFile session("images_folder") & "/" & sOld_Ads
end if
end if
end if
end if
'update data
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/ads.txt")) = true then
objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/ads.txt"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/ads.txt"),8,-1,0)
objfile.WriteLine sAdsPath
objfile.close
set objfile = nothing
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/adsURL.txt")) = true then
objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/adsURL.txt"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/adsURL.txt"),8,-1,0)
objfile.WriteLine sAdsURL
objfile.close
set objfile = nothing
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/adsStatus.txt")) = true then
objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/adsStatus.txt"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/adsStatus.txt"),8,-1,0)
objfile.WriteLine sAdsStatus
objfile.close
set objfile = nothing
return_page = ""
Response.Write return_page
end if
set FileControler = nothing
else
Response.Redirect "../../index.asp"
end if
%>