ASP远程获取(小偷程序)+动态载入JS+JS操作COOKIES的一个简单的实例

var jsonLoader = {
    load: function(sUrl, fCallback){
        var _script = document.createElement("script");
        _script.setAttribute("type", "text/javascript");
        _script.setAttribute("src", sUrl);
        document.getElementsByTagName("head")[0].appendChild(_script);
        if (!!document.all){
            _script.onreadystatechange = function(){
                if (this.readyState=="loaded" || this.readyState=="complete"){fCallback();}
            };
        }else{
            _script.onload = function(){fCallback();};
        }
    }
};

JsonLoader.load('abc.js?'+Math.random(),function(){  
            if (typeof(arrDelay) != 'undefined'){
                //关于“arrDelay” 大家可以在 abc.js 最后一行加入一行“var arrDelay=true”以此来判断js是否载入成功了
                //在这里，继续载入成功后的操作
            }
        });

Function steal(src_) '窃取目标URL地址的html代码
    steal = ""
    dim Http
    set Http=Server.createobject("MSXML2.xmlHTTP")
    Http.open "GET",src_ ,false   ' GET方式获取
    Http.send()
    if Http.readystate<>4 then
        exit Function
    end if
    steal=BytesToBSTR(Http.responseBody,"GB2312")//这个函数是防止中文乱码的一个小函数，在这里就不写出来了，都在下面的附件当中了
    set http=nothing
end Function