vbs+xmlhttp获取网页内容
2004-06-26 00:43
701 查看
主要是利用xmlhttp对象来获取网页信息
<INPUT TYPE="text" NAME="url"><INPUT TYPE="button" onclick=get() value=get>
<div id=yyyy style='width:400;height:500;border:5px'></div>
<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="JScript">
function get(){
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",url.value,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
yyyy.innerHTML=str;
}
</script>
<INPUT TYPE="text" NAME="url"><INPUT TYPE="button" onclick=get() value=get>
<div id=yyyy style='width:400;height:500;border:5px'></div>
<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="JScript">
function get(){
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",url.value,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
yyyy.innerHTML=str;
}
</script>
相关文章推荐
- asp中创建Microsoft.xmlhttp对象从服务器无法获取自己本地IIS运行出来的网页内容
- Asp 使用 Microsoft.XMLHTTP 抓取网页内容无乱码处理,并过滤需要的内容
- 用xmlhttpRequest获取同域网页中文出现乱码解决方案
- telnet建立http连接获取网页HTML内容
- 使用 IXMLHTTPRequest 简单获取网页源代码
- HttpURLConnection获取网页内容,解决乱码的通用方法
- 使用UTL_HTTP包获取网页内容
- 利用cpdetector获取文件编码格式,同时得到网页内容。增加http/https通用方式
- http获取网页内容类
- Java基础:利用HttpClient获取网页内容
- 输入输出流接收HttpURLConection获取网页内容时内容缺失
- 利用HttpClient获取网页内容
- telnet建立http连接获取网页HTML内容
- Js XMLHTTPRequest 实现GET请求提交和返回内容获取
- Flex: 抓取网页,通过 XML 获取部分内容
- HTTP获取文件和网页内容
- httpclient 获取网页内容
- VBS获取GZIP压缩的HTTP内容的实现代码
- Telnet建立http连接获取网页内容
- 对http提出Get请求,获取网页内容