图片文件上传入SQL库及显示代码
2007-08-24 00:42
417 查看
图片文件上传入SQL库代码:
html页代码:
<INPUT id="file1" type="file" name="file1" runat="server">
后台代码:
Public Class BinaryFile
' 文件编号
Public FileID As Int64
' 文件标题
Public FileTitle As String
' 文件内容
Public FileContents As Byte()
' 文件类型
Public FileType As String
End Class
'------------------------------------------上传文件操作开始---------------------------------------------
Dim objFile As Common.Data.BinaryFile = New Common.Data.BinaryFile
Dim intLen As Integer
intLen = file1.PostedFile.ContentLength
If intLen > 200000 Then
Response.Write("<script language='javascript'>alert('上传的文件超出了限定的大小!');history.back();</script>")
End If
ReDim objFile.FileContents(intLen)
file1.PostedFile.InputStream.Read(objFile.FileContents, 0, intLen)
objFile.FileType = file1.PostedFile.ContentType
Dim FilePath As String = file1.Value
If intDocLen <> 0 Then
If Mid(file1.PostedFile.ContentType, 1, 5) <> "image" Then
Response.Write("<script language=javascript>alert('请上传正确的图片类型!');history.back();</script>")
Response.End()
End If
End If
Dim flag As Integer = objFile.Add(objFile.FileContents, objFile.FileType)
If flag = 1 Then
Response.Write("<script language=javascript>alert('提交成功!');</script>")
Else
Response.Write("<script>alert('提交失败!');history.back();</script>")
Response.End()
End If
'-----------------------------------------上传文件操作结束---------------------------------------------
图片文件显示代码:
html页代码:
<asp:Image id="Image2" runat="server"></asp:Image>
后台代码:
Dim objFile As Common.Data.BinaryFile = New Common.Data.BinaryFile
Dim CID As Integer = CInt(Trim(Request.QueryString("CID")))
Dim ds As DataSet = New DataSet
ds = objFile .Get(CID)
If IsDBNull(ds.Tables(0).Rows(0).Item("FileType")) = False And Left(CStr(ds.Tables(0).Rows(0).Item("FileType")), 6) = "image/" Then
Response.ContentType = Convert.ToString(ds.Tables(0).Rows(0).Item("FileType"))
Response.BinaryWrite(ds.Tables(0).Rows(0).Item("FileContents"))
Else
Me.Image.ImageUrl = "images/wu.gif"
End If
html页代码:
<INPUT id="file1" type="file" name="file1" runat="server">
后台代码:
Public Class BinaryFile
' 文件编号
Public FileID As Int64
' 文件标题
Public FileTitle As String
' 文件内容
Public FileContents As Byte()
' 文件类型
Public FileType As String
End Class
'------------------------------------------上传文件操作开始---------------------------------------------
Dim objFile As Common.Data.BinaryFile = New Common.Data.BinaryFile
Dim intLen As Integer
intLen = file1.PostedFile.ContentLength
If intLen > 200000 Then
Response.Write("<script language='javascript'>alert('上传的文件超出了限定的大小!');history.back();</script>")
End If
ReDim objFile.FileContents(intLen)
file1.PostedFile.InputStream.Read(objFile.FileContents, 0, intLen)
objFile.FileType = file1.PostedFile.ContentType
Dim FilePath As String = file1.Value
If intDocLen <> 0 Then
If Mid(file1.PostedFile.ContentType, 1, 5) <> "image" Then
Response.Write("<script language=javascript>alert('请上传正确的图片类型!');history.back();</script>")
Response.End()
End If
End If
Dim flag As Integer = objFile.Add(objFile.FileContents, objFile.FileType)
If flag = 1 Then
Response.Write("<script language=javascript>alert('提交成功!');</script>")
Else
Response.Write("<script>alert('提交失败!');history.back();</script>")
Response.End()
End If
'-----------------------------------------上传文件操作结束---------------------------------------------
图片文件显示代码:
html页代码:
<asp:Image id="Image2" runat="server"></asp:Image>
后台代码:
Dim objFile As Common.Data.BinaryFile = New Common.Data.BinaryFile
Dim CID As Integer = CInt(Trim(Request.QueryString("CID")))
Dim ds As DataSet = New DataSet
ds = objFile .Get(CID)
If IsDBNull(ds.Tables(0).Rows(0).Item("FileType")) = False And Left(CStr(ds.Tables(0).Rows(0).Item("FileType")), 6) = "image/" Then
Response.ContentType = Convert.ToString(ds.Tables(0).Rows(0).Item("FileType"))
Response.BinaryWrite(ds.Tables(0).Rows(0).Item("FileContents"))
Else
Me.Image.ImageUrl = "images/wu.gif"
End If
相关文章推荐
- 图片文件上传入SQL库及显示代码 转
- 图片文件上传入SQL库及显示代码
- ASP.NET2.0中将文件上传到Access数据库的代码、从数据库显示图片的代码=
- SpringMVC多个文件上传以及上传后立即显示图片
- html 点击选择本地文件(图片)显示和上传
- asp:upload将上传成功的图片的文件路径显示到文本框中
- 关于web项目中的图片上传、并在前端显示问题(tomcat中配置文件上传虚拟路径)
- 安卓 相机或相册图片上传至手机界面并显示 最后上传至服务器(界面xml布局代码前一个文章有)
- asp.net上传图片文件自动修改图片大小代码
- css实现上传文件,file按钮用图片显示
- Servlet+Jsp实现图片或文件的上传功能具体思路及代码
- 基于JQuery的图片上传预览插件(图片预览、过滤文件类型、限制图片大小、图片显示后回调)
- Servlet+Jsp实现图片或文件的上传功能具体思路及代码
- 服务器基于PHP CodeIgniter,Android基于Volley实现多文件/图片上传(含服务器,web版和android客户端完整代码)
- 图片上传即时显示缩略图的js代码
- JSP上传显示图片代码
- JAVA servlet无刷新上传图片文件并裁剪demo代码(Jcrop)
- Control Study->AdRotator广告控件显示自定义配置文件中广告以及与DataGrid控件结合使用显示图片(示例代码下载)
- 网络爬虫,用C#做一个网络爬虫demo,功能有保存网页、图片、js文件、等等其他的文件。有界面显示,有代码注释。
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)