Recomendado: Introdução ao básico do desenvolvimento de Humanidades ASP O que é ASP? ASP é a abreviação de páginas de servidor ativo, que é a página do servidor ativo. Os arquivos ASP têm .asp como extensão. O que é especial é que todos os idiomas de marcação que podem ser usados em arquivos HTML podem ser usados em arquivos ASP e arquivos ASP
Se soubermos o caminho real de um arquivo estático, como: http://www.xx.com/download/51windows.pdf, se o servidor não tiver restrições especiais, podemos baixá -lo sem esforço! Quando o site fornece download 51Windows.pdf, como o downloader não pode conseguir seu caminho real! Este artigo apresentará como usar o ASP para ocultar o caminho de download real de um arquivo.
Ao gerenciar os arquivos do site, podemos colocar arquivos com a mesma extensão no mesmo diretório e fornecer um nome especial, por exemplo, colocar o diretório de arquivos PDF como o_PDF_FILE_S e salvar o código a seguir como Down.asp. Seu caminho online é http://www.xx.com/down.asp. Podemos usar http://www.xx.com/down.asp?filename=51Windows.pdf para baixar esse arquivo, e o downloader não pode ver o caminho de download real deste arquivo! Em Down.asp, também podemos definir se o arquivo baixado precisa ser conectado e determinar se a página de origem baixada é um site externo, para impedir que o arquivo seja roubado.
| A seguir, o conteúdo citado: Código de exemplo: <% From_url = cstr (request.Servervariables (http_referer)) Serv_url = cstr (request.servervariables (server_name)) Se MID (from_url, 8, len (serv_url)) <> serv_url então Response.Write Link ilegal! 'Evite o roubo de link resposta.END final se se request.cookies (login) = então Response.Redirect /Login.asp 'necessário para fazer login! final se Função getFilename (longname) '/pasta1/pasta2/file.asp => file.asp Enquanto instrument (LongName,/) longname = certo (LongName, Len (LongName) -1) Wend GetFilename = longname Função final Dim Stream Conteúdo dim Dim FileName Dim Truefilename Dim FileExt Const adtypebinary = 1 FileName = request.QueryString (nome do arquivo) Se o nome do arquivo = então Response.Write inválido/webpage/asp/041101/24.htm! Resposta.END Final se FileExt = MID (nome do arquivo, instrumev (nome do arquivo,.) 1) Selecione Case UCase (FileExt) Case Asp, ASA, ASPX, Asax, MDB Response.Write Operação ilegal! Resposta.END Final Selecione Response.clear Se lcase (direita (nome do arquivo, 3)) = gif ou lcase (direita (nome do arquivo, 3)) = jpg ou lcase (direita (nome do arquivo, 3) = png então Response.ContentType = Image/* 'A caixa de diálogo Download não aparece para arquivos de imagem outro Response.ContentType = Application/Ms-download final se Response.AddHeader Content-Disposição, Anexo; 200497141230.htm = & getFileName (request.QueryString (nome do arquivo)) Set stream = server.createObject (adodb.stream) Stream.Type = adTypeBinary Stream.open Se lcase (direita (nome do arquivo, 3)) = pdf, então defina o diretório de arquivos do tipo PDF Truefilename = /the_pdf_file_s /& filename final se Se lcase (direita (nome do arquivo, 3)) = Doc, então defina o diretório de arquivos do tipo Doc Type Truefilename = /my_d_o_c_file /& filename final se Se lcase (direita (nome do arquivo, 3)) = gif ou lcase (direita (nome do arquivo, 3)) = jpg ou lcase (direita (nome do arquivo, 3) = png então Truefilename = /all_images _ /& filename 'defina o diretório de arquivos de imagem final se Stream.loadfromfile server.mappath (TrueFileName) Enquanto não é stream.eos Response.BinaryWrite Stream.Read (1024 * 64) Wend Stream.Close Set Stream = nada Response.flush Resposta.END %> |
Este artigo é coletado e compilado na Internet. Se você é o autor original, escreva para alterar o autor e a fonte post # vip.qq.com (altere # para @)
Compartilhar: Dicas: Use GetString para aumentar a velocidade de ASP Muitos programadores da ASP tiveram a experiência de executar consultas de banco de dados e, em seguida, exibir os resultados da consulta em tabelas HTML. Normalmente fazemos isso: a seguir é o conteúdo citado: