示例**:
response.write "非法鏈結!" '防止盜鏈
response.end
end if
if request.cookies("logined")="" then
response.redirect "/login.asp" '需要登陸!
end if
function getfilename(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
getfilename = longname
end function
dim stream
dim contents
dim filename
dim truefilename
dim fileext
const adtypebinary = 1
filename = request.querystring("filename")
if filename = "" then
response.write "無效檔名!"
response.end
end if
fileext = mid(filename, instrrev(filename, ".") + 1)
select case ucase(fileext)
case "asp", "asa", "aspx", "asax", "mdb"
response.write "非法操作!"
if lcase(right(filename,3))="pdf" then '設定pdf型別檔案目錄
truefilename = "/the_pdf_file_s/"&filename
end if
if lcase(right(filename,3))="doc" then '設定doc型別檔案目錄
truefilename = "/all_images_/"&filename '設定影象檔案目錄
end if
while not stream.eos
response.binarywrite stream.read(1024 * 64)
wend
stream.close
set stream = nothing
response.flush
response.end
%>
用Asp隱藏檔案路徑,實現防盜煉
用asp隱藏檔案路徑,實現防盜煉 示例 response.write 非法鏈結!防止盜鏈 response.end end if if request.cookies logined then response.redirect login.asp 需要登陸!end if function getf...
用Asp隱藏檔案路徑實現防盜煉
示例 response.write 非法鏈結!防止盜鏈 response.end end if if request.cookies logined then response.redirect login.asp 需要登陸!end if function getfilename longname ...
用Asp隱藏檔案路徑實現防盜煉
示例 response.write 非法鏈結!防止盜鏈 response.end end if if request.cookies logined then response.redirect login.asp 需要登陸!end if function getfilename longname ...