附件管理插件3.0 DarkSky修改版

本次修改主要是为了在2.7版本下可用，另增加了一些我自己想要的功能：
1. 将部分功能的设置增加到后台，方便使用
2. 增加上传附件的命名方式控制（有问题的……）
3. 增加对FCK编辑器的支持（可惜还是有问题的……）
4. 增加对上传图片的备份功能（如果又想加水印又想保留原图的话就比较方便，否则可以无视此功能）

有问题的部分：
1. 上传附件的命名方式：
    如果选择“前缀_随机数_后缀”的话，“随机方式”就只能选“上传日期时间_文件原名”
    不知道为什么，如果选其它的话，插入数据库的附件记录会自动删除，望高手解决；
2. 对FCK编辑器的支持
    如果文章里只有一个附件的话就没问题，如果有多个的话，就只会显示最好那个的信息，是Ajax的问题，但不知道怎样才能不互相干扰，所以在后台增加了一个对FCK编辑器支持的开关，望高手解决；

修改方法：
1.header.asp
 

代码:

Dim BlogTitle

修改为

代码:

response.cookies("shotan")= "shotan"
Session("shotan")="shotan"
Dim BlogTitle

其实变量的值可以随便设，只要和download.asp文件保持一致就可以了

2.common/ubbcode.asp

找到

代码:

'-----------特殊标签----------------
                re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        tmpStr2=strMatch.SubMatches(1)
                        strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)
                Next               
               
                re.Pattern = "\[down\](.[^\[]*)\[\/down]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1&""" target=""_blank"">下载此文件</a>",1,-1,0)
                Next

                re.Pattern = "\[mDown=(.[^\]]*)\](.[^\[]*)\[\/mDown]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch i