Descrição da função: Após fazer o upload do arquivo de imagem para o diretório especificado, o nome do arquivo passado na URL é adicionado ao diretório onde o arquivo está localizado com base no caminho completo do arquivo. Em seguida, o fluxo de dados binários do arquivo é gravado na página de serviço, conseguindo assim o efeito de ocultar o endereço real da imagem e evitar referências externas à imagem.
Aqui está uma citação:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
Opção Explícita
Const SysUrl=" http://www.80Boby.com/uImg/ "
Função ReadBinFile(nomeArquivo)
Dim objStream,bin
Definir objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile nome do arquivo
bin=objStream.Leia
objStream.Fechar
ReadBinArquivo = bin
Função final
Função isSelfRefer()
Dim sHttp_Referer, sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
se instr(sServer_Name,"80boby.com")<>0 ou instr(sServer_Name,"freeat63.cn")<>0 então
IsSelfRefer = Verdadeiro
Outro
IsSelfRefer = Falso
Terminar se
Função final
se request.QueryString("Mark")="getPic" então
Dim RealUrl,fso
Dim uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("Caminho real do arquivo"&uFileName)
Definir fso = Server.CreateObject("Scripting.FileSystemObject")
if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("logo.gif")
se não (éSelfRefer) então
RealUrl=Server.MapPath("logotipo.gif")
terminar se
resposta.contenttype = "imagem/jpeg"
resposta.BinaryWrite ReadBinFile (RealUrl)
resposta.fim
terminar se
%>