解决 PJBlog 不能上传文件 提示文件格式非法的问题

'-------- Start --------
'Set FileUP = New Upload_File
        Set FileUP = server.createobject("Persits.Upload")
        FileUP.CodePage = 65001    '代码页为UTF-8
        FileUP.OverwriteFiles = False    '不复盖已有文件，通常不会有同名文件的，仅预防
        FileUP.RegKey = "41133-90544-38797"    'ASPUpload 的注册码:P
        'FileUP.GetDate( -1)
        Dim F_File, F_Type, sy, FilePath, AntiDown
        FileUP.Save(Server.MapPath("attachments/"&D_Name))    '保存文件先
        
        Set F_File = FileUP.Files("File")
        sy = FileUp.Form("sy")    '水印类型
        AntiDown = FileUp.Form("AntiDown")    '防盗链
'blog_UpLoadSet = "0|0|0|PJBlog|PJBlog|0|1|10|10|FFFFFF|0|10|10|0.5|images/wind.png|120|35|www.pjhome.net|FFFFFF|18|宋体|1|0|000000|0|0"
'防盗链|文件命名|文件命名2|前缀|后缀|水印位置|计数边距|离左边距|离顶边距|边框颜色|边框宽度|水平边距|垂直边距|透明度|图片水印|图宽|图高|文字|字体颜色|字体大小|字体类型|加粗|斜体|阴影颜色|阴影向右偏移量|阴影向下偏移量
'   0      1        2      3    4     5       6        7      8        9      10         11      12     13      14     15  16  17     18      19      20      21  22     23       24            25
                Select Case Split(blog_UpLoadSet,"|")(1)
                    Case 0        '上传日期时间
            F_Name = Year(now)&lenNum(Month(now))&lenNum(Day(now))&lenNum(Hour(now))& lenNum(Minute(now))&lenNum(Second(now))
                    Case 1        '文件原名
            F_Name = getF_Name(F_File.FileName)
                    Case 2        '上传日期时间_文件原名
            F_Name = Year(now)&lenNum(Month(now))&lenNum(Day(now))&lenNum(Hour(now))& lenNum(Minute(now))&lenNum(Second(now))&"_"&getF_Name(F_File.FileName)
                    Case 3        '上传日期时间带-
            F_Name = Year(now)&"-"&lenNum(Month(now))&"-"&lenNum(Day(now))&"-"&lenNum(Hour(now))&"-"&lenNum(Minute(now))&"-"&lenNum(Second(Now))&"-"&randomStr(1)
                    Case Else    '原系统默认
            F_Name = randomStr(1)&Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)
                End Select

        Select Case Split(blog_UpLoadSet,"|")(2)
            Case 0    '类型
               F_Name = F_Name
            Case 1    '前缀_类型
               F_Name = Split(blog_UpLoadSet,"|")(3)&"_"&F_Name
            Case 2    '类型_后缀
               F_Name = F_Name&"_"&Split(blog_UpLoadSet,"|")(4)
            Case 3    '前缀_类型_后缀
               F_Name = Split(blog_UpLoadSet,"|")(3)&"_"&F_Name&"_"& Split(blog_UpLoadSet,"|")(4)
        End Select

        F_Name = F_Name&""&F_File.Ext
        F_Type = FixName(F_File.Ext)
        If F_File.Size > Int(UP_FileSize) Then
            F_File.Delete    '删除失败文件 2007-05-07
            Response.Write("")
        ElseIf IsvalidFile(UCase(F_Type)) = False Then
            F_File.Delete    '删除失败文件 2007-05-07
            Response.Write("")
        Else
            FilePath = "attachments/"&D_Name&"/"&F_Name
            'F_File.SaveAs Server.MapPath(FilePath)
            F_File.Move Server.MapPath(FilePath)    '使用 ASPUpload 的改名方法生成 PJBolg 的文件名样式
            If UCase(F_Type) = "JPG" or UCase(F_Type) = "BMP" or UCase(F_Type) = "GIF" Then
              If sy <> "" And IsNumeric(sy) Then Call CreateView(FilePath,sy,blog_UpLoadSet)
            End If
            Conn.Execute("Insert INTO blog_Files (FilesPath) VALUES ("""&FilePath&""")")
            Dim UploadID : UploadID = Conn.Execute("Select ID FROM blog_Files order by ID desc")(0)
            If AntiDown = "1" then UploadID = UploadID&"&code="&right(md5(right(Ucase(FilePath),15)),10)
            response.Write ""
            Response.Write("")
        End If
'-------- End --------