///////// //ASP的// ///////// Function bytes2BSTR(vIn) dim ThisCharCode,strReturn,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 set oSend = createobject("Microsoft.XMLHTTP") SourceCode = oSend.open ("GET",url,false) oSend.send()
然后你想怎么分析就怎么分析吧~~:)
$lines = file ('http://www.gzuu.com');#在数组中循环,显示 html 的源文件并加上行号。foreach ($lines as $line_num => $line)
{echo "Line #<b>{$line_num}</b> : " . htmlspecialchars($line) . "<br>\n";}#将 web 页面读入字符串。参见 file_get_contents()。
$html = implode ('', file ('http://www.gzuu.com'));
echo $html;
?>
//ASP的//
/////////
Function bytes2BSTR(vIn)
dim ThisCharCode,strReturn,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 set oSend = createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()