Salve,
ho bisogno di un aiutino.
Ho recuperato su web questo script e dopo averlo modificato ho visto che funziona. Si tratta di uno script che ricupera in una tabella le immagini di una cartella su server e crea le anteprime.
Ecco il codice:
<%
Dim fs,f,name,x,pagesize,currentpage,currentpos,folder ,ScriptName,filecount
pagesize=5
currentPage = Request("page")
if currentPage = vbNullString then
currentPage=0
else
currentPage=CLng(currentPage)
end if
currentPos=0
ScriptName = Request.ServerVariables("SCRIPT_NAME")
folder = server.mappath("/gallery")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folder)
set name = f.files
filecount = name.Count
%>
<table width="80%" bgcolor="#c0c0c0" cellspacing="0" cellpadding="0" border="0" align="center">
<TR><TD>
<table width="100%" border="1" cellspacing="1" cellpadding="3" align="center" bgcolor="#FFFFFF">
<TR><TD bgcolor="#FFFFFF" align=left>
<%
For Each x in name
if right(x,3) <> "asp" Then
%>
<tr><td>
[img]/gallery/<%=x.Name%>[/img]')" border="0" alt="<%=x.Name %>" height="50">
</td>
<td align="left" widht="20"><font size="1" face="verdana">percorso immagine:</font>
<input type="text" size=30 value="<%=x.Name%>"></td>
</tr>
<%
end if
currentPos=currentPos+1
if currentPos>=currentPage*Pagesize+PageSize then
Exit for
End If
Next
%>
</td></TR>
</TABLE>
</td></tr>
</table>
<table border="0" width="80%" align="center">
<tr><td><p align="center">
<%
If Not CurrentPage = 0 Then
Response.Write "Prev | "
Else
Response.Write "Prev | "
End If
If Not filecount = CurrentPos Then
Response.Write "Next"
Else
Response.Write "Next"
End If
%>
ECCO IL PROBLEMA,
la tabella nella prima pagina elenca le prime immagini, se si seleziona la pagina successiva le prime 5 rimangono nell'elenco e vengono visualizzate le altre 5 totale 10 immagini!!! ASP... e cosi via sembra un moltiplicatore...
Come faccio ad visualizzare le successive 5 senza che vengano visualizzate le precedenti 5 ?
grazie in anticipo
Rispondi quotando