通用破解网上的图片防盗链源码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936" ENABLESESSIONSTATE="FALSE"%>
<%Option Explicit%>
<%
'+---------------------------------------------------------+
'|        Aocool Studio Photo / Gallery Magic Show         |
'|      Copyright (c) 2005 - 2006 Aocool Studio Ltd.       |
'+---------------------------------------------------------+
Server.ScriptTimeout = 300
Response.Buffer = True

On Error Resume Next

Function IsNullOrEmpty(ByVal String)
        IsNullOrEmpty = IsNull(String) Or String = ""
End Function

Function GetImage(ByVal URL)
        Dim oXmlHttp
        Set oXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")

        If Err.Number <> 0 Then