图片上传的问题

<script language="VB" runat="server">
            Sub UploadFile(sender As Object, e As EventArgs)
            If FileUp.PostedFile.ContentLength = 0 Then
            FileInfo.Visible = False
            Exit Sub
            Else
            FileInfo.Visible = True
            FDisplay1.Visible = True
            End If
            FSize.Text ="上传文件大小"+
CStr(FileUp.PostedFile.ContentLength/1024)+"KB"
            FName.Text = "已上传文件名:"+FileUp.PostedFile.FileName+"<br>"+FName.Text
            '写入数据库
            on error resume next
            dim myconn as sqlconnection
            dim mycomm as sqlcommand
            dim sql as string
            dim id as integer
            Dim image,anewimage As System.Drawing.Image
            dim width,height,newwidth,newheight as integer
            Dim callb As System.Drawing.Image.GetThumbnailImageAbort
            myConn=New sqlconnection(ConfigurationSettings.AppSettings("数据库"))
            myconn.open()
            sql="insert into picture (姓名,班级,介绍,属性) values
            ('"&request.cookies("dgxyl").values("dgxylname")&"','"&request.cookies("dgxyl").values("dgxylbj")&"','"&trim(request("TextBox1"))&"','"&request("r1")&"')"
            Mycomm=New sqlcommand(sql,myconn)
            mycomm.executenonquery()
            myconn.close()
            Dim myCommand As New SqlCommand("select top 1 id from picture order
            by id desc", myConn)
            myCommand.Connection.Open()
            Dim myReader As SqlDataReader=mycommand.executereader()
            if myReader.Read() then
            id=myReader("id")
            end if
            myconn.close()
            '保存图片
            FileUp.PostedFile.SaveAs(
            Server.MapPath("\classpic\")&cstr(id)&".jpg" )
            '生成缩略图
            image=System.Drawing.Image.FromFile(Server.MapPath("/classpic/"+cstr(id)+".jpg"))
            width=image.Width
            height=image.height
            if width>height then
            newwidth=250
            newheight=image.height/image.Width*newwidth
            else
            newheight=250
            newwidth=image.Width/image.height*newheight
            end if
            response.write("id="+cstr(id)+"width="+cstr(Width)+";height="+cstr(height)+"
             ")
            response.write("newwidth="+cstr(newwidth)+";newheight="+cstr(newheight)+"<br>")
            aNewImage=image.GetThumbnailImage(newwidth,newheight,callb,new
            System.IntPtr())
            aNewImage.Save(Server.MapPath("/smallpic/"+cstr(id)+".jpg"))
            image.Dispose()            Dim FileSplit() As String = Split( FileUp.PostedFile.FileName, "\" )
            Dim FileName As String = FileSplit(FileSplit.Length-1)
            Dim Exts() As String = Split( FileName, "." )
            Dim Ext As String = LCase(Exts(Exts.Length-1))
            FDisplay.Text = "<A Target='_blank'
            HREF='/classpic/"&cstr(id)&".jpg"& "'>查看上传文件</A>"
            FDisplay1.text="<a
            href='/picture/default.asp?bj="&cstr(request.cookies("dgxyl").values("dgxylbj"))&"'>返回</a>"
            End Sub
            </script>
            <SCRIPT language=JavaScript>
            
            </SCRIPT>
            <Html>
            <Body BgColor=White>
            <H3 align="center">请正确填写下面各项</h3>
            <Hr></H3>
            <Div id="FileInfo" Visible="False" runat="server">
             <Asp:Label id="FSize" runat="server"/><br>
             <Asp:Label id="FName" runat="server"/><br>
            <Asp:Label id="FDisplay" runat="server"/>
             <Asp:Label id="FDisplay1" runat="server"/>
            </Div>
            <Form Enctype="multipart/form-data" onsubmit="return
            guestbook_Validator(this)" runat="server">
            上传文件
            <Input Type="File" id="FileUp" runat="server" size="20"><br>
            图片属性：<input type="radio"
            value="<%=request.cookies("dgxyl").values("dgxylbj")%>" name="R1"
            checked>本班<input type="radio" value="全校"
            name="R1">全校(本班则只在本班显示，全校则在全校显示)<P>
            图片说明：<br>
            <asp:TextBox id="TextBox1" runat="server" Width="233px"
            Height="141px">
            </asp:TextBox>
                    <asp:RequiredFieldValidator id="RequiredFieldValidator1"
            runat="server" ControlToValidate="TextBox1" ErrorMessage="请输入图片说明">
            </asp:RequiredFieldValidator><br>
            <Asp:button id="Upload" OnClick="UploadFile" Text="上传图片"
            runat="server"/>
            </form>
            <Hr>
            <p>注意：</p>
            <ol>
              <li><b>严禁上传污染环境的照片，否则账号将被删除！</b></li>
              <li><font
            color="#808000"><b>请详细填写照片说明，图片说明不详细将会被视为乱传图片，将会被删除！</b></font></li>
            </ol>
            <p>　</p>
            </Body>
            </Html>
要不要带缩略图的？？不要的话，直接转存呀！要不用upload.dll这个控件，我记得www.sorke.com有的下载。带缩略图的在论坛里搜一下吧，太多了。
我用的就是带缩略图的上传方法，我发现用了
Image oImg;
oImg.GetThumbnailImage()
oImg.save()
用这个方法上传图片，如果图片本身是透明的，就会出现黑色背景但是：uploadFile.PostedFile.SaveAs
用这个方法上传就按照原图片上传，一模一样

调试易

图片上传的问题

解决方案 »