ciao a tutti spero ke qualcuno mi aiuti a costruire quanti record per pagina voglio visualizzare in "questa pagina" aiuto
Const ImageFilePath = "/up/todb/images/large"
Const DeleteButtonLabel = "Invio"
Dim objFSO
Dim objFolder
Dim objFile
Dim strFileName
Dim strFileExtension
Dim blnShowImages
If Request.QueryString("ShowImages") = "" Then
blnShowImages = False
Else
blnShowImages = CBool(Request.QueryString("ShowImages"))
End If
If Request.Form("btnDelete") = DeleteButtonLabel Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
For Each strFileName In Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strFileName))
Next
Set objFSO = Nothing
End If
%>
<form action="<%= Request.ServerVariables("URL") %>" method="post">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
For Each objFile In objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
If strFileExtension = "gif" Or strFileExtension = "jpg" Or _
strFileExtension = "jpeg" Then
' Original image file identification option:
'If objFile.Type = "GIF Image" Or _
'objFile.Type = "JPEG Image" Then
%>
<%= objFile.Name %></a> </td>
<%
If blnShowImages Then
%>
[img]<%= ImageFilePath & [/img]" align="center" />
<%
Else
%>
<a target="_blank" href="<%= ImageFilePath & "/" & objFile.Name %>">
[img]<%= ImageFilePath & [/img]" width="68" height="40" align="right">
<%
End If
%>
<input type="checkbox" name="delete"
value="<%= objFile.Name %>" /> [img]images/del1.jpg[/img]</td>
<%
End If
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
<input type="submit" name="btnDelete"
value="<%= DeleteButtonLabel %>">
</form>
ps a ki interessa questo codice lo può prendere tranquillamente, serve a cancellare le immagini in un folder. attenzione però: per postarlo ho evitato il codice html quindi ki lo utilizza lo dovrà strutturare.
Rispondi quotando