ASP隐藏下载地址及防盗代码

herbss

1. <% FunctIon DownloadFIle(StrFIle)
   
2. StrFIlename=StrFIle
   
3. Resp**e.Buffer=True
   
4. Resp**e.Clear
   
5. Set S=Server.CreateObJect("ADODB.Stream")
   
6. S.Open
   
7. S.Type=1
   
8. on Error Resume Next
   
9. Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect")
   
10. If Not Fso.FIleExists(StrFIleName) Then
    
11. From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
    
12. Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
    
13. If MId(From_Url,8,len(Serv_Url)) <> Serv_Url Then
    
14. Resp**e.WrIte "该文件不存在或者已经删除."
    
15. Resp**e.End
    
16. End If
    
17. Resp**e.RedIrect Request.ServerVarIables("HTTP_REFERER")
    
18. Resp**e.End
    
19. End If
    
20. FileExt=MId(StrFIlename,InStrRev(StrFIleName, ".")+1)
    
21. Select Case UCase(FIleExt)
    
22. Case "ASP", "ASA", "ASPX", "ASAX", "MDB", "PHP", "JSP", "SHTML", "HTML", "HTM", "TV", "DATA"
    
23. From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
    
24. Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
    
25. If MId(From_Url,8,len(Serv_Url)) <> Serv_Url Then
    
26. Resp**e.WrIte "该文件不存在或者已经删除."
    
27. Resp**e.End
    
28. End If
    
29. Resp**e.RedIrect Request.ServerVarIables("HTTP_REFERER")
    
30. Resp**e.End
    
31. End Select
    
32. Set F=Fso.GetFIle(StrFIlename)
    
33. IntFIlelength=F.SIze
    
34. s.LoadFromFIle(StrFIlename)
    
35. If Err Then
    
36. From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
    
37. Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
    
38. If MId(From_Url,8,len(Serv_Url)) <> Serv_Url Then
    
39. Resp**e.WrIte "该文件数据不完整或许已损坏."
    
40. Resp**e.End
    
41. End If
    
42. Resp**e.RedIrect Request.ServerVarIables("HTTP_REFERER")
    
43. Resp**e.End
    
44. End If
    
45. Set Upload=Server.CreateObJect("PersIts.Upload")
    
46. If Upload Is Nothing Then
    
47. Resp**e.AddHeader "Content-DIsposItIon","attachment; FIlename="&F.Name
    
48. Resp**e.AddHeader "Content-Length",IntFilelength
    
49. Resp**e.CharSet="UTF-8"
    
50. Resp**e.ContentType="application/x-download"
    
51. Resp**e.BinaryWrite S.Read
    
52. Resp**e.Flush
    
53. S.Close
    
54. Set s=NothIng
    
55. Else
    
56. Upload.SendBinary StrFIlename,True,"application/x-download",False
    
57. End If
    
58. End FunctIon
    
59. %>

复制代码

调用

<%Call DownloadFIle("下载地址")%>