用asp.net实现将上传的图片存入数据库！

Public Class changimageClass changimage


Inherits System.Web.UI.Page


Protected WithEvents cmddemo As System.Web.UI.WebControls.Button


Protected WithEvents cmdupload As System.Web.UI.WebControls.Button


Protected WithEvents SqlConn As System.Data.SqlClient.SqlConnection


Protected WithEvents SqlComm As System.Data.SqlClient.SqlCommand


Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile






Web Form Designer Generated Code#Region " Web Form Designer Generated Code "




'This call is required by the Web Form Designer.




<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()


Me.SqlConn = New System.Data.SqlClient.SqlConnection()


Me.SqlComm = New System.Data.SqlClient.SqlCommand()




End Sub






Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init


Form Designer


InitializeComponent()


End Sub




#End Region






Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub






Private Sub cmdupload_Click()Sub cmdupload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdupload.Click


Dim image As System.Drawing.Image, newimage As System.Drawing.Image


Dim callb As System.Drawing.Image.GetThumbnailImageAbort


Dim f As System.IO.File, fs As System.IO.FileStream


Dim temppath As String


Dim bigdata As Byte(), smalldata As Byte() '大图片数据、小图片数据


Dim pic As System.Data.SqlClient.SqlParameter, picsmall As System.Data.SqlClient.SqlParameter


'检察上传文件是否合标准,check函数是我根据网站需要写的了


If check(File1.PostedFile.FileName) <> "ok" Then


Response.Write(check(File1.PostedFile.FileName))


Exit Sub


End If


'设置临时路径，为了防止多用户访问时的冲突，设了一个application对象


If Application("image") = "" Then


Application("image") = 0


End If


Application.Lock()


temppath = Server.MapPath(CStr(Application("image"))) '临时路径


Application("image") = Application("image") + 1


Application.UnLock()


'读取图片的数据


ReDim bigdata((Me.File1.PostedFile.InputStream.Length)


Me.File1.PostedFile.InputStream.Read(bigdata, 0, UBound(bigdata)) '将原图片数据读到bigdata中


'改变图片的大小


image = System.Drawing.Image.FromStream(Me.File1.PostedFile.InputStream)


'newimage里面的size也可另外设置，我只用了80*60和60*80两种


If image.Width > image.Height Then


newimage = image.GetThumbnailImage(80, 60, callb, New System.IntPtr(0))


Else


newimage = image.GetThumbnailImage(60, 80, callb, New System.IntPtr(0))


End If


image.Dispose()


'将新图片及图片变小后存到临时路径中


newimage.Save(temppath, System.Drawing.Imaging.ImageFormat.Jpeg)


newimage.Dispose()


'读取临时文件数据到smalldata中


fs = New System.IO.FileStream(temppath, IO.FileMode.Open, IO.FileAccess.Read)


ReDim smalldata(fs.Length)


fs.Read(smalldata, 0, UBound(smalldata))


fs.Close()


'上述获得小图片的方法我原本想用system.io.memorystream的，可是行不通：代码如下：


'dim m as system.io.memorystream


'm=new system.io.memorystream()


'newimage.save(m,System.Drawing.Imaging.ImageFormat.Jpeg)


'redim smalldata(m.length)


'm.read(smalldata,0,m.length)


'可是上述方法读出来的smalldata全是空的，不知道原因，请指教


'删除临时文件


If f.Exists(temppath) Then


f.Delete(temppath)


End If


'将数据加入数据库中


'由于数据库中有image字段，我用sql插不进去，就用一个存储过程


'请教各位大虾用sql语句插入有image字段的表该怎么写


'用insert into talbe(pic,picsmall) values("&bigdata&","&smalldata&")这样不行，用'"&bigdata&"'也不行呀！


SqlConn = New System.Data.SqlClient.SqlConnection(connstr) '可自己设置connstr连接数据库服务器


SqlComm = New System.Data.SqlClient.SqlCommand()


SqlComm.CommandType = CommandType.StoredProcedure


SqlComm.CommandText = "dbo.image"


pic = New System.Data.SqlClient.SqlParameter("@pic", SqlDbType.Image)


pic.Value = bigdata


picsmall = New System.Data.SqlClient.SqlParameter("@picsmall", SqlDbType.Image)


picsmall.Value = smalldata


SqlComm.Parameters.Add(pic)


SqlComm.Parameters.Add(picsmall)


SqlComm.Connection = SqlConn


SqlComm.Connection.Open()


SqlComm.ExecuteNonQuery()


SqlComm.Connection.Close()


SqlComm.Dispose()


SqlConn.Dispose()


End Sub


End Class