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

<%

<!--#include file="control/f_control.asp" -->

ElseIf request("action") = "Antidown" or request("action") = "Antimdown" then
dim down, showdownstr, id
response.expires=-1
response.expiresabsolute=now()-1
response.cachecontrol="no-cache"
id = request("id")
id = split(id,"&")(0)
Set down = conn.execute("select FilesPath,FilesCounts from blog_Files where id="&id)
response.clear()
If request("action") = "Antimdown" and memName = empty Then
showdownstr = getFileIcons(getFileInfo(down(0))(9))&" 该文件只允许会员下载! <a href=""login.asp"" accesskey=""L"">登录</a> | <a href=""register.asp"">注册</a>"
Else
showdownstr = getFileIcons(getFileInfo(down(0))(9))&" <a href="""&request("downurl")&""" target=""_blank"">"&trim(checkstr(request("main")))&" </a>[该附件大小 <font color=red>"&getFileInfo(down(0))(0)&"</font> ; 更新于 <font color=red>"&Datetostr(getFileInfo(down(0))(10),"Y-m-d")&"</font> ; 已被下载 <font color=red>"&down(1)&"</font> 次]"
End If
response.write showdownstr

re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"

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

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

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

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