많은 친구들이 다운로드 사이트를 구축했지만 심각한 도난을 당하는 경우가 많기 때문에 이 방법을 사용하면 실제 다운로드 주소를 숨길 수 있습니다. 다른 사람이 특정 다운로드 주소를 볼 수 없도록 합니다. 다음과 같이 코드 코드를 복사합니다.
<% 함수 다운로드FIle(StrFIle)
StrFIle이름=StrFIle
응답.버퍼=참
응답.지우기
S=Server.CreateObJect(ADODB.Stream)로 설정합니다.
S.오픈
S.유형=1
오류가 발생하면 다음 재개
Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)를 설정합니다.
Fso.FIleExists(StrFIleName)가 아닌 경우
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
If MId(From_Url,8,len(Serv_Url)) <> Serv_Url 그러면
Response.WrIte 파일이 존재하지 않거나 삭제되었습니다.
응답.종료
종료 조건
Response.RedIlect 요청.ServerVarIables(HTTP_REFERER)
응답.종료
종료 조건
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
케이스 선택 UCase(FIleExt)
사례 ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
If MId(From_Url,8,len(Serv_Url)) <> Serv_Url 그러면
Response.WrIte 파일이 존재하지 않거나 삭제되었습니다.
응답.종료
종료 조건
Response.RedIlect 요청.ServerVarIables(HTTP_REFERER)
응답.종료
선택 종료
F=Fso.GetFIle(StrFIlename) 설정
IntFIlelength=F.SIze
s.LoadFromFIle(StrFIlename)
오류가 발생한 경우
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
If MId(From_Url,8,len(Serv_Url)) <> Serv_Url 그러면
Response.WrIte 파일 데이터가 불완전하거나 손상되었습니다.
응답.종료
종료 조건
Response.RedIlect 요청.ServerVarIables(HTTP_REFERER)
응답.종료
종료 조건
업로드 설정=Server.CreateObJect(PersIts.Upload)
업로드가 아무것도 아닌 경우
Response.AddHeader Content-DIsposItIon,첨부 파일 이름=&F.Name;
Response.AddHeader Content-Length,IntFilelength
Response.CharSet=UTF-8
Response.ContentType=응용 프로그램/x-다운로드
응답.BinaryWrite S.Read
응답.플러시
S.닫기
s=아무것도 설정하지 않음
또 다른
Upload.SendBinary StrFIlename,True,application/x-download,False
종료 조건
기능 종료
%>
부르다
다음과 같이 코드 코드를 복사합니다.
<%Call DownloadFIle(다운로드 주소)%>