כתבתי פרוצדורה ב VBScript ואני חייב להפוך אותה ל JavaScript עכשיו הבעיה שאני לא ממש יודע JavaScript אשמח אם תוכלו לעזור לי בבקשה זה דחוף.
הפרוצדורה שכתבתי ב VBScript
קוד:
<%
SUB showPhotos
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyFileObject.GetFolder( Server.MapPath("\") & "\up\pic\" )
For each thing in MyFiles.Files
%>
<a href="#">
<img src="\up\pic\<%= thing.name %>" width=70 height=70>
</a>
<%
next
end sub
%>
הבעיה שלי היא שאין לי מושג איך להחליף את זה לג'אווה סקריפט במיוחד לא את הלולאה
for each
שלא מצאתי לה לולאה מקבילה בג'אווה סקריפט.
בתגובה להודעה מספר 3 שנכתבה על ידי Shuki142 שמתחילה ב "אני רוצה לעבור על תקייה..."
זה משהו נחמד שעשיתי פעם:
קוד:
<h1>Files</h1><%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.MapPath("\") & "\" & Request.queryString("dir"))
for each x in fo.files
'Print the name of all files in the test folder
Response.write(x.Name & "<br />")
next
set fo=nothing
set fs=nothing
%><h1>directories</h1><%
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.MapPath("\") & "\" & Request.queryString("dir"))
for each x in fo.SubFolders
'Print the name of all subfolders in the test folder
Response.write(x.Name & "<br />")
next
%>
צריך עוד לפתח אותו
בקיצור הוא יכול להסתכל על כל האתר
זה מזמן עשיתי אז זה קצת לא מסודר
יש אפשרות לדפדף בכל האתר ב ?dir
מקוה שאתה מבין ותוכל להמשיך את זה לבד
ובשביל להציג תמונות אתה בודק את ה3 תווים אחרונים של הקובץ...