E' un esempio minimale che fa uso di lightbox, che scaricherai dalla rete.
pagina aspx.
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="lettura immagini da directory_1.aspx.vb" Inherits="prove_lettura_immagini_da_directory_1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Pagina senza titolo</title>
<link rel="stylesheet" href="../js/lightbox/css/lightbox.css" type="text/css" media="screen" />
<script src="../js/lightbox/js/prototype.js" type="text/javascript"></script>
<script src="../js/lightbox/js/scriptaculous.js?load=effects" type="text/javascript"></script>
<script src="../js/lightbox/js/lightbox.js" type="text/javascript"></script>
</head>
<body>
<form id="form1" runat="server">
<div>
<h3>Lettura immagini da directory</h3>
<asp:datalist id="DataList1" runat="server" RepeatColumns="3" >
<ItemTemplate>
<a href='<%#Eval("FullName") %>' rel="lightbox[roadtrip]" title="altre informazioni">
<img src='<%#Eval("FullName") %>' width="150" alt='<%#Eval("name") %>' title='<%#Eval("name") %>' border="0" />
</a>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Center" BackColor="#C0FFFF"></HeaderStyle>
</asp:datalist>
</div>
</form>
</body>
</html>
pagina di codice
Option Strict On
Imports l = libreria.ModuloWeb
Partial Class prove_lettura_immagini_da_directory_1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
BindData()
End If
End Sub
Protected Sub BindData()
'tutti i file di C:\dati\ProveNikon\images
'con estensione jpg
'con dimensione < 40000 byte
'ordinati per nome
Dim di As New DirectoryInfo("C:\dati\ProveNikon\images")
Dim result = From fi In di.GetFiles("*.jpg") _
Where fi.Length < 40000 _
Order By fi.Name _
Select New With {.Name = fi.Name, .FullName = "/ProveNikon/images/" & fi.Name}
Me.DataList1.DataSource = result
Me.DataList1.DataBind()
End Sub
End Class
come vedi, ho filtrato result, solo per fare vedere le potenzialità. Se non serve, basta togliere la clausola where o, meglio, sostituire (Where fi.Length < 40000) con (Where 1=1)
Modificato da pietro09 il 28 settembre 2008 08.08 -
