當前位置:編程學習大全網 - 網站源碼 - 請幫我看看這個防盜源代碼(ASP)。

請幫我看看這個防盜源代碼(ASP)。

Dim strBuffer,文件路徑,服務器名稱

文件路徑= "/images/main 20091109/" '圖片文件所在的路徑。

strBuffer = Cstr(請求。ServerVariables("HTTP_REFERER "))

ServerName = Cstr(請求。ServerVariables("服務器名稱"))

如果Cstr(Mid(strBuffer,8,len(ServerName))= ServerName或strBuffer = " "那麽

文件路徑=文件路徑+請求。QueryString("文件名")

其他

FilePath = "/images/ERROR。GIF”'圖片文件從外部被盜時顯示的錯誤圖片。

如果…就會結束

回應。重定向(文件路徑)

  • 上一篇:獲取關鍵詞信息都有哪些途徑和工具?
  • 下一篇:CRM用什麽語言編寫_crm的基本概念
  • copyright 2024編程學習大全網