ho appena scaricato ASP Photo Album e, provandolo, ho notato che il codice preleva automaticamente le foto dalla cartella in cui risiede la pagina. come posso fare a dirgli di prelevare le foto da un altro percorso, prendendolo dal database? cosa devo modificare?
ho fatto alcune prove ma non ho ottenuto il risultato sperato...
Codice PHP:<html>
<head>
<title>Gallery</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<style type="text/css">
.imgBorder{
padding: 0px;
padding-bottom:2px;
padding-top:2px;
border: 1px solid #666666;
}
.imgInsideBorder{border: 1px solid #666666;}
body, td {
font-family: Arial, Helvetica, sans-serif;
}
.totals{color:#666666}
</style>
<body>
<%
thumbsPerPage = 8 ' Number of thumbnails to display on the page
thumbsPerRow = 4 ' Number of thumbnails to display per row - surprised
thumbIdentifier = ".jpg" ' The common string ending for all thumbnail images.
' You should not need to change any ASP code below here. Go to line and beyond to change HTML
pgURL = Request.ServerVariables("SCRIPT_NAME") 'the name of this page eg. album.asp
pgName = Right(pgURL, len(tt) - InStrRev(tt, "/")) ' The current page's name
page = request.queryString("page") 'This is the page you are on, used for paging
if page = "" then page = 1 'If no page # exists, set to 1
img = Request.querystring("img") 'Large image to display if they clicked a thumbnail
if img = "" then 'If there is no image on URL, show the thumbnail page
' Determine which image to start / end at based upon paging and thumbsPerPage
first = ((page-1) * thumbsPerPage)
last = (page * thumbsPerPage)-1 'We do minus 1 here since we are using an array... array starts at 0 vs 1
' get the current folder location
strPathInfo = Request.ServerVariables("SCRIPT_NAME")
strPhysicalPath = Server.MapPath(strPathInfo)
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strPhysicalPath)
set objFolder = objFile.ParentFolder
set objFolderContents = objFolder.Files
' Count total number of thumbnails
totalImages = 0
For each objFileItem In objFolderContents
if inStr(LCase(objFileItem.Name),thumbIdentifier) then
totalImages = totalImages + 1
end if
next
'Limit last to totalImages so array does not go out of range.
if last > totalImages then last = totalImages
'Array starts at 0 vs. 1 so we need to offset this by 1 exception last image can't be > than total # of iamges
lastDisplay = last + 1
if lastDisplay > totalImages then lastDisplay = totalImages
' Create an array to put all the images in so that we can do paging
dim arrayOfThumbs()
ReDim arrayOfThumbs(totalImages)
i = 0
' Populate the array with the images
For each objFileItem In objFolderContents
' only display the thumbnails - the images that have the ending defined in the thumbIdentifier variable at top of page
if inStr(LCase(objFileItem.Name),thumbIdentifier) then
'Isolate the image name so that we can create a link to the large version. This strips off the ending e.g. -01.jpg
image = split(objFileItem.Name, thumbIdentifier)
' Populate array
arrayOfThumbs(i)= "<td nowrap valign='top' align='center'><div class='imgBorder'>[url='" & image(0) & ".jpg'][img]mini/" & image(0) & ".jpg[/img][/url]</div></td>" & vbCrLf
i = i + 1
end if
next
' Create page links if more than 1 page is needed
dim paging
if (thumbsPerPage < totalImages) then
' Assing all the page numbers to the paging string because we are going to use on top and bottom of page
paging = "Pagina: [b]"
k = 1
Do
paging = paging + "[url='" & pgName & "?page=" & k & "']" & k & "[/url]" & vbCrLf
k = k + 1
loop until (k * thumbsPerPage) >= totalImages
paging = paging + "[url='" & pgName & "?page=" & k & "']" & k & "[/url][/b]" 'One more becase the logic cuts the last one off
end if
%>
<h1 align="center" style="font-family:Tahoma">Gallery</h1>
<table align="center" cellspacing="5">
<tr>
<%
' Loop through the array and display images
for j = first to last
response.write(arrayOfThumbs(j))
if (j+1) Mod thumbsPerRow = 0 then response.Write(vbCrLf & "</tr><tr>" & vbCrLf) 'Create a new row based on thumbsPer row
next
%>
</tr>
</table>
<p align="center">
<%=paging%>
</p>
<% end if %>
</body>
</html>
Rispondi quotando
