많은 휴대폰 벨소리 웹사이트에는 자체적인 거머리 방지 프로그램이 있지만 이 프로그램은 도둑을 방지하기 위한 것이 아니라 신사를 방지하기 위한 것입니다. 함수를 간략하게 소개하자면, ASP 개체 ServerVariables(서버 환경 변수)가 사용됩니다. 이 환경 변수를 통해 실제 다운로드 주소를 얻은 다음 간단한 VBS 내장 함수를 통해 실제 주소의 무결성을 파괴할 수 있습니다. 소프트웨어 다운로드를 속이는 기능을 달성하십시오. 이제 모든 사람이 배울 수 있도록 소스 코드가 첨부되었습니다.
다음과 같이 코드 코드를 복사합니다.
<% 함수 다운로드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(DownloadFIle)%>.