Последние загруженные изображения проблема кодирования - PullRequest
Новая
       7

Последние загруженные изображения проблема кодирования

0 голосов
/ 04 декабря 2009

Кто-нибудь может помочь мне понять следующую кодировку asp.net 2.0? Предполагается показать мне пару последних фотографий, которые я загрузил в определенную папку в фотоальбоме. однако, когда я загружаю новый файл в папку, в которой уже есть изображения ... изображения, которые появляются при использовании кода, являются первыми изображениями в этой папке ... а иногда ничего не появляется ... 

<%
latestfolder = "na"
latestdate = cdate("01/01/09")

set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.MapPath("images/gallery"))

for each folder in fo.subfolders 
    if cdate(folder.DateLastModified) > latestdate then
        latestdate = cdate(folder.DateLastModified)
        latestfolder = folder.name
    end if
next

if latestfolder <> "na" then
    set fi=fs.GetFolder(Server.MapPath("images/gallery/" & latestfolder))
    looptimes = 0

    for each file in fi.files 
        if month(file.DateLastModified) = month(latestdate) then
            if right(lcase(file.Name),3) = "jpg" then %>
                <a href="thumbnail.aspx?picture=<%=server.URLEncode("images/gallery/" & latestfolder & "/" & file.Name)%>&maxWidth=640&maxHeight=480" target="_blank"  style="text-decoration:none; cursor:pointer;">
                    <img src="thumbnail.aspx?picture=<%=server.URLEncode("images/gallery/" & latestfolder & "/" & file.Name)%>&maxWidth=100&maxHeight=60" style="border:1px solid #ffffff; margin:5px; margin-top:14px;">
                </a>        
            <% end if 
        end if

        looptimes = looptimes + 1
        if looptimes = 6 then exit for end if

    next

end if
%>

надеюсь, что некоторые могут помочь мне:)

Ответы [ 2 ]

1 голос
/ 04 декабря 2009

Похоже, что следующий код собирает все файлы JPEG за текущий месяц: 

if month(file.DateLastModified) = month(latestdate) then
    if right(lcase(file.Name),3) = "jpg" then%>
        ...
    <% end if
end if
0 голосов
/ 04 декабря 2009

при циклическом просмотре файлов проверяется, совпадает ли дата последнего изменения изображения с датой последнего изменения папки. это оригинальное определение кодеров «пары последних фотографий» для этого альбома. это также гарантирует, что никогда не будет больше 6.

Если вы не загружаете фотографии слишком часто, вы можете легко получить только одну фотографию каждый раз. Если вы вообще не извлекаете из него никаких фотографий, возможно, вы сделали что-то еще в этой папке, что изменило бы дату последнего изменения без добавления каких-либо фотографий.

Я бы хотел избавиться от критериев месяца и просто придерживаться ограничения на 6 фотографий, т.е. заменить 

    if month(file.DateLastModified) = month(latestdate) then
        if right(lcase(file.Name),3) = "jpg" then %>
            <a href="thumbnail.aspx?picture=<%=server.URLEncode("images/gallery/" & latestfolder & "/" & file.Name)%>&maxWidth=640&maxHeight=480" target="_blank"  style="text-decoration:none; cursor:pointer;">
                <img src="thumbnail.aspx?picture=<%=server.URLEncode("images/gallery/" & latestfolder & "/" & file.Name)%>&maxWidth=100&maxHeight=60" style="border:1px solid #ffffff; margin:5px; margin-top:14px;">
            </a>        
        <% end if 
    end if

с 

    if right(lcase(file.Name),3) = "jpg" then %>
        <a href="thumbnail.aspx?picture=<%=server.URLEncode("images/gallery/" & latestfolder & "/" & file.Name)%>&maxWidth=640&maxHeight=480" target="_blank"  style="text-decoration:none; cursor:pointer;">
            <img src="thumbnail.aspx?picture=<%=server.URLEncode("images/gallery/" & latestfolder & "/" & file.Name)%>&maxWidth=100&maxHeight=60" style="border:1px solid #ffffff; margin:5px; margin-top:14px;">
        </a>        
    <% end if
...