' 添加附件删除确认 ProtectedSub rptsortimgUp_ItemCreated()Sub rptsortimgUp_ItemCreated(ByVal sender AsObject, ByVal e As RepeaterItemEventArgs) If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then Dim myDeleteButton As ImageButton =CType(e.Item.FindControl("ibnsortimgUpDelete"), ImageButton) myDeleteButton.Attributes.Add("style", "cursor:hand") myDeleteButton.Attributes.Add("onclick", "return confirm('您确定要删除这个附件吗?')") EndIf End Sub'rptsortimgUp_ItemCreated
' 删除附件 ProtectedSub rptsortimgUp_ItemCommand()Sub rptsortimgUp_ItemCommand(ByVal sender AsObject, ByVal e As RepeaterCommandEventArgs) If e.CommandName ="Delete"Then Connect() Dim strID AsString= e.CommandArgument.ToString() FileUP.sortimgUp.Delete(conn, strID) GetsortimgUp() Disconnect() EndIf End Sub'rptsortimgUp_ItemCommand
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步