CSDN博客

img aspczlover

怎样取得网页中的HTML源代码

发表于2004/10/2 4:54:00  578人阅读

分类: 常用代码

客户端的

用xmlhttp获取数据

用innertext得到源码


<body>
 xmlhttp
<div id="demo"> <div style="width: 677; height: 70">
<input type="button" value="按钮" name="B3">


<script language=vbscript>

sub b3_onclick
 
 
  Dim objXMLHTTP, xml
  Set xml = CreateObject("Microsoft.XMLHTTP")
 
  xml.Open "GET", "http://www.eyou.com", False
  xml.Send
  demo.innertext= bytes2BSTR(xml.responsebody)
  Set xml = Nothing
end sub

 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
 
 </script>
 
 
</body>

阅读全文
0 0

相关文章推荐

img
取 消
img