ʾÀý´úÂ룺
<%
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
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 "ÎÞЧ/webpage/asp/041101/24.htm£¡"
££response.end
end if

fileext = mid(filename, instrrev(filename, ".") + 1)
select case ucase(fileext)
££case "asp", "asa", "aspx", "asax", "mdb"
¬£¬£¬£¬£response.write "·Ç·¨²Ù×÷£¡"
££££response.end
end select

response.clear

if lcase(right(filename,3))="gif" or lcase(right(filename,3))="jpg" or lcase(right(filename,3))="png" then
¬£response.contenttype = "image/*" '¶ÔͼÏñÎļþ²»³öÏÖÏÂÔضԻ°¿ò
else
£response.contenttype = "application/ms-download"
end if

response.addheader "content-disposition", "attachment; 200497141230.htm=" & getfilename(request.querystring("filename"))
set stream = server.createobject("adodb.stream")
stream.type = adtypebinary
stream.open
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 = "/my_d_o_c_file/"&filename
end if
if lcase(right(filename,3))="gif" or lcase(right(filename,3))="jpg" or lcase(right(filename,3))="png" then
¬£truefilename = "/all_images_/"&filename 'ÉèÖÃͼÏñÎļþĿ¼
end if
stream.loadfromfile server.mappath(truefilename)
while not stream.eos
£response.binarywrite stream.read(1024 * 64)
wend
stream.close
set stream = nothing
response.flush
response.end
%>