> 
Tumbnails - << VERSIONE C# >>
Creare dei Tumbnails (cliccabili per l'ingrandimento)
<%@ Import Namespace="System.IO" %>
<HTML>
<script language="javascript">
function cambiaImg(img)
{
document.getElementById("Image1").src = img
}
</script>
<script language="vb" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
Const IMAGE_DIRECTORY as String = "images/"
Dim pics as ArrayList = new ArrayList()
Dim s as String, html as String
For Each s in Directory.GetFiles(Server.MapPath(IMAGE_DIRECTORY), "*.*")
html = "<img onclick=""cambiaImg('" & _
IMAGE_DIRECTORY & Path.GetFileName(s) & _
"')"" width=""100"" src=""" & IMAGE_DIRECTORY & _
Path.GetFileName(s) & """>"
pics.Add(html)
Next
dlPictures.DataSource = pics
dlPictures.DataBind()
End Sub
</script>
<body>
<TABLE id="Table1" height="132" cellSpacing="1" cellPadding="1" width="796" border="1">
<TR>
<TD width="130" vAlign="top">
<asp:DataList runat="server" id="dlPictures" RepeatColumns="1" ItemStyle-HorizontalAlign="Center">
<ItemStyle HorizontalAlign="Center"></ItemStyle>
<ItemTemplate>
<%# Container.DataItem %>
</ItemTemplate>
</asp:DataList></TD>
<TD vAlign="top">
<IMG id="Image1" src="trasparente.gif"></TD>
</TR>
</TABLE>
</body>
</HTML>
