实现添加，更新，删除和用DataList显示图片代码,Asp.Net代码库,德仔网

代码语言

代码分类

【Asp.Net】实现添加，更新，删除和用DataList显示图片

作者:dezai / 发布于2014/7/2/ 566


	为DataList写一个事件：OnItemCreated="DataListGallery_ItemCreated"
	在vb.net写这个事件：
	.
	Protected Sub DataListGallery_ItemCreated(sender As Object, e As DataListItemEventArgs)
	 '判断编辑铵钮是否是在DataList的AlternatingItem或是Item内。
	 If e.Item.ItemType = ListItemType.AlternatingItem OrElse e.Item.ItemType = ListItemType.Item Then
	 '编辑铵钮对象是否为空
	 If e.Item.FindControl("ImageButtonEdit") IsNot Nothing Then
	 '不为空的话，把对象转为ImageButton控件
	 Dim ImageButtonEdit As ImageButton = DirectCast(e.Item.FindControl("ImageButtonEdit"), ImageButton)
	 '为ImageButton写Click事件。
	 AddHandler ImageButtonEdit.Click, AddressOf ImageButtonEdit_Click
	 End If
	 End If
	 End Sub
	
	当用户click时，需要改变当前栏位背景Color，还有一个重点的地方，是要获取图片的主键，并用session保存起来。
	.
	Private Sub ImageButtonEdit_Click(sender As Object, e As ImageClickEventArgs)
	 '把sender对象转换为ImageButton控件
	 Dim imageButton As ImageButton = DirectCast(sender, ImageButton)
	 '把ImageButton控件的Parent控件转为DataListItem
	 Dim dataListItem As DataListItem = DirectCast(imageButton.Parent, DataListItem)
	 '改变栏位背景Color
	 dataListItem.BackColor = Drawing.Color.Red
	 '获取主键关保存至Session中
	 Session("SlideMarqueeGalleryId") = Me.DataListGallery.DataKeys(dataListItem.ItemIndex).ToString()
	 End Sub
	
	更新事件：
	.
	Protected Sub btnUpdate_Click(sender As Object, e As EventArgs)
	 '如果用户没有选择将要编辑的图片，提示用户选择。Session为空，即是用户没有选择图片
	 If String.IsNullOrEmpty(DirectCast(Session("SlideMarqueeGalleryId"), String)) Then
	 objInsusJsUtility.JsAlert("选择将要编辑的图片。")
	 Return
	 End If

	 '判断是否有选择图片
	 If Not Me.FileUpload2.HasFile Then
	 objInsusJsUtility.JsAlert("选择上传文件。")
	 Return
	 End If

	 '使用IO名称空间下Path静态方法GetExtension()获取图片的扩展名，也就是获取图片格式
	 Dim extension As String = System.IO.Path.GetExtension(Me.FileUpload2.PostedFile.FileName)

	 '创建文件名，包括路径
	 Dim newFileName As String = Guid.NewGuid().ToString() & extension
	 '创建文件,存储在专案中临时目录中
	 Dim file As String = Server.MapPath(InsusBase.TemporaryDirectory() & newFileName)
	 '保存文件
	 Me.FileUpload2.SaveAs(file)

	 '判断是否为图片,此方法参考：http://www.cnblogs.com/insus/archive/2012/03/08/2385054.html
	 If Not IsImage(file) Then
	 objInsusJsUtility.JsAlert("选择图片格式文件再上传。")
	 Return
	 End If

	 '把文件转为流
	 Dim stm As Stream = Me.FileUpload2.PostedFile.InputStream
	 Try
	 objSlideMarqueeGallery.Update(extension, stm, DirectCast(Session("SlideMarqueeGalleryId"), String))
	 Data_Binding()
	 objInsusJsUtility.JsAlert("图片成功上传。")

	 Catch ex As Exception
	 objInsusJsUtility.JsAlert(ex.Message)
	 End Try
	 '上传更新成功之后，要清除Session
	 Session("SlideMarqueeGalleryId") = Nothing
	 End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

dezai贡献的其它代码(1065)