问题描述
|
下面的代码显示特定服务器目录中每个图像的缩略图,当我单击该图像时,它会弹出一幅漂亮的全尺寸图片。它运作完美。
但是,我希望能够删除图像。我首先以为我可以在页面底部有一个按钮,每个图像旁边都有一个复选框,根据文件名为它提供一个uniqueID,但是由于它们是动态创建的,所以我不知道如何处理按钮上的Click事件随机命名的Checkbox ID。然后,我尝试在每个项目旁边添加一个按钮,然后尝试使用OnClick和OnServerClick来调用Sub,但这也不起作用。
欢迎任何/所有建议:)
Private Sub ImageList()
If Directory.Exists(Server.MapPath(\"JobImages\\\" & DBC_JOB_JobID.Text)) Then
Dim MySB As New StringBuilder
Dim dirInfo As New DirectoryInfo(Server.MapPath(\"JobImages\\\" & DBC_JOB_JobID.Text))
MySB.Append(\"<ul class=\"\"clearfix\"\">\")
MySB.AppendLine()
For Each File In dirInfo.GetFiles()
MySB.Append(\"<li><a rel=\"\"jobpic\"\" href=\"\"JobImages\\\" & DBC_JOB_JobID.Text & \"\\\" & File.Name & \"\"\"><img src=\"\"JobImages\\\" & DBC_JOB_JobID.Text & \"\\Thumbs\\\" & File.Name & \"\"\" width=\"\"150\"\" height=\"\"100\"\" /> <span class=\"\"size\"\">\" & File.Name & \" </span></a></li>\")
MySB.AppendLine()
Next
MySB.Append(\"</ul>\")
MySB.AppendLine()
lblMyPictures.Text = MySB.ToString
End If
End Sub
解决方法
好吧,Kendrick所谈论的(基本上)是使用服务器端控件来跟踪要删除的文件。您现在正在做的就是将标记转储到Label控件中,该控件在回发时不会在服务器端触发事件。但是,您可以使用服务器端控件轻松完成此操作。
基本思想是使用容器控件(例如
Panel
)并将每个子控件添加到其中。然后,将事件与标识该行的数据(例如文件名)挂钩到每一行。
标记:
<asp:Panel ID=\"pnlList\" runat=\"server\">
</asp:Panel>
代码隐藏:
Protected Sub Page_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
If Directory.Exists(Server.MapPath(\"Files\")) Then
Dim objDirInfo As New DirectoryInfo(Server.MapPath(\"Files\"))
For Each objFile As FileInfo In objDirInfo.GetFiles()
Dim objLabel As New Label
objLabel.Text = objFile.Name
Dim objLinkButton As New LinkButton
objLinkButton.Text = \"Delete\"
objLinkButton.CommandName = \"Delete\"
objLinkButton.CommandArgument = objFile.Name
AddHandler objLinkButton.Command,AddressOf DeleteFile
Dim objLiteral As New LiteralControl
objLiteral.Text = \"<br/>\"
pnlList.Controls.Add(objLabel)
pnlList.Controls.Add(objLinkButton)
pnlList.Controls.Add(objLiteral)
Next
End If
End Sub
Public Sub DeleteFile(ByVal sender As Object,ByVal e As System.Web.UI.WebControls.CommandEventArgs)
If e.CommandName = \"Delete\" Then
Dim strFileName As String = Server.MapPath(\"Files\\\" & e.CommandArgument)
If File.Exists(strFileName) Then
Dim objFile As New FileInfo(strFileName)
objFile.Delete()
End If
End If
End Sub
, 这将是一个很好的例子,说明使用数据感知可以使您的生活变得更加轻松。
就是说,如果您不想使用服务器端控件,则可以为每个复选框分配一个ID(即DeleteImage_1),然后将ID和关联的图像名称存储在页面的viewstate中。仔细检查已选中的复选框,然后返回查看状态,查看每个ID单击删除按钮时与之对应的名称。