请CSDN(狼)回答此问题!超级

[caobin518]

CSDN狼[今天我在Q中CALL你,你没有应]:

你在
http://community.csdn.net/Expert/topic/4455/4455651.xml?temp=.1300165
中帮我回答了xmlhttp小偷问题.

我没有看懂你的意思 .


我要求是:截取一个页面中的一个表格.


请你提供一个你测试好的程序给我.行吗?

[chinastorm]

study

[tigerwen01]

狼已经出现，问题应该解决了吧。

[是是非非]

哪条狼？

看看先

[创造奇迹9999]

当然是那条“超级大笨狼”了

[超级大笨狼]

Function getHTTPPage(url) '用于获取来源页面的数据(Text)
on error resume next
dim http
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then exit function
getHTTPPage=Http.responseText
set http=nothing
if err.number<>0 then err.Clear
End function

Function getHTTPPage_body(url) '用于获取来源页面的数据(Body)
on error resume next
dim http
set http=Server.createobject("Msxml2.XMLHTTP")
Http.ContentType=938
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then exit function

if err.number<>0 then err.Clear
getHTTPPage_BODY=bytes2BSTR(Http.responseBody)
set http=nothing

End function

[超级大笨狼]

Function bytes2BSTR(vIn) '用于Unicode-16和GB2312的转化
dim strReturn
dim i,ThisCharCode,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>
adTypeBinary = 1
adSaveCreateOverwrite = 2
adModeReadWrite = 3
xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP")
xmlHTTP.open("GET","http://www.csdn.net/",false)
xmlHTTP.send()
contents = xmlHTTP.responseBody
oStr = new ActiveXObject("ADODB.Stream")
oStr.Mode = adModeReadWrite
oStr.Type = adTypeBinary

oStr.Open()
oStr.Write(contents)
oStr.SaveToFile("d:\\x.htm", adSaveCreateOverwrite)
</script>

[超级大笨狼]

<script>
function GetHTML(url)
{
var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
oXmlHttp.open("GET", url, false);
oXmlHttp.send()
var oStream = new ActiveXObject("ADODB.Stream");
if(oStream == null)
alert("您的机器不支持ADODB.Stream.")
else
{
oStream.Type=1;
oStream.Mode=3;
oStream.Open() ;
oStream.Write(oXmlHttp.responseBody);
oStream.Position= 0;
oStream.Type= 2;
oStream.Charset="gb2312";
var result= oStream.ReadText();
oStream.Close();
oStream = null;
Content.value = result;
}
}
</script>
<input type="text" id="url" size="50"><input type="button" onclick="GetHTML(url.value)" value="Get"><br>
<textarea style="width:500;height:500" name="Content"></textarea>

[超级大笨狼]

用XMLHTTP就可以把所有的东东都偷过来啦.
<script language="javascript">
function baoGetHTML(url, divTarget)
{
var oHttp = new ActiveXObject("Microsoft.XMLHTTP");
oHttp.open("GET", url, false);
oHttp.send();
SourceCode = bytes2BSTR(oHttp.responseBody);
bao.value = SourceCode;
//bytes2BSTR(oHttp.responseBody)这就是网页的代码.
}
</script>
<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>
<input type=button onclick="baoGetHTML(document.all.url.value)" value="Get">
<input type=text value="http://www.baidu.com" name="url">
<textarea id=bao style="width:400;height:300"></textarea>