|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题web VB6或ASP中挪用webservice
Web Services手艺使异种盘算情况之间可以同享数据和通讯,到达信息的分歧性。咱们可以使用
HTTP POST/GET协定、SOAP协定来挪用Web Services。
1、 使用SOAP协定在VB6中挪用Web Services
; 起首使用.net宣布一个复杂的Web Services
<WebMethod()> _
Public Function getString(ByVal str As String) As String
Return "Hello World, " & str & "!"
End Function
该Web Services只包括一个getString办法,用于前往一个字符串。当咱们挪用这个Web Services时,发送给.asmx页面的SOAP动静为:
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi=http://www.w3.org/2001/XMLSchema-instance
xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://
schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<getString xmlns="http://tempuri.org/TestWebService/Service1">
<str>string</str>
</getString>
</soap:Body>
</soap:Envelope>
而前往的SOAP动静为:
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi=http://www.w3.org/2001/XMLSchema-instance
xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="
http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<getStringResponse xmlns="http://tempuri.org/TestWebService/Service1">
<getStringResult>string</getStringResult>
</getStringResponse>
</soap:Body>
</soap:Envelope>
; 在VB6中挪用这个复杂的Web Services可以使用使用XMLHTTP协定向.asmx页面发
送SOAP来完成。
在VB6中,创立一个复杂的工程,界面如图,咱们经由过程点击Button来挪用这个简
单的Web Services
Dim strxml As String
Dim str As String
str = Text2.Text
'界说soap动静
strxml = "<?xml version='1.0' encoding='utf-8'?><soap:Envelope
xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'
xmlns:xsd='http://www.w3.org/2001/XMLSchema'
xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'><soap:Body><getString xmlns='http://tempuri.org/TestWebService/Service1'><str>" & str &
"</str></getString></soap:Body></soap:Envelope>"
'界说一个http对象,一边向办事器发送post动静
Dim h As MSXML2.ServerXMLHTTP40
'界说一个XML的文档对象,将手写的或承受的XML内容转换成XML对象
Dim x As MSXML2.DOMDocument40
'初始化XML对象
Set x = New MSXML2.DOMDocument40
'将手写的SOAP字符串转换为XML对象
x.loadXML strxml
'初始化http对象
Set h = New MSXML2.ServerXMLHTTP40
'向指定的URL发送Post动静
h.open "POST", "http://localhost/TestWebService/Service1.asmx", False
h.setRequestHeader "Content-Type", "text/xml"
h.send (strxml)
While h.readyState <> 4
Wend
'显示前往的XML信息
Text1.Text = h.responseText
'将前往的XML信息解析而且显示前往值
Set x = New MSXML2.DOMDocument40
x.loadXML Text1.Text
Text1.Text = x.childNodes(1).Text
咱们在TEXTBOX中输出“中国”,再点击BUTTON,因而就能够鄙人边的TEXTBOX中显示“Hello World, 中国” 。显示如图:
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|