asp.net上傳圖片並同時生成縮圖 (轉)

<BR>Sub File(sender As , e As EventArgs)</P> <P>If FileUp.PostedFile.ContentLength = 0 Then<BR>FileInfo.Visible = False<BR>Exit Sub<BR>Else<BR>FileInfo.Visible = True<BR>FDisplay1.Visible = True<BR>End If</P> <P>FSize.Text ="大小"+ CStr(FileUp.PostedFile.ContentLength/1024)+"KB"<BR>FName.Text = "已上傳檔名:"+FileUp.PostedFile.FileName+"<br>"+FName.Text</P> <P>'寫入<BR>on error resume next<BR>dim myconn as connection<BR>dim mycomm as sqlcommand<BR>dim sql as string<BR>dim id as integer<BR>Dim image,anewimage As System.Drawing.Image<BR>dim width,height,newwidth,newheight as integer<BR>Dim callb As System.Drawing.Image.GetThumbnailImageAbort<BR>myConn=New sqlconnection(ConfigurationSettings.AppSettings("資料庫"))<BR>myconn.open()<BR>sql="insert into picture (姓名,班級,介紹,屬性) values ('"&request.("dgxyl").values("dgxylname")&"','"&request.cookies("dgxyl").values("dgxylbj")&"','"&trim(request("TextBox1"))&"','"&request("r1")&"')"<BR>Mycomm=New sqlcommand(sql,myconn)<BR>mycomm.executenonquery()<BR>myconn.close()</P> <P>Dim myCommand As New SqlCommand(" top 1 id from picture order by id desc", myConn)<BR>myCommand.Connection.Open()<BR>Dim myReader As SqlDataReader=mycommand.executereader()<BR>if myReader.Read() then<BR>id=myReader("id")<BR>end if<BR>myconn.close()<BR>'儲存圖片<BR>FileUp.PostedFile.SaveAs( Server.MapPath("classpic")&cstr(id)&".jpg" )<BR>'生成縮圖<BR>image=System.Drawing.Image.FromFile(Server.MapPath("/classpic/"+cstr(id)+".jpg"))<BR>width=image.Width<BR>height=image.height<BR>if width>height then<BR>newwidth=250<BR>newheight=image.height/image.Width*newwidth<BR>else<BR>newheight=250<BR>newwidth=image.Width/image.height*newheight<BR>end if<BR>response.write("id="+cstr(id)+"width="+cstr(Width)+";height="+cstr(height)+"&nbsp; ")<BR>response.write("newwidth="+cstr(newwidth)+";newheight="+cstr(newheight)+"<br>")</P> <P>aNewImage=image.GetThumbnailImage(newwidth,newheight,callb,new System.IntPtr())<BR>aNewImage.Save(Server.MapPath("/smallpic/"+cstr(id)+".jpg"))<BR>image.Dispose()</P> <P><BR>Dim FileSplit() As String = Split( FileUp.PostedFile.FileName, "" )<BR>Dim FileName As String = FileSplit(FileSplit.Length-1)<BR>Dim Exts() As String = Split( FileName, "." )<BR>Dim Ext As String = LCase(Exts(Exts.Length-1))</P> <P>FDisplay.Text = "<A Target='_blank' HREF='/classpic/"&cstr(id)&".jpg"& "'>檢視上傳檔案</A>"<BR>FDisplay1.text="<a href='/picture/default.</A>?bj="&cstr(request.cookies("dgxyl").values("dgxylbj"))&"'>返回</a>"<BR>End Sub<BR>