缩略图asp.net

Question

我正在尝试编写一个应用程序， 允许用户单击一个按钮以从模式弹出窗口中的文件夹中以缩略图形式查看图像 。 在我的模式弹出窗口中，我有一个数据列表。 但是从那里我不知道要去哪里。 我已经尝试过4guysfromrolla解决方案，但这不是我想要的。 如何将图像设置为缩略图？ 我已经有以下...

Dim files As String() = Directory.GetFiles(Server.MapPath("~/Folder1/Folder2/"), "*.jpg")

    For Each File As String In files
        File = File.Substring(File.LastIndexOf("/") + 1, File.Length)
        'Response.Write(File & "<br>")

        File = File & "~/Folder1/Folder2/"

        Dim image As Image = New Image()
        image.ImageUrl = File
        image.Height = 50
        image.Width = 50
        Me.Controls.Add(image)

    Next

编辑：新问题

我想在javascript onmouseover中更改图像的大小。

image.Attributes.add("onmouseover","change size here")

Panel2.controls.add(image)

在这里可以这样做吗？

Answer 1

<asp:DataList ID="dl_thumbs" runat="server">
<ItemTemplate>
    <img src="<%# Eval("imageUrl") %>" height="50" width="50" title="<%# Eval("imageTitle") %>" alt="<%# Eval("imageAlt") %>"/>
</ItemTemplate>
</asp:DataList>



private void InitData(string folder)
{

    var files = Directory.GetFiles(Server.MapPath(folder));



    var images = files.Select(i =>
                        new
                        {
                            imageUrl = folder + Path.GetFileName(i),
                            imageTitle = Path.GetFileName(i),
                            imageAlt = Path.GetFileName(i)
                        });

    dl_thumbs.DataSource = images;
    dl_thumbs.DataBind();
}

图像文件如何保存在文件夹结构中？

缩略图通常是原始文件的经过处理和优化的版本。

原始文件为500x500，则缩略图将被处理为50x50。

您应该有2个（或更多版本的图像。）

myfavImageName.jpg

myfavImageName.thumb.jpg

甚至添加另一个文件夹[Thumbs]

/Folder1/Folder2/myfavImageName.jpg

/Folder1/Folder2/thumbs/myfavImageName.jpg

您也可以使用Path来获取文件名。 它更不容易出错：

filename =  Path.GetFileName(File);

Answer 2

这就是我所做的。

Dim files As String() = Directory.GetFiles(Server.MapPath("~/folder1/folder2/"), "*.jpg")
    For Each File As String In files
        Dim substr As String = File.Substring(0, File.LastIndexOf("\"))

        File = File.Replace(substr, "")

        File = "~/Folder1/Folder2" & File
        Dim image As Image = New Image()
        image.ImageUrl = File
        image.Height = 50
        image.Width = 50
        Panel1.Controls.Add(image)
        'Panel1.FindControl("dlpictures").Controls.Add(image)
    Next