如何获取正在浏览的网页的内容

写一个ASP程序如下:先全部取下来,然后再来找如何?
<%
dim xml
set xml=server.CreateObject("microsoft.xmlhttp")
xml.open "GET","http://www.sina.com.cn/",false
xml.setRequestHeader "Content-type","application/x-www-form-urlencoded"
xml.sendresponse.write "<xmp>"
response.write xml.responsetext
response.write "</xmp>"set xml=nothing
%>

解决方案 »

  1.   

    to: DwNet(DwNet)  按照你写的,怎么汉字都成了"?????"
      

  2.   

    存成文件看,,,,每三秒钟自动刷新<HTML>
    <HEAD>
    <TITLE></TITLE>
    <script language="javascript">
    function e2()
    {
    var mrstr = String(Math.random());
    urls='http://news.tom.com/everyday.html?.'+mrstr.substring(2, 10)
    var xttp=new ActiveXObject("Microsoft.XMLHTTP");
    xttp.open('get',urls,false);
    xttp.send();
    var result=xttp.responseBody;
    result=bytes2bstr(result);
    info.innerHTML=result;
    alert(result);
    }var adTypeBinary = 1
    var adTypeText = 2
    function bytes2bstr(vin){
        var st = new ActiveXObject("adodb.stream")
        with (st){
            Type = adTypeText
            Open()
            WriteText(vin)
            Position = 0
            Charset = "GB2312"
            Position = 2
            return ReadText
        }
    }
    </script>
    </HEAD>
    <BODY>
    <P>
    </P>
    <span id=info ></span>
    <script language=javascript>
    window.setInterval("e2()",3000);
    </script>
    </BODY>
    </HTML>
      

  3.   

    <script language="vbscript">
    Function bytes2BSTR(vIn) Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
    strReturn = ""

    For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
    strReturn = strReturn & Chr(ThisCharCode)
    Else
    NextCharCode = AscB(MidB(vIn,i+1,1))
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    i = i + 1
    End If
    Next

    bytes2BSTR = strReturn
    End Function
    </script>
    <script language="javascript">
    var xmlhttp= new ActiveXObject("Msxml2.xmlhttp")
    xmlhttp.open("GET","http://www.sina.com",false)
    xmlhttp.send()
    alert(bytes2BSTR(xmlhttp.ResponseBody))
    </script>
      

  4.   

    上面是客户端的，下面是服务器端的：
    <%
    Function bytes2BSTR(vIn) Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
    strReturn = ""

    For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
    strReturn = strReturn & Chr(ThisCharCode)
    Else
    NextCharCode = AscB(MidB(vIn,i+1,1))
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
    i = i + 1
    End If
    Next

    bytes2BSTR = strReturn
    End FunctionSet xmlhttp= server.Createobject("Msxml2.xmlhttp")
    xmlhttp.open "GET","http://www.sina.com",false
    xmlhttp.send
    Response.Write Server.HTMLEncode(bytes2BSTR(xmlhttp.ResponseBody))%>