zoukankan
html css js c++ java
Asp调用WebService事例
ASP调用Web服务事例
<%
'
通过asp程序访问webService服务,取出议案并显示。
'
取出参数公司代码(code)
'
code = trim(Request("code"))
code
=
"
012345
"
'
定义变量,议案的内容
dim
strContent,strFlag
%>
<%
Set
objHTTP
=
Server.CreateObject(
"
MSXML2.XMLHTTP
"
)
Set
xmlDOC
=
Server.CreateObject(
"
MSXML.DOMDocument
"
)
'
strWebserviceURL="http://"+request.ServerVariables("SERVER_NAME")+":8008/CenterWS/CenterWS.asmx/Get_Blance"
'
strWebserviceURL="http://IP:端口/CenterWS/CenterWS.asmx/Get_Blance"
'
strWebserviceURL="http://IP:端口号/CenterWS/CenterWS.asmx/Get_Blance"
'
'strWebserviceURL="http://localhost:8008/CenterWS/CenterWS.asmx/Get_Blance"
strWebserviceURL
=
"
http://www.luckstock.net/CenterWS/CenterWS.asmx/Get_Blance
"
tmp
=
"
RegisterInfoXML=<?xml version='1.0' encoding='gb2312'?><CorpInfo><Authorization><User>BillSurveyJoin</User><Password>xxYtrq2v7Nmrsw1</Password><Role>BillSurveyJoin</Role></Authorization><AppInfo><UserInfo ActionFlag='1'><add key='codes' value='
"
&
code
&
"
' /></UserInfo></AppInfo></CorpInfo>
"
'
Response.Write tmp
objHTTP.Open
"
POST
"
, strWebserviceURL,
False
objHTTP.SetRequestHeader
"
Content-Type
"
,
"
application/x-www-form-urlencoded
"
objHTTP.Send(tmp)
on
error
resume
next
bOK
=
xmlDOC.load(objHTTP.responseXML)
on
error
resume
next
'
Response.Write objHTTP.Status
'
Response.Write xmlStr
if
objHTTP.Status
=
200
then
xmlStr
=
xmlDOC.xml
xmlStr
=
Replace
(xmlStr,
"
<
"
,
"
<
"
,
1
,
-
1
,
1
)
xmlStr
=
Replace
(xmlStr,
"
>
"
,
"
>
"
,
1
,
-
1
,
1
)
'
Response.Write xmlStr
'
Response.Write xmlDOC.documentElement.selectNodes("//string")(0).text
strFlag
=
xmlDOC.documentElement.childNodes.item(
0
).text
if
strFlag
=
""
or
strFlag
=
"
-1
"
then
strContent
=
"
本公司目前暂无发起新的信息!
"
else
strContent
=
strFlag
end
if
'
Response.Write strContent
else
strContent
=
"
提取信息失败!
"
'
Response.Write objHTTP.StatusText
end
if
%>
查看全文
相关阅读:
百度地图神奇错误-------->不显示
ListView item点击事件失效问题
在fragment中使用百度地图
Fragment学习
android.view.InflateException: Binary XML file line #246: Error inflating class <unknown>
Android之获得内存剩余大小与总大小
Android运行时异常“Binary XML file line # : Error inflating class”
openfire 服务器配置 php 添加ssl
《影响力》书中6种原理
git-03 建立分支
原文地址:https://www.cnblogs.com/hanguoji/p/1131352.html
最新文章
mk文件剖析
完整cocos2d-x编译Andriod应用过程
cocos2d-x 滚动文字(二)
error C2471: 无法更新程序数据库 vc90.pdb
error LNK2019: 无法解析的外部符号 __imp___CrtDbgReportW
__declspec(dllexport) & __declspec(dllimport)
【iOS-cocos2d-X 游戏开发之九】Cocos2dx利用CCSAXParser解析xml数据&CCMutableDictionary使用与注意!
ios-cocos2d游戏开发基础-CCLayer和Touch事件-开发笔记
CURL使用2
[LeetCode]70、 Climbing Stairs
热门文章
[LeetCode]66、Plus One
[LeetCode]58、Length of Last Word
[LeetCode]35、Search Insert Position
[LeetCode]28、 Implement strStr()
[LeetCode]27、Remove Element
[LeetCode]26、Remove Duplicates from Sorted Array
[LeetCode]21、Merge Two Sorted Lists
[LeetCode]13、Roman to Integer
[LeetCode]9、Palindrome Number
.9图的制作与使用
Copyright © 2011-2022 走看看