页面部署两个file控件，上传图像的可以，上传rar文件没有反映～后台代码基本一致？原因是什么？

在DLL方法
 '文件上传
        Public Function fileup()
            '//定义初始设置
            Dim filesavepath As String = "upload"             '文件保存目录
            Dim newname As String                          '根据日期生成新文件名
            newname = DateTime.Now.Year.ToString() & DateTime.Now.Month.ToString() & DateTime.Now.Day.ToString() & DateTime.Now.Minute.ToString() & DateTime.Now.Second.ToString()
            Dim fileextension As String                    '文件类型
            Dim filetype As String = ".rar,.zip,.doc"       '文件上传类型定义
            Dim maxfile As Integer = 1024 * 3000        '图像上传大小3000K
            Dim msg As String
            Dim files As HttpFileCollection = System.Web.HttpContext.Current.Request.Files
            Dim fileoldname As String
            Dim ifile As Integer
            Dim upfile As HttpPostedFile
            upfile = files(ifile)
            fileoldname = System.IO.Path.GetFileName(upfile.FileName)
            '文件开始上传
            If fileoldname <> "" Then
                Try
                    '文件类型检查
                    fileextension = System.IO.Path.GetExtension(upfile.FileName).ToLower()
                    If (filetype.IndexOf(fileextension) = -1) Then
                        msg = -1
                    Else
                        '文件大小检查
                        If (upfile.ContentLength > maxfile) Then
                            msg = 0
                        Else
                            '保存文件
                            upfile.SaveAs(Server.MapPath(filesavepath & "/" & newname & fileextension))
                            Session("upfile") = newname
                            msg = 1
                        End If
                    End If
                Catch
                    msg = 2
                End Try
            End If
            Return msg
        End Function
前台调用的时候
  Sub fileup(ByVal sender As System.Object, ByVal e As EventArgs)
        If upfile.PostedFile.ContentLength > 0 Then
            Select Case db.fileup
                Case 1
                    upfile_res.Text = "上传成功"
                    file.Visible = False
                Case -1
                    upfile_res.Text = "请检查文件类型是否允许上传"
                Case 0
                    upfile_res.Text = "文件大小超过限制！"
                Case 2
                    upfile_res.Text = "上传出现异常！请重新尝试！"
            End Select
        End If
    End Sub
出现的情况的如果我先传图像，然后传附件就可以正常，但是如果我只传附件就老提示我文件大小超过限制，但是我查询过返回的msg值，居然是空的，那是为什么呢？很着急，请大家多帮助了