דוגמא זו היא עוד גרסה מתוך עשרות הדוגמאות לגלריית תמונות באתר, אלא שדוגמא זו, כמו כולן, שונה מחברותיה. דוגמא זו יודעת לקבל בתור קבוע את הנתיב הוירטואלי היחסי לקובץ הקוד והיא מציגה את כל התמונות אשר נמצאות באותה תקייה.
הדוגמא משתמשת ב-FSO בכדי לעבור על כל הקבצים בתקייה מסויימת.
הקובץ היחיד בדוגמא browse_pics.asp נראה כך: <![CDATA[<%@ Language=VBScript %>
<HTML>
<HEAD>
<Title>Pics Explorer</Title>
</HEAD>
<BODY>
<%
Const mypath="images/"
Response.Write server.mappath(mypath)
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(server.mappath(mypath))
Set filecollection = folder.Files
Step through the files list, keeping track of
For Each file in filecollection
if right(file.name,3)= "gif" or right(file.name,3)= "jpg" then
Response.Write "<img src=" & mypath & file.name & "><BR>"
Response.Write file.name & "<BR><BR>"
end if
Next
Clean up...
set filesystem=nothing
set folder=nothing
set filecollection=nothing
%>
</BODY>
</HTML>]]>
שימו לב בהתחלה להגדרת ערך הקבוע mypath: Const mypath="/images/"
לדוגמא זו, מצורפת דוגמא נוספת, מאוד דומה, אלא שזו בוחרת תמונה אחת באקראיות ומציגה רק אותה
הקוד בעצם מכניס את התמונות שבספרייה לתוך מערך, בוחר מספר באופן אקראי, ומציג את התמונה שבמיקום זה במערך.
הקובץ היחיד בדוגמא browse_pics_rnd.asp נראה כך: <![CDATA[<%@ Language=VBScript %>
<HTML>
<HEAD>
<Title>Pics Explorer</Title>
</HEAD>
<BODY>
<BASEFONT Face=Arial>
<CENTER>
<%
dim x(200)
The directory of all my pictures...
Const mypath="images/"
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(server.mappath(mypath))
Set filecollection = folder.Files
Step through the files list, keeping track of
the number of files....
idx=0
For Each file in filecollection
idx=idx+1
x(idx)=file.name
Next
Choose a random picture
randomize timer
whichNo=int(rnd()*idx)+1
Clean up...
set filesystem=nothing
set folder=nothing
set filecollection=nothing
Display the image!
response.write "<img src=" & mypath & "/"
response.write x(whichNO)& " alt=" & x(whichNo) & " border=5><BR>"
response.write x(whichNO) & "<BR><BR>"
%>
<FONT Size=6><A Href=javascript:location.reload()>REFRESH</A></FONT></CENTER>
</BODY>
</HTML>]]>
לחץ כאן בכדי לראות את הדוגמא בפעולה
(בצורת גלרייה)
לחץ כאן בכדי לראות את הדוגמא בפעולה
(רגיל)
לחץ כאן בכדי לראות את הדוגמא בפעולה
(תמונה אקראית)
| הערה: חובה למקם את התקייה עם התמונות באופן יחסי לקוד ולתת את הנתיב הוירטואלי המדויים בערכו של הקבוע |
|
.png)
