기능 설명: 지정된 디렉터리에 이미지 파일을 업로드한 후, 파일의 전체 경로를 기준으로 URL에 전달된 파일 이름이 파일이 위치한 디렉터리에 추가됩니다. 그런 다음 파일의 바이너리 데이터 스트림이 서비스 페이지에 기록되어 이미지의 실제 주소를 숨기고 이미지에 대한 외부 참조를 방지하는 효과를 얻습니다.
다음은 인용문입니다:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
옵션 명시적
Const SysUrl=" http://www.80Boby.com/uImg/ "
함수 ReadBinFile(파일 이름)
희미한 objStream,bin
objStream = Server.CreateObject("ADODB.Stream") 설정
objStream.Open
objStream.Type = 1
objStream.LoadFrom파일 파일 이름
빈 = objStream.Read
objStream.Close
ReadBinFile = 빈
기능 종료
함수 isSelfRefer()
희미한 sHttp_Referer, sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
if instr(sServer_Name,"80boby.com")<>0 또는 instr(sServer_Name,"freeat63.cn")<>0 then
IsSelfRefer = 참
또 다른
IsSelfRefer = 거짓
종료 조건
기능 종료
request.QueryString("Mark")="getPic"인 경우
희미한 실제 URL,fso
Dim uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("파일의 실제 경로"&uFileName)
fso = Server.CreateObject("Scripting.FileSystemObject") 설정
if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("logo.gif")
그렇지 않은 경우(isSelfRefer) 다음
RealUrl=Server.MapPath("logo.gif")
종료하면
response.contenttype = "이미지/jpeg"
응답.BinaryWrite ReadBinFile(RealUrl)
응답.끝
종료하면
%>