手机
当前位置:查字典教程网 >编程开发 >ASP教程 >XMLHttp ASP远程获取网页内容代码
XMLHttp ASP远程获取网页内容代码
摘要:复制代码代码如下:url="http://www.csdn.net/"wstr=getHTTPPage(url)start=Newstrin...

复制代码 代码如下:

url="http://www.csdn.net/"

wstr=getHTTPPage(url)

start=Newstring(wstr,"资源精选<>")

over=Newstring(wstr,"<divfriendlink"">")

body=mid(wstr,200,500)

response.write body

Function getHTTPPage(url)

dim objXML

set objXML=createobject("MSXML2.XMLHTTP")'定义

objXML.open "GET",url,false'打开

objXML.send()'发送

If objXML.readystate<>4 then '判断文档是否已经解析完,以做客户端接受返回消息

exit function

End If

getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息,同时用函数定义编码

set objXML=nothing'关闭

if err.number<>0 then err.Clear

End Function

Function Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring<=0 then Newstring=Len(wstr)

End Function

Function bBytesToBstr(body)

dim objstream

set objstream = CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = "gb2312"

'转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码

bBytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

end Function

Function BytesToBstr(body)

dim objstream

set objstream = CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = "utf-8"

'转换原来默认的UTF-8编码转换成GB2312编码,否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

end Function

【XMLHttp ASP远程获取网页内容代码】相关文章:

用ASP创建MDaemon用户的代码

asp中实现随机分组程序的代码

[ASP]精华代码

ASP实例教程:asp无限级显示分类代码

ASP中进行HTML数据及JS数据编码

Asp防止留言灌水的实例代码

ASP.NET共享ASP用户Session的方法及代码

常见的ASP获取时间操作的代码

上一篇,下一篇过程代码

ASP读取IIS日志的小程序代码

精品推荐
分类导航