附件管理整合版（防盗链）

ElseIf Request.Form("action") = "Attachments" Then

ElseIf Request.Form("action") = "Attachment2" Then
       Dim FilesID, FilesPath, FilesCounts, i
       If Request.form("S_Action")="DelSelect" then
            FilesID = split(Request.form("SelectFilesID"),", ")
            For i = 0 to ubound(FilesID)
                Conn.execute("Delete * from blog_Files where id="&FilesID(i))
            next
            session(CookieName&"_ShowMsg") = True
            session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&(ubound(FilesID)+1)&" 个附件被删除!"
            Response.Redirect("ConContent.asp?Fmenu=SQLFile&Smenu=Attachment")
           Else
             FilesID = split(Request.form("FilesID"),", ")
             FilesPath = split(Request.form("url"),", ")
             FilesCounts = split(Request.form("count"),", ")
             For i = 0 to ubound(FilesID)
             If Int(FilesID(i)) <> -1 then
                Conn.execute("update blog_Files set FilesPath='"&CheckStr(FilesPath(i))&"',FilesCounts='"&FilesCounts(i)&"' where id="&FilesID(i))
             End If
            Next
            session(CookieName&"_ShowMsg") = True
            session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"附件保存成功!"
            Response.Redirect("ConContent.asp?Fmenu=SQLFile&Smenu=Attachment")
        End If

cTitle.Add "SQLFile." , "数据库与附件 - 数据库管理"

cTitle.Add "SQLFile.Attachment" , "数据库与附件 - 附件信息"

Function getFileInfo(FileName)
    Dim FSO, File, FileInfo(10)
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(Server.MapPath(FileName)) Then
        Set File = FSO.GetFile(Server.MapPath(FileName))
        FileInfo(0)=File.Size
        If FileInfo(0)>1024 Then
          FileInfo(0)=Round(FileInfo(0) / 1024,2)
        If FileInfo(0) > 1024 Then
          FileInfo(0)=Round(FileInfo(0) / 1024,2)
          FileInfo(0)= FileInfo(0) & " MB"
        Else
         FileInfo(0)= FileInfo(0) & " KB"
        End If
        Else
          FileInfo(0)= FileInfo(0) & " Byte"
        End If
        FileInfo(1) = LCase(Right(FileName, 4))
        FileInfo(2) = File.DateCreated
        FileInfo(3) = File.Type
        FileInfo(4) = File.DateLastModified
        FileInfo(5) = File.Path
        FileInfo(6) = "" 'File.ShortPath 部分服务器不支持
        FileInfo(7) = File.Name
        FileInfo(8) = "" 'File.ShortName 部分服务器不支持
        FileInfo(9) = FSO.getExtensionName(Server.MapPath(FileName))
        FileInfo(10) = File.DateLastModified
    End If
    getFileInfo = FileInfo
    Set FSO = Nothing
End Function

'----------- 获取文件图标 ----------------------------

Function getFileIcons(Str)
    Dim FileIcon
If FileExist("images/file/"&Str&".gif") Then FileIcon = Str Else FileIcon = "unknow"
    getFileIcons = "<img border=""0"" src=""images/file/"&FileIcon&".gif"" style=""margin:4px 3px -3px 0px""/>"
End Function