ASP编程：ASP若何挪用webservice

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。   1. soap恳求体例
2. post恳求体例
3. SHOWALLNODE函数(关于节点各属性和数据显示)

一．SOAP恳求示例

　　上面是一个 SOAP 恳求示例。所显示的占位符需求由实践值交换。

POST /WebService1/UserSignOn.asmx HTTP/1.1
Host: 192.100.100.81
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://tempuri.org/LoginByAccount"

＜?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＞
＜LoginByAccount xmlns="http://tempuri.org/"＞
＜username＞string＜/username＞
＜password＞string＜/password＞
＜/LoginByAccount＞
＜/soap:Body＞
＜/soap:Envelope＞

　　为了与WEBSERVICE交互，需求机关一个与上完整不异的SOAP恳求：

＜%
url = "http://192.100.100.81/WebService1/UserSignOn.asmx"

SoapRequest="＜?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?＞"& _
"＜soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&"＞"& _
"＜soap:Body＞"& _

"＜LoginByAccount xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&"＞"& _
"＜username＞"&username&"＜/username＞"& _
"＜password＞"&password&"＜/password＞"& _
"＜/LoginByAccount＞"& _

"＜/soap:Body＞"& _
"＜/soap:Envelope＞"

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "HOST","192.100.100.81"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/LoginByAccount" ‘必定要与WEBSERVICE的定名空间不异，不然办事会回绝
xmlhttp.Send(SoapRequest)
‘如许就使用XMLHTTP胜利发送了与SOAP示例所符的SOAP恳求.
‘检测一下是不是胜利：
Response.Write xmlhttp.Status&”  ”
Response.Write xmlhttp.StatusText
Set xmlhttp = Nothing
%＞
假如胜利会显示200 ok,不胜利会显示 500 外部办事器毛病? Connection: keep-alive .
胜利后就能够使用WEBSERVICE的呼应，以下：
SOAP呼应示例
上面是一个 SOAP 呼应示例。所显示的占位符需求由实践值交换。
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length

＜?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＞
＜LoginByAccountResponse xmlns="http://tempuri.org/"＞
＜LoginByAccountResult＞string＜/LoginByAccountResult＞
＜/LoginByAccountResponse＞
＜/soap:Body＞
＜/soap:Envelope＞
这是与方才SOAP恳求示例所对应的SOAP呼应示例,在胜利发送恳求后，就能够检查该呼应 ：
If xmlhttp.Status = 200 Then

Set xmlDOC =server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
xmlStr = xmlDOC.xml
Set xmlDOC=nothing
xmlStr = WordStr(xmlStr,"＜","< ")
xmlStr = WordStr(xmlStr,"＞","> ")
Response.write xmlStr
Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText

End if
恳求准确则给出完全呼应，恳求不准确（如账号，暗码不合错误）呼应的内容就会信息不完全.
掏出呼应里的数据，以下：
If xmlhttp.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
Response.Write xmlDOC.documentElement.selectNodes("//LoginByAccountResult")(0).text ‘显示节点为LoginByAccountResult的数据(有编码则要解码)
Set xmlDOC = nothing

Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText


End if

显示某节点各个属性和数据的FUNCTION：

Function showallnode(rootname,myxmlDOC)'望人人不休完鄯 2005-1-9 writed by 844
if rootname＜＞"" then

set nodeobj=myxmlDOC.documentElement.selectSingleNode("//"&rootname&"")'以后结点对像
nodeAttributelen=myxmlDOC.documentElement.selectSingleNode("//"&rootname&"").attributes.length'以后结点属性数

returnstring=returnstring&"＜BR＞节点称号："&rootname

if nodeobj.text＜＞"" then
returnstring=returnstring&"＜BR＞节点的文本：("&nodeobj.text&")"
end if

returnstring=returnstring&"＜BR＞{＜BR＞"

if nodeAttributelen＜＞0 then
returnstring=returnstring&"＜BR＞属性数有  "&nodeAttributelen&" 个,分离是："
end if

for i=0 to nodeAttributelen-1
returnstring=returnstring&"＜li＞"&nodeobj.attributes(i).Name&":  "&nodeobj.getAttribute(nodeobj.attributes(i).Name)&" ＜/li＞"
next

if nodeobj.childNodes.Length＜＞0 then
if nodeobj.hasChildNodes() and lcase(nodeobj.childNodes.item(0).nodeName)＜＞"#text" then'是不是有子节点
set childnodeobj=nodeobj.childNodes
childnodelen=nodeobj.childNodes.Length
returnstring=returnstring&"＜BR＞＜BR＞有 "&childnodelen&" 个子节点; ＜BR＞分离是: "
for i=0 to childnodelen-1
returnstring=returnstring&"＜li＞"&childnodeobj.item(i).nodeName&"＜/li＞"
next
end if
end if

returnstring=returnstring&"＜BR＞}＜BR＞"
response.write returnstring
set nodeobj=nothing
end if
End Function

可以如许用：
If xmlhttp.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
showallnode "LoginByAccountResponse",xmlDOC’挪用SHOWALLNODE
Set xmlDOC = nothing

Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText

End if

二．POST恳求示例
HTTP POST
上面是一个 HTTP POST 恳求示例。所显示的占位符需求由实践值交换。
POST /WebService1/UserSignOn.asmx/LoginByAccount HTTP/1.1
Host: 192.100.100.81
Content-Type: application/x-www-form-urlencoded
Content-Length: length

username=string&password=string
机关POST恳求:
＜%
url = "http://192.100.100.81/WebService1/UserSignOn.asmx/LoginByAccount"

SoapRequest="username="&username&"&password="&password

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"’注重
xmlhttp.setRequestHeader "HOST","192.100.100.81"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)

xmlhttp.Send(SoapRequest)
‘如许就使用XMLHTTP胜利发送了与HTTP POST示例所符的POST恳求.
‘检测一下是不是胜利：
Response.Write xmlhttp.Status&”  ”
Response.Write xmlhttp.StatusText
Set xmlhttp = Nothing
%＞
假如胜利会显示200 ok,不胜利会显示 500 外部办事器毛病? Connection: keep-alive .
胜利后就能够使用WEBSERVICE的呼应，以下：
HTTP POST
上面是一个 HTTP POST 呼应示例。所显示的占位符需求由实践值交换。
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length

＜?xml version="1.0" encoding="utf-8"?＞
＜string xmlns="http://tempuri.org/"＞string＜/string＞


显示：
If xmlhttp.Status = 200 Then

Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
showallnode "string",xmlDOC'挪用SHOWALLNODE
Set xmlDOC = nothing

Else

Response.Write xmlhttp.Status&"  "
Response.Write xmlhttp.StatusText

End if
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

掌握asp的特性而且一定要知道为什么。

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

仓酷云

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。