你放网页里用http://…… 这样的方式就不行了的

解决方案 »

  1.   

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
     <HEAD>
      <TITLE> New Document </TITLE>
      <META NAME="Generator" CONTENT="EditPlus">
      <META NAME="Author" CONTENT="">
      <META NAME="Keywords" CONTENT="">
      <META NAME="Description" CONTENT="">
     </HEAD>
    <script>
    var getXmlhttp=function(){
            var http_request;
            
            if (window.XMLHttpRequest) {
                http_request = new XMLHttpRequest();
                if (http_request.overrideMimeType) {
                    http_request.overrideMimeType("text/xml");
                }
            }
            else 
                if (window.ActiveXObject) {
                    try {
                        http_request = new ActiveXObject("Msxml2.XMLHTTP");
                    } 
                    catch (e) {
                        try {
                            http_request = new ActiveXObject("Microsoft.XMLHTTP");
                        } 
                        catch (e) {
                        }
                    }
                }
            if (!http_request) {
                window.alert("can't create XMLHttpRequest object.");
                return null;
            }
            return http_request;
    };
            
    window.onload=function(){
        //获取数据
        var XmlHttp = getXmlhttp();
        XmlHttp.open("Get", "http://www.baidu.com", false);
        XmlHttp.send(null);var t  =  XmlHttp.responseText 
    var obj  =  document.getElementById("tt1") 
    obj.innerHTML  =  t; 
    var  arr  =  obj.getElementsByTagName("div"); alert("网页里所有的div集合共有:"+arr.length+"个!"); 
    };</script> <BODY>
      <div id="tt1" style="overflow:hidden;height:200px;width:700px;"> </div> 
     </BODY>
    </HTML>
      

  2.   

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
     <HEAD>
      <TITLE> New Document </TITLE>
      <META NAME="Generator" CONTENT="EditPlus">
      <META NAME="Author" CONTENT="">
      <META NAME="Keywords" CONTENT="">
      <META NAME="Description" CONTENT="">
     <meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
    <script>
    var getXmlhttp=function(){
            var http_request;
            
            if (window.XMLHttpRequest) {
                http_request = new XMLHttpRequest();
                if (http_request.overrideMimeType) {
                    http_request.overrideMimeType("text/xml");
                }
            }
            else 
                if (window.ActiveXObject) {
                    try {
                        http_request = new ActiveXObject("Msxml2.XMLHTTP");
                    } 
                    catch (e) {
                        try {
                            http_request = new ActiveXObject("Microsoft.XMLHTTP");
                        } 
                        catch (e) {
                        }
                    }
                }
            if (!http_request) {
                window.alert("can't create XMLHttpRequest object.");
                return null;
            }
            return http_request;
    };
            
    window.onload=function(){
        //获取数据
        var XmlHttp = getXmlhttp();
        XmlHttp.open("Get", "test.asp?url=http://www.baidu.com", false);
        XmlHttp.send(null);var t  = unescape(XmlHttp.responseText) var obj  =  document.getElementById("tt1") 
    obj.innerHTML  =  t; 
    var  arr  =  obj.getElementsByTagName("div"); alert("网页里所有的div集合共有:"+arr.length+"个!"); 
    };</script> <BODY>
      <div id="tt1" style="overflow:hidden;height:200px;width:700px;"> </div> 
     </BODY>
    </HTML>test.asp:<%url=request("url")
    set http=Server.createobject("Microsoft.XMLHTTP") 
    Http.open "GET",url,false 
    Http.send() 
    getHTTPPage=bytes2BSTR(Http.responseBody) 
    set http=nothing
    'if err.number<>0 then err.Clear 
    Function bytes2BSTR(vIn) 
    dim strReturn 
    dim i1,ThisCharCode,NextCharCode 
    strReturn = "" 
    For i1 = 1 To LenB(vIn) 
    ThisCharCode = AscB(MidB(vIn,i1,1)) 
    If ThisCharCode < &H80 Then 
    strReturn = strReturn & Chr(ThisCharCode) 
    Else 
    NextCharCode = AscB(MidB(vIn,i1+1,1)) 
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
    i1 = i1 + 1 
    End If 
    Next 
    bytes2BSTR = strReturn 
    End Function 
    response.Write  escape(getHTTPPage)
    %>