Image Administration

<% response.cachecontrol = "no-cache" %> <% timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") pageID = request.querystring("pageID") ptype = 0 if Request.QueryString("Clickable") <> Empty and IsNumeric(Request.QueryString("Clickable")) then strSQL = "UPDATE Page_Images SET Clickable = "& Request.QueryString("Clickable") &" WHERE PageID = "& pageID &" AND Directory_File = '"& Replace(Request("Directory_File"), "'", "''") &"'" con.execute strSQL con.Close set con = Nothing response.redirect "photos.asp?ptype="& ptype &"&pageID="& pageID &"&intPage="& Request("intPage") &"&buster="& server.URLEncode(now()) end if if request.querystring("Posted") = "Y" then Set Upload = Server.CreateObject("Persits.Upload") Upload.OverWriteFiles = False Upload.ProgressID = Request.QueryString("PID") '----------------------------------------------------------------- ' Capture uploaded file. Save returns the number of files uploaded '----------------------------------------------------------------- Count = Upload.Save(server.Mappath("..\..\Page_Images")) if Upload.Form("CurrentFile") <> empty then '------------------------------------------------------- ' UPDATE needs to take place ... '------------------------------------------------------- strSQL = "SELECT Description FROM Page_Images WHERE PageID = "& pageID &" AND Directory_File = '"& Replace(Upload.Form("CurrentFile"), "'", "''") &"'" set rsAddNew = server.createobject("ADODB.Recordset") rsAddNew.open strSQL, con, 1, 2 rsAddNew.movefirst rsAddNew("Description") = Upload.Form("description") rsAddNew.Update rsAddNew.close set rsAddNew = Nothing elseif Count > 0 then Set File = Upload.Files(1) If File.ImageType <> "JPG" Then '---------------------------------------------------------- ' Remove the file from the folder root ... '---------------------------------------------------------- DeleteFile server.mappath("..\..\Page_Images\") & "\" & File.FileName %> <% Set File = Nothing Set Upload = Nothing con.Close() set con = Nothing response.end end if '--------------------------------------------------------------- ' CREATE new entry ... ' but first check if the entry exists ... '--------------------------------------------------------------- strSQL = "SELECT Directory_File FROM Page_Images WHERE PageType = "& ptype &" AND PageID = "& pageID &" AND Directory_File = '"& File.FileName &"'" set rsCheckE = con.execute(strSQL) if not rsCheckE.EOF then %> <% response.end end if strSQL = "SELECT ISNULL(MAX(ImageOrder),0) + 1 AS 'ImageOrder' FROM Page_Images WHERE PageType = 0 and PageID = "& pageID Set rsImageOrder = con.execute(strSQL) rsImageOrder.MoveFirst i_ImageOrder = rsImageOrder("ImageOrder") Set rsImageOrder = Nothing set rsAddNew = server.createobject("ADODB.Recordset") rsAddNew.open "SELECT * FROM Page_Images", con, 1, 2 rsAddNew.AddNew() set Filesys = server.createobject("Scripting.FileSystemObject") newfolderpath = server.mappath("..\..\Page_Images\Thumbs") If Not Filesys.FolderExists(newfolderpath) Then Set newfolder = Filesys.CreateFolder(newfolderpath) End If newfolderpath = server.mappath("..\..\Page_Images\Big") If Not Filesys.FolderExists(newfolderpath) Then Set newfolder = Filesys.CreateFolder(newfolderpath) End If set Filesys = nothing SaveImageForNewGallery File.Path, server.mappath("..\..\Page_Images\Big\"& File.FileName), 600,400 SaveImageForNewGallery File.Path, server.mappath("..\..\Page_Images\Thumbs\"& File.FileName), 200,200 'SaveImageTopBottom File.Path, server.mappath("..\..\Page_Images\Thumbs"), File.FileName rsAddNew("PageID") = pageID rsAddNew("PageType") = ptype rsAddNew("Directory_File") = File.FileName if session("ActiveProject") = -99 or session("ActiveProject") = "" then else rsAddNew("ProjectID") = session("ActiveProject") end if rsAddNew("ImageOrder") = i_ImageOrder rsAddNew("Description") = Upload.Form("description") rsAddNew.Update() rsAddNew.close set rsAddNew = nothing end if Session("Page_ImagesUpdate") = "TRUE" Session("ServerName") = LCase(request.servervariables("HTTP_HOST")) con.Close() set con = Nothing response.redirect("photos.asp?ptype="& ptype &"&pageID="& pageID &"&dir="& server.URLEncode(request.querystring("dir")) &"&intPage="& Upload.Form("intPage") &"&buster="& server.URLEncode(now)) end if Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "../UploadMonitor/FRAMEBAR.ASP?to=10&"& PID strSQL = "SELECT * FROM Page_Images WHERE PageID = " & pageID &" and pageType = 0 order by imageorder" set rsPhotos = server.createobject("ADODB.Recordset") rsPhotos.open strSQL, con, 3, 1 %> Image Administration &<%=PID%>&Posted=Y&dir=<%=server.URLEncode(request("dir"))%>" enctype="multipart/form-data">"> ">

Page Images

Image (Jpeg):
Description:
Large Image Clickable:

Images

<%if rsPhotos.EOF then%>

There are no images.

<%else%> <% rsPhotos.PageSize = 5 intPageCount = rsPhotos.PageCount if request("intPage") <> empty and IsNumeric(request("intPage")) then intPage = CInt(request("intPage")) else intPage = 1 end if if intPage > intPageCount then intPage = intPageCount elseif intPage < 1 then intPage = 1 end if rsPhotos.AbsolutePage = intPage %> <%if intPagecount > 1 then%>

<%if CDbl(intPage) > 1 then%> &intPage=<%=(intPage - 1)%>&buster=<%=Server.URLEncode(Now())%>','_self');" > <% else %> <% end if %>

<% for i=1 to intPagecount if i = CDbl(intPage) then %> <% else%> <% end if next %>

Pages:

<%=i%>

&intPage=<%=i%>&buster=<%=Server.URLEncode(Now())%>','_self');"><%=i%>

<% if CDbl(intPage) <> intPagecount then %> &intPage=<%=(intPage + 1)%>&buster=<%=Server.URLEncode(Now())%>','_self');" > <% else %> <% end if %>

<%end if%> <% counterx=0 for i = 1 to rsPhotos.PageSize s_Directory_File = rsPhotos("Directory_File") b_Clickable = rsPhotos("Clickable") s_Description = rsPhotos("Description") i_ImageOrder = rsPhotos("ImageOrder") %> <%if rsPhotos.EOF then exit for%> <%Next%> "> ">

Image

Order

&intPage=<%=request("intPage")%>&buster=<%=server.URLEncode(now)%>','right');">

<%=s_Directory_File%> ~ <%=server.HTMLEncode(s_Description)%>

<% rsPhotos.MoveNext if Not (intPage = 1 and i = 1) and rsPhotos.RecordCount > 1 then %> <% else %> <% end if if Not rsPhotos.EOF then %> <% else %> <% end if %>

&intPage=<%=Request("intPage")%>&move=UP&buster=<%=Server.URLEncode(Now())%>','_self');">

&ptype=<%=server.URLEncode(request("ptype"))%>&intPage=<%=Request("intPage")%>&move=DOWN&buster=<%=Server.URLEncode(Now())%>','_self');">

<%end if%>

<% rsPhotos.close set rsPhotos = nothing Set UploadProgress = Nothing con.close set con = nothing %>