Private Sub Command1_Click()
Dim http As Object, q_post As String, User As String, Pass As String
Set http = CreateObject("Microsoft.XMLHTTP")
http.open "POST", "http://www.01xs.com/", False
http.setRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*" '表示我们所用的浏览器能接受的Content-type
http.setRequestHeader "Referer", "http://www.01xs.com" '当前页面是从那个页面链接来的
http.setRequestHeader "Accept-Language", "zh-cn" '语言
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '表示客户端提交给服务器文本内容的编码方式是URL编码，即除了标准字符外，每字节以双字节16进制前加个“%”表示
http.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; QQPinyin 689; TencentTraveler 4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)" '显示出本机的相关系信息,呵呵,这是我的信息大家可以去掉不用发这条
http.setRequestHeader "Host", "www.01xs.com" '所请求的主机
http.setRequestHeader "Content-Length", "90" '表示提交的数据字节大�
数据库表中有一列（TranXml）类型是xml，存储的是类似
<fathernode>
<a>aaa
</a>
<b>bbb
</b>
</fathernode>
的信息，并且通过查询方� ......
如何对xml内容数据进行比较
例如：
<?xml version='1.0' encoding='utf-8'?>
<TestLIST>
<PID>40</PID>
<TestName>深圳市</TestName>
......
