北京pk10技巧规律7码倍投|北京pk10单双玩法
asp隱藏下載地址及防盜代碼
2010-07-17 13:22:02    【 】   瀏覽:
<% function downloadfile(strfile)
strfilename=strfile
response.buffer=true
response.clear
set s=server.createobject("adodb.stream")
s.open
s.type=1
on error resume next
set fso=server.createobject("scripting.filesystemobject")
if not fso.fileexists(strfilename) then
from_url=cstr(request.servervariables("http_referer"))
serv_url=cstr(request.servervariables("server_name"))
if mid(from_url,8,len(serv_url)) <> serv_url then
response.write "該文件不存在或者已經刪除."
response.end
end if
response.redirect request.servervariables("http_referer")
response.end
end if
fileext=mid(strfilename,instrrev(strfilename, ".")+1)
select case ucase(fileext)
case "asp", "asa", "aspx", "asax", "mdb", "php", "jsp", "shtml", "html", "htm", "tv", "data"
from_url=cstr(request.servervariables("http_referer"))
serv_url=cstr(request.servervariables("server_name"))
if mid(from_url,8,len(serv_url)) <> serv_url then
response.write "該文件不存在或者已經刪除."
response.end
end if
response.redirect request.servervariables("http_referer")
response.end
end select
set f=fso.getfile(strfilename)
intfilelength=f.size
s.loadfromfile(strfilename)
if err then
from_url=cstr(request.servervariables("http_referer"))
serv_url=cstr(request.servervariables("server_name"))
if mid(from_url,8,len(serv_url)) <> serv_url then
response.write "該文件數據不完整或許已損壞."
response.end
end if
response.redirect request.servervariables("http_referer")
response.end
end if
set upload=server.createobject("persits.upload")
if upload is nothing then
response.addheader "content-disposition","attachment; filename="&f.name
response.addheader "content-length",intfilelength
response.charset="utf-8"
response.contenttype="application/x-download"
response.binarywrite s.read
response.flush
s.close
set s=nothing
else
upload.sendbinary strfilename,true,"application/x-download",false
end if
end function
%>  

Tags:as p隱藏 下載地址 防盜 代碼
】【打印繁體】【關閉】 【返回頂部
上一篇ASP創建Access表或添加字段 下一篇每個asp程序員必備的知識

廣告推薦

ASP技術文章推薦閱讀

北京pk10技巧规律7码倍投 球探比分即时足球比分一 777即时比分 韦德博彩体育比分直播 江西时时彩 四川快乐12 2012天下足球直播 500万足球彩票即时比分 湖北快3 北京赛车pk10 速报棒球比分直播 雪缘园足彩比分直播足球 亿客隆彩票首页 快乐扑克 新浪体育客户端 重庆百变王牌 山西快乐10分