|
"
'### Save image
If Application("ShowSaveButton") Then Response.Write"
"
Response.Write "
"
If CurNum
"
Response.Write " " & URL & " "
End If
Response.Write "") Response.Write " |
| "
If IsMultimediaFile Then
WriteMMObject ext, ImgLink
ElseIf IsAnImage Then
Response.Write ToggleViewLink
Response.Write " |
| "
'Response.Write " |
"
Response.write "" & StartCapital(a2(0)) & " | " & FromDBDate(a2(1)) & "" & Session("Str")(77) & "
" If FolderID="" Then t="ID=" & ID Else t="FolderID=" & FolderID Response.Write "" & Session("Str")(8) & " | " & Session("Str")(9) & "" If Session("IsAdmin") Then Response.Write " | " & Session("Str")(10) & "" Response.write "" & fn & "
" If FolderID="" Then Comments=GetFromDB(ID,"Comments") Else OpenRS Conn, RS SQL = "SELECT Comments FROM Folders WHERE FolderID=" & FolderID RS.Open SQL, Conn, 1, 1 If NOT RS.EOF Then Comments=RS(0) Else Comments="" CloseRS Conn, RS End If If Comments<>"" Then Response.Write "
",VbCrLf) Response.Write "" Else Response.Write "" End If End Sub '######################## Sub ShowTimeLine '######################## NumCols=Application("TimelineMaxCols") If IsArray(Session("TimelineList")) Then Response.Write "" Response.write "
" End Sub '######################## Sub LogOut '######################## Session("Pass")="" Session("IsAdmin")=False Session("IsLoggedin")=False Session("NoPassRequired")=False Session("CatID")="" Session("q")="" Response.redirect("listpics.asp") End Sub '######################## Sub DoList '######################## Response.Write "" If Dir<>"" Then '### New dir selected? Dir=Replace(Dir,"/","\") If Dir="\" Then Dir="" If Dir="" Then Session("IsRootFolder")=True Else Session("IsRootFolder")=False NewDir=BuildPath(Dir) If Right(NewDir,1)<>"\" Then NewDir=NewDir & "\" If fso.folderexists(NewDir) AND Instr(Dir,"..")=0 Then '### Set paths Session("Page")=1 Session("CurFolder")=NewDir Session("RelFolder")=GetRelPath(NewDir) Session("ZipName")=Session("LowResRootFolder") & fso.GetBasename(Session("CurFolder")) & "_" & Minute(Now)*60 + Second(Now) & ".zip" Else Showerror "This folder does not exist, or access is denied!" End If End If '### Main GetFldrSettings Session("CurFolder") If Application("AutoRebuild") OR Session("IsAdmin") Then Session("RebuildOccured")=False Session("NumRebuildItems")=0 Rebuild Session("CurFolder"), False, False End If Session("ShowStarted")="" 'Reset slideshow time counter Session("CurFolderID")=GetFolderID(Session("CurFolder")) If NOT Session("RebuildOccured") Then ShowList Else Response.Write "
" & Session("Str")(177) & "" Response.Write "" End If End Sub '######################## Sub DoRebuild '######################## Recurse=Request("Recurse") Session("RebuildStartTime")=Now Session("RebuildNumItems")=0 NumItems=0 ' Response.write "Getting number of items...
" GetNumFiles Session("CurFolder"), NumItems, Recurse If NumItems>0 Then Response.Flush Session("PreserveLR")=CBool(Request("Preserve")) Session("ForcedRebuildInProgress")=True Session("RebuildTotalItems")=NumItems Response.Write "
Rebuilding " & NumItems & " files..." Response.Flush Rebuild Session("CurFolder"), True, Recurse TimeTaken=DateDiff("s",Session("RebuildStartTime"),Now) If NumItems>0 Then Av=Round(TimeTaken/NumItems,1) Response.Write "
Done in " & SecondsToTime(TimeTaken) & " (" & Av & "s/file)
" & VbCrLf Response.Write "
Back" & VbCrLf Session("ForcedRebuildInProgress")=False Session("PreserveLR")=False Response.Write "" Else Response.redirect "listpics.asp" End If End Sub '######################## Sub DoDownload '######################## '### For thumbs no db lookup is done, rel d/l path is used (using ID would slow down page listing) saveas=(Request("saveas")=1) If m="tn" Then f=Session("LowResRootFolder") & f ElseIf m="org" Then If Session("IsAdmin") OR Session("ShowAllFileTypes") Then f=Session("CurFolder") & f WriteLogLine "Download original " & f Else If Application("UseLowRes") AND m<>"large" Then f=GetLowResPathFromID(ID) Else If Session("AllowFullSize") OR NOT Application("UseLowRes") Then f=GetPathsFromID(ID) End If If Application("LogLevel")>2 Then WriteLogLine "Download " & f End If If f<>"" Then Download f, saveas End Sub '######################## Sub FindForm '######################## If Application("Debugging")=False Then On Error resume next %> <% Response.Write "" End SUB '######################## SUB RateFile(ID) '######################## Rating=Request("Rating") If Rating<>"" Then OpenRS Conn, RS SQL = "Select * FROM Files WHERE ID=" & ID RS.Open SQL,Conn , 3,3 If NOT RS.EOF Then If ISNULL(RS("TotalRating")) Then RS("TotalRating")=Rating Else RS("TotalRating")=RS("TotalRating") + Rating If ISNULL(RS("Numratings")) Then RS("Numratings")=1 Else RS("Numratings")=RS("Numratings") + 1 RS.Update End If CloseRS Conn, RS Session("RateList")=Session("RateList") & "," & ID If Application("LogLevel")>1 Then WriteLogLine("Rate image " & ID & " with " & Rating) Response.Write "" Else If IsInList(ID,Session("RateList")) Then Response.Write "
" & Session("Str")(8) & "