在线等，急，上传图

Question

说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。 编译器错误信息: BC30807: 不再支持“Let”和“Set”赋值语句。源错误: 行 3：  <%
行 4：  dim upload,file,formName,formPath,iCount,fileformat
行 5：  set upload=new upload_F
行 6：   function MakedownName()
行 7：   dim fname
 

Answer 1

SET是VB或ASP中的写法这里不再支持
如果你是ｖｓ2005
那么拖一个fileupload控件命名为FU
并且上传按钮事件为如下事件就可以　了
我这个模块是上传图片并生成缩略略地Protected Sub b_up_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles b_up.Click
        If IsPostBack Then
            If FU.PostedFile.ContentLength > 204800000 Then Label1.Text = "请上传小于200K的图片" : Exit Sub
            '---------
            Dim MyFileColl As HttpFileCollection = Request.Files
            Dim MyPostedFile As HttpPostedFile = MyFileColl.Item(0)
            Dim image, anewimage As System.Drawing.Image
            Dim myp As New System.Drawing.Imaging.EncoderParameters(1)
            Dim callb As System.Drawing.Image.GetThumbnailImageAbort
            '------------
            Dim path As String = Server.MapPath("~/UploadFace/")
            Dim fileOK As Boolean = False
            If FU.HasFile Then
                Dim fileExtension As String
                fileExtension = System.IO.Path. _
                    GetExtension(FU.FileName).ToLower()
                Dim allowedExtensions As String() = _
                    {".jpg", ".jpeg", ".png", ".gif"}
                For i As Integer = 0 To allowedExtensions.Length - 1
                    If fileExtension = allowedExtensions(i) Then
                        fileOK = True
                    End If
                Next
                If Not fileOK Then Server.Transfer("Result.aspx?info=" & Server.UrlEncode("EditUserFace_您上传的文件扩展名不正确"), True)
                fileExtension = ".jpg"
                Dim fn As String = Session("userid").ToString & Val(Now.ToString).ToString & fileExtension
                If fileOK Then
                    Try
                        FU.PostedFile.SaveAs(path & "p" & fn)
                        u.id = Session("userid").ToString
                        u.uploadface = fn
                        u.setUserFace()
                        Label1.Text = "上传成功!"
                    Catch ex As Exception
                        Label1.Text = "文件无法上传:" & ex.Message.ToString
                    End Try
                Else
                    Label1.Text = "请选择正确文件路径"
                End If
                '--------生成按比例缩略图
                Dim w As Integer
                Dim h As Integer '
                Dim b As Double = u.imagewhb(path & "p" & fn)
                If b >= 0.72 Then
                    w = 180
                    h = 180 / b
                Else
                    h = 250
                    w = 250 * b
                End If
                image = System.Drawing.Image.FromFile(path & "p" & fn)
                anewimage = image.GetThumbnailImage(w, h, callb, New System.IntPtr())
                myp.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 90)
                Dim encoder, encoders() As System.Drawing.Imaging.ImageCodecInfo
                encoders = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
                For Each encoder In encoders
                    If encoder.MimeType = "image/jpeg" Then
                        anewimage.Save(path & fn, encoder, myp)
                        Exit For
                    End If
                Next
                myp.Dispose()
                myp = Nothing
                image.Dispose()
                anewimage.Dispose()
                '----------删除临时文件
                If System.IO.File.Exists(path & "p" & fn) Then
                    System.IO.File.Delete(path & "p" & fn)
                End If
            End If        End If
    End Sub

Answer 2

那一行错误了？ 你这是ASP的语句吧，不是ASP.NET的。
  
--------------------------------------------------------------
程序，犹如人生。