请问星星:
本人想用VB+XML+ASP实现如下功能,不知能否实现?如何实现?
如图:
___________>>|'''''''''''''''''''''''|>>_______________
| _____<<| 虚拟主机上的 ASP 页面 |<<________ |
| | ''''''''''''''''''''''''' | |
|''''''''''| |'''''''''''|
| Client | | Server |
'''''''''''' '''''''''''''
Client 通过一个XML文档传递参数,向Web服务器提交一个HTTP请求。服务端使用一个Asp页面得到该参数,执行其方法,然后使用XMl文档向Server发送数据。
Server处理后,通过一个XML文档传递参数,向Web服务器提交一个HTTP请求。服务端使用一个Asp页面得到该参数,执行其方法,然后使用XMl文档向Client发送返回数据。
注:有许多Client,返回的数据不可搭配错乱。
本人想用VB+XML+ASP实现如下功能,不知能否实现?如何实现?
如图:
___________>>|'''''''''''''''''''''''|>>_______________
| _____<<| 虚拟主机上的 ASP 页面 |<<________ |
| | ''''''''''''''''''''''''' | |
|''''''''''| |'''''''''''|
| Client | | Server |
'''''''''''' '''''''''''''
Client 通过一个XML文档传递参数,向Web服务器提交一个HTTP请求。服务端使用一个Asp页面得到该参数,执行其方法,然后使用XMl文档向Server发送数据。
Server处理后,通过一个XML文档传递参数,向Web服务器提交一个HTTP请求。服务端使用一个Asp页面得到该参数,执行其方法,然后使用XMl文档向Client发送返回数据。
注:有许多Client,返回的数据不可搭配错乱。
_________________________________________________________To:online(龙卷风V3.0--笑傲江湖)
你好!
我已经读了你的文章,让我懂得了如何在客户端与ASP页面之间传递数据。
但觉得你的数据流程如下,ASP页面是服务器。
|''''''''''''''''''''''|
| 虚拟主机上的 ASP 页面|
'''''''^''''''''''''''''
| |
|''''''''''|
| Client |
''''''''''''
而我想实现的,跟你的有少少区别:(数据流程如原贴)ASP页只起到中转站的作用,把Client的数据传递到Server,Server处理后,将结果传到中转站,再由中转站将结果传到相应的Client中去。
现在疑问之处在于中转站怎样才能将Client的数据转到Server,又怎样才能正确无误地将Server的处理结果返回到Client。 盼望指点迷津。
asp接收到数据提交到access中
同时返回给客户端
你说的都有
我看了http://blog.csdn.net/online/archive/2004/07/07/35994.aspx后,明白了VB程序如何向ASP传递数据以及ASP如何返回给VB程序返回数据我。
可能是因为我叫笨笨的原因吧,关健一点我看了不下10次,还是不明白:VB程序如何[[被动地]]接收[[由ASP发起]]的数据。也就是:VB程序A 向 ASP 传递数据, ASP 如何将 VB程序A 传来的数据转传给 VB程序B,VB程序B 处理数据并返回给 ASP ,再由 ASP 返回给 VB程序A 。
恳请再做指点。
不胜感谢!!
Public write_application As Application
Public write_request As Request
Public write_response As Response
Public write_server As Server
Public write_session As Session
Public Sub OnStartPage(MyscriptingContext As ScriptingContext) Set write_script = MyscriptingContext
Set write_application = MyscriptingContext.Application
Set write_request = MyscriptingContext.Request
Set write_response = MyscriptingContext.Response
Set write_server = MyscriptingContext.Server
Set write_session = MyscriptingContext.Session
End Sub
'返回
<?xml version="1.0" encoding="gb2312"?>
<Response>
<retval><%=retval%></retval>
</Response>
Dim strretval As String Dim ResponseXml As DOMDocument Set ResponseXml = New DOMDocument Set ResponseXml = httpRequest.ResponseXml strretval = ResponseXml.selectSingleNode("//retval").Text MsgBox strretvalVB程序B 处理数据并返回给 ASP ,再由 ASP 返回给 VB程序A ]Dim httpRequest As New MSXML.XMLHTTPRequesthttpRequest.Open "POST", "http://localhost/webxml/putinfo.asp", FalsehttpRequest.send strXML
ASP如何向VB程序发送数据并取得返回结果?
SoftProj,是吗?