XMLHTTP对象及其方法

XMLHTTP对象及其方法:

创建XMLHTTP对象的语句如下： 



Set objXML = CreateObject("Msxml2.XMLHTTP") 

或

Set objXML = CreateObject(“Microsoft.XMLHTTP”)

其中Set objXML = CreateObject("Msxml2.XMLHTTP")是最新的版本



对象创建后调用Open方法对Request对象进行初始化，语法格式为： 

poster.open http-method, url, async, userID, password 

Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。



参数的含义如下所示： 

http-method： HTTP的通信方式，比如GET或是 POST 

url： 接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI程序 

async： 一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作 

userID：用户ID，用于服务器身份验证 

password：用户密码，用于服务器身份验证 



比如，我们要调用百度的网页，我们可以： 

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET","http://www.baidu.com",false

Http.send()



Send方法是用来发送XML数据的，用法如下：

poster.send() 



如果不用send来发参数，而你要调用的网页又要接收参数，可以这样简单处理

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET","http://要调用的网页?id=1&name=abc",false

Http.send() 

Http.send()以后，xmlhttp对象会返回一个对象，这个对象里面就包含了所调用网页的内容，就象从浏览器里打开一样，只不过网页内容是在内存中，还没有显示出来。但在调用过程中可能会出错，所以XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。



0 Response对象已经创建，但XML文档上载过程尚未结束 

1 XML文档已经装载完毕 

2 XML文档已经装载完毕，正在处理中 

3 部分XML文档已经解析 

4 文档已经解析完毕，客户端可以接受返回消息 



所以我们一般这样处理:

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET","http://要调用的网页?id=1&name=abc",false

Http.send()

'检查是否完成，readystate值为４说明载入完毕

if Http.readystate<>4 then

exit function 

end if 



Http.send()后，经检测Http.readystate==4，说明载入完毕，这时网页内容已经载入到了Http.responseBody中了 ，但是如果是中文网页，Http.responseBody中会有乱码，这需要我们转换一下乱码 ，所以完整的调用是这样的：

dim http 

set http=Server.createobject("Microsoft.XMLHTTP") 

Http.open "GET","你要调用的网址",false 

Http.send() 

if Http.readystate<>4 then　'如果不等于4，说明出错了

exit function 

end if 

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing 

其中,bytesToBSTR是一个自己写的函数 

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText 

objstream.Close

set objstream = nothing

End Function 



所以，getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")表示，将Http.responseBody的内容按GB2312编码转换一下，放到getHTTPPage变量中。

最后，你再对getHTTPPage变量进行分析，取出你想显示的数据就行了。



需要注意的是,BytesToBstr函数中用到了adodb.stream组件，这需要你的服务器有执行它的权限。



下面我们讲个实例，我们显示一下新浪的新闻。要想显示新浪的新闻，我们就要先找到新浪的新闻网址是什么。新浪有个动态新闻页网址：http://news.sina.com.cn/old1000/news1000_日期.shtml 。比如，我们要显示6月18日的新闻，就输入

http://news.sina.com.cn/old1000/news1000_20050618.shtml ，打开网页你会发现是一个新闻列表，下面我们就要分析一下它的结构，右键查看源代码。里面很乱，但你可以找到<!--新闻开始-->和<!--新闻结束-->，中间的内容就是列表的内容。好了，也就是我说，我们想显示6月18号的新闻，就这样调用：

dim http 

set http=Server.createobject("Microsoft.XMLHTTP") 

Http.open "GET","http://news.sina.com.cn/old1000/news1000_20050618.shtml",false 

Http.send() 

if Http.readystate<>4 then

exit function 

end if 

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing

start=Instr(wstr,"<!--新闻开始-->")

over=Instr(wstr,"<!--新闻结束-->")

wstr=mid(wstr,start+11,over-start-11)



这样wstr就是新闻列表的内容。为什么start+11和over-start-11呢？因为<!--新闻开始-->和<!--新闻结束-->都是11的长度。wstr取出来后，还要进行分析,把它的网址链接替换成你的链接，把不必要的字符过滤掉，这个工作很烦琐，你可以用replace或者用正则表达式来替换,比如：

wstr=replace(wstr,"href=""","href=""show.asp?url=")

wstr=replace(wstr,"<ul>","")

wstr=trim(replace(wstr,"</ul>","")) '完成对页面内容的截取加工

wstr=Replace(wstr,"http://news.sina.com.cn","NewsNews")

wstr=Replace(wstr,"http://tech.sina.com.cn","TechNews")

wstr=Replace(wstr,"http://sports.sina.com.cn","SportsNews")

wstr=Replace(wstr,"http://ent.sina.com.cn","EntNews")

wstr=Replace(wstr,"http://eladies.sina.com.cn","EladiesNews")

wstr=Replace(wstr,"http://jczs.sina.com.cn","jczs")

wstr=Replace(wstr,"http://auto.sina.com.cn","AutoNews")

wstr=Replace(wstr,"http://finance.sina.com.cn","FinanceNews")

wstr=Replace(wstr,"http://www.eladies.com.cn","wwwEladies 

转载于:https://www.cnblogs.com/jclser/articles/1303522.html