使用XML实现客户端与Web服务器的交互，代码如下：
客户端：
Const sURL = "http://localhost/MyApplication/"
Private Sub Command1_Click()
Dim httpRequest As MSXML.XMLHTTPRequest
Set httpRequest = New MSXML.XMLHTTPRequest
'构造一个XML格式的字符串
Dim Company As String, XMLRequest As String
Company = Text1.Text
XMLRequest = "<Request>" & "<Company>" & Company & "</Company>" & "</Request>"
'打开一个到Web服务器连接，并发送一个http请求
httpRequest.open "POST", sURL & "GetCustomer.asp", False
httpRequest.send XMLRequest
If httpRequest.Status <> 200 Then
Err.Raise Err.Number, , "Http transport error:" & httpRequest.Status & "Description:" & httpRequest.statusText
End If
'提取从Web服务器端返回的数据
Dim ResponseDoc As DOMDocument, LinkMan As String
Set ResponseDoc = New DOMDocument
Set ResponseDoc = httpRequest.responseXML
LinkMan = ResponseDoc.selectSingleNode("//LinkMan").Text
Text2.Text = LinkMan
End Sub
服务器端：（是一个名为GetCustomer.asp的文件）
<%
Response.contentType="text/xml"
set dom=Server.CreateObject("MSXML.DOMDocument")
dom.load Request
Dim Company,LinkMan
Company=dom.selectSingleNode("//Company").text
set conn=server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Northwind.mdb")
sql = "select 公司名称,联系人姓名 from 客户 where 公司名称 ='" & Company & "'"
rs.Open sql,conn,1
LinkMan=rs("联系人姓名")
rs.close
set conn=nothing
%>
<Response>
<LinkMan> <% =LinkMan %> </LinkMan>
</Response>
在执行到
LinkMan = ResponseDoc.selectSingleNode("/ nkMan").Text 时出现
实时错误91：“对象变量或With块变量未设置”
能否帮我找出错误原因
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
计算机技术与应用 → 『 Dot NET,C#,ASP,VB 』 → 在线求救：实时错误91：“对象变量或With块变量未设置”
(订阅本版)
2004/10/7 19:49:00
新浪微博
在线求救：实时错误91：“对象变量或With块变量未设置”
