VBNet - Форум - Помогите разобраться со скриптом

Вопрос: Помогите разобраться со скриптом Добавлено: 05.07.06 11:40

Автор вопроса: alsesal

Простите совсем за ламерский вопрос пока не очень рахобрался в ASP
Вот такой вот скрипт, выводит картинки в директориях

<%

' PhotoAlbum

Dim CurFile, PopFileShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath

Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, strPicArray()
intPicsPerRow  = 3
intPicsPerPage = 9

intPage = CInt(Request.QueryString("Page"))
If intPage = 0 Then
intPage = 1
End If

CurFile = "Index.asp"
PopFile = "ShowPicture.asp"
%>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">

</script>
<script language="JavaScript">

</script>

<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
<tr>

<td align="center" width="25%">
  <form action=<%=PopFile%> method="POST">
  <font face="<%= strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strBaseFontColor %>"><b>Фотоальбомы:</b>
  <select name="go" onChange="jumppage(this);" size=1>
  <%
  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
  For each Folder in objFolder.SubFolders
   If Left(Folder.Name,1)<>"_" Then
   Response.write "<option "
   If ShowSub=Folder.Name Then
   Response.Write "selected "
   End if
   Response.Write"value='" & CurFile & "?ShowSub="
   Response.Write(Replace(Folder.Name, " ", "%20"))
   response.write "'>"
   Response.Write(Folder.Name & "</option>")
   If ShowSub <= " " Then
     ShowSub = Folder.Name
End if
   End if
  Next
  Set objFSO = Nothing
  %>
  </select></h3>
  </form>
  </td>
</tr>
</table>

<%
If ShowPic > " " then
  ShowPic = Replace(ShowPic, " ", "%20")
  Response.Write "<a href='JavaScript:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><font face=""verdana"" size=""1""><b>Назад</b></a>"
Else
%>
  <table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
  <tr>
  <%
  strPhysicalPath = Server.MapPath(".\" & ShowSub)
  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files

'Get the number of pictures in the subdirectory
intTotPics = 0
    For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
intTotPics = intTotPics + 1
End if
    Next

'Get the total number of pages in the subdirectory
If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then
intTotPages = int(intTotPics/intPicsPerPage)
Else
intTotPages = int(intTotPics/intPicsPerPage)+1
End If
Redim strPicArray(2,intTotPics)

'Store picture file names in an array
x = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
strPicArray(0,x) = objFileItem.Name
strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1)
x = x + 1
End if
Next

'Determine if there are multiple pages and if so, display page numbers.
If intTotPages > 1 Then
Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Verdana,Arial' size='1'>Страница:   "
For x = 1 to intTotPages
If x = intPage Then
Response.Write "</font><font face='Arial' size='2'>" & x & "</font><font face='Arial' size='1'>    "
Else
Response.Write "<a href='Index.asp?Page=" & x & "&ShowSub=" & ShowSub & "'>" & x & "</a>    "
End If
Next
Response.Write "</font></td>"
Response.Write "</tr><tr><td> </td></tr><tr>"
End If

For x = 0 to UBound(strPicArray,2)-1
If CInt(strPicArray(1,x)) = intPage Then
     ShowPic = Replace(strPicArray(0,x), " ", "%20")
      Response.write "<td align='center' width='25%'><a href=""Javascript:openGalleryWindow('" & PopFile & "?ShowPic=" & ShowSub & "/" & ShowPic & "')"""
  Response.write "<br>"
  Response.Write("<img src='" & ShowSub & "/" & strPicArray(0,x) & "' width=150> ")
  Response.Write("<br><font color=""" & strBaseFontColor & """><b>" & Mid(strPicArray(0,x),6,Len(strPicArray(0,x))-9) & "</b></font>")
  Response.write "</a></td>" & vbcrlf

  PictureNo = PictureNo + 1
  If PictureNo=intPicsPerRow Then
  Response.write "</tr><tr>"
  PictureNo = 0
  End if
End If
Next

    Set objFSO = Nothing
  End if
  %>
  </tr>
  </table>
<%
End if
%>
</center>
</html>

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

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Андрей ICQ: 288813356 Вопросов: 0 Ответов: 1	Профиль \| \| #1	Добавлено: 05.07.06 12:56
	For x = 0 to UBound(strPicArray,2)-1 x= -(x-9) If CInt(strPicArray(1,x)) = intPage Then ShowPic = Replace(strPicArray(0,x), " ", "%20" Response.write "<td align='center' width='25%'><a href=""Javascript:openGalleryWindow('" & PopFile & "?ShowPic=" & ShowSub & "/" & ShowPic & "')""" Response.write "<br>" Response.Write("<img src='" & ShowSub & "/" & strPicArray(0,x) & "' width=150> " Response.Write("<br><font color=""" & strBaseFontColor & """><b>" & Mid(strPicArray(0,x),6,Len(strPicArray(0,x))-9) & "</b></font>" Response.write "</a></td>" & vbcrlf PictureNo = PictureNo + 1 If PictureNo=intPicsPerRow Then Response.write "</tr><tr>" PictureNo = 0 End if End If Next Ответить

Страница: 1 |