终于把我的博客的上传防盗链功能搞定了,下面说说关于pjblog防盗链方法
1.利用自己网站空间的里的others文件夹,将所上传的文件传到这个文件夹里,然后使用相对路径,这样的话,别人无论用什么方法都盗链不上的,修改适当的文件就可以了,呵呵,很绝的哦……
2.这是也是一种很好的防盗链方法,是利用cookie防盗链
能有效的防止别人盗链自己站点的资源以及迅雷等下载软件的下载,有效的隐藏了资源地址,而且全面兼容UBB和FCK
自动安装版:
下载地址:
http://www.shotan.com/article.asp?id=32
将压缩包中的文件上传到空间的根目录中,然后浏览http://你的网址/Shotan_Update.asp
下面是这种方法的手动修改方法:
总共要修改2个文件:header.asp,attachment.asp
新增一个文件download.asp
在数据库中新增一个表:blog_attachment(id,attachment_id,attachment_url)
1.header.asp
找到
复制内容到剪贴板
代码:
Dim BlogTitle替换成
复制内容到剪贴板
代码:
response.Cookies("shotan")= "pjblog" //设置cookie
Dim BlogTitle注意:设置cookie时候,可以将这个值blog改为其他的值,或者你可以用一个随机函数给他们赋值,不过一定要和download.asp中的第一行中的一起修改,保证两值相同
2.attachment.asp
找到
复制内容到剪贴板
代码:
response.write "<script>addUploadItem('"&F_Type&"','attachments/"&D_Name&"/"&F_Name&"',"&Request.QueryString("MSave")&")</script>"替换成
复制内容到剪贴板
代码:
'=======防盗链程序(shotan.com)============
function randomNum(numLength)
dim strSeed1,seedLength1,pos1,str1,i1
strSeed1 = "123456789"
seedLength1=len(strSeed1)
str1=""
Randomize
for i1=1 to numLength
str1=str1+mid(strSeed1,int(seedLength1*rnd)+1,1)
next
randomNum=str1
end function
dim filePath,fileID
filePath = "attachments/"&D_Name&"/"&F_Name
fileID = ""
fileID = fileID&randomNum(6)&Month(now)&Day(now)
sql="insert into blog_attachment(attachment_id,attachment_url) values('"&fileID&"','"&filePath&"')"
Conn.execute(sql)
response.write "<script>addUploadItem('"&F_Type&"','download.asp?id="&fileID&"',"&Request.QueryString("MSave")&")</script>"
'=======防盗链程序(shotan.com)============3.将下载的文件(download.asp)上传到网站的根目录下
4.在数据库中新增blog_attachment表,里面有3个字段id,attachment_id,attachment_url
OK,搞定了
看看效果吧
演示地址:
http://www.shotan.com/article.asp?id=32
文件下载地址:
http://www.shotan.com/article.asp?id=32
以上有什么不妥之处,提出来大家一起来讨论讨论,将这个功能改进的更加强大一些
困了,睡觉了
[
本帖最后由 shotan 于 2007-4-1 02:47 编辑 ]