附件管理 v4.0 （不断更新）

        FileInfo(9) = FSO.getExtensionName(Server.MapPath(FileName)) '获取文件类型
        FileInfo(10) = File.DateLastModified'获取文件更新时间

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

F_File.SaveAs Server.MapPath("attachments/"&D_Name&"/"&F_Name)

          Dim Rs,DownloadID,S_FilePath
  Set Rs=Conn.Execute("Select top 1 id From blog_attachment order by id desc")
    If not (rs.eof and rs.bof) Then DownloadID = Rs(0)+1 Else DownloadID = "1"
  Rs.Close
  Set Rs=nothing
           S_FilePath = "attachments/"&D_Name&"/"&F_Name
            Conn.execute("insert into blog_attachment(path) values('"&S_FilePath&"')")

<script>addUploadItem('"&F_Type&"','attachments/"&D_Name&"/"&F_Name&"',"&Request.QueryString("MSave")&")</script>

<script>addUploadItem('"&F_Type&"','download.asp?id="&DownloadID&"',"&Request.QueryString("MSave")&")</script>

'-----------特殊标签----------------   到   'CC Video 支持 之间全部替换

            re.Pattern = "\[down=(download\.asp\?id=)([0-9]*)\](.[^\[]*)\[\/down]"
            Set strMatchs = re.Execute(strContent)
            For Each strMatch in strMatchs
                tmpStr1 = checkURL(strMatch.SubMatches(0))
                tmpStr2=strMatch.SubMatches(1)
                tmpStr3=strMatch.SubMatches(2)
                dim rndnum1:rndnum1=randomStr(10)
                strContent = Replace(strContent, strMatch.Value, "<span id=""down_"&rndnum1&"""></span><script language=""javascript"" type=""text/javascript"">check('Action.asp?action=down&id="&tmpStr2&"&downurl="&server.URLEncode(tmpStr1&tmpStr2)&"&main="&server.URLEncode(tmpStr3)&"','down_"&rndnum1&"','down_"&rndnum1&"');</script>", 1, -1, 0)
            Next

            re.Pattern = "\[down\](download\.asp\?id=)([0-9]*)\[\/down\]"
            Set strMatchs = re.Execute(strContent)
            For Each strMatch in strMatchs
                tmpStr1 = checkURL(strMatch.SubMatches(0))
                tmpStr2 = strMatch.SubMatches(1)
                dim rndnum2:rndnum2=randomStr(10)
                strContent = Replace(strContent, strMatch.Value, "<span id=""down_"&rndnum2&"""></span><script language=""javascript"" type=""text/javascript"">check('Action.asp?action=down&id="&tmpStr2&"&downurl="&server.URLEncode(tmpStr1&tmpStr2)&"&main="&server.URLEncode("点击下载此文件")&"','down_"&rndnum2&"','down_"&rndnum2&"');</script>", 1, -1, 0)
            Next

            re.Pattern = "\[mDown=(download\.asp\?id=)([0-9]*)\](.[^\[]*)\[\/mDown]"
            Set strMatchs = re.Execute(strContent)
            For Each strMatch in strMatchs
                tmpStr1 = checkURL(strMatch.SubMatches(0))
                tmpStr2=strMatch.SubMatches(1)
                tmpStr3=strMatch.SubMatches(2)
                dim rndnum3:rndnum3=randomStr(10)
                strContent = Replace(strContent, strMatch.Value, "<span id=""mdown_"&rndnum3&"""></span><script language=""javascript"" type=""text/javascript"">check('Action.asp?action=mdown&id="&tmpStr2&"&downurl="&server.URLEncode(tmpStr1&tmpStr2)&"&main="&server.URLEncode(tmpStr3)&"','mdown_"&rndnum3&"','mdown_"&rndnum3&"');</script>", 1, -1, 0)
            Next

            re.Pattern = "\[mDown\](download\.asp\?id=)([0-9]*)\[\/mDown]"
            Set strMatchs = re.Execute(strContent)
            For Each strMatch in strMatchs
                tmpStr1 = checkURL(strMatch.SubMatches(0))
                tmpStr2 = strMatch.SubMatches(1)
                dim rndnum4:rndnum4=randomStr(10)
                strContent = Replace(strContent, strMatch.Value, "<span id=""mdown_"&rndnum4&"""></span><script language=""javascript"" type=""text/javascript"">check('Action.asp?action=mdown&id="&tmpStr2&"&downurl="&server.URLEncode(tmpStr1&tmpStr2)&"&main="&server.URLEncode("点击下载此文件")&"','mdown_"&rndnum4&"','mdown_"&rndnum4&"');</script>", 1, -1, 0)
            Next

<script type="text/javascript" src="common/ajax.js"></script>