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
%>
查看全文
相关阅读:
Oracle中的substr()函数和INSTR()函数和mysql中substring_index函数字符截取函数用法:计算BOM系数用量拼接字符串*计算值方法
(转载)SDRAM驱动笔记
【转】Verilog阻塞与非阻塞赋值使用要点
【转转】(筆記) always block內省略else所代表的電路 (SOC) (Verilog)
(原創) 如何處理signed integer的加法運算與overflow? (SOC) (Verilog)
[转载]亚稳态
Dev Exprss 发布部署
Dev splliter 去除中间的分割显示
DevTreeList中的新增、修改的设计
Oracle 常用网址
原文地址:https://www.cnblogs.com/hanguoji/p/1131352.html
最新文章
委托应用实例
线程安全的ArrayList和HashTable
javascript 中为什么要用typeof x ===‘undefined’
{} 与 function() { } , 选用空对象{}来存放keyValue
javascript 继承模式思考
ajax 随想
golang 学习心得一(开发环境搭建过程中一些坑)
js 小技巧 (速将一个字符串或者时间戳转化成Date对象)
分层结构DAO层
jsp之九大内置对象与四大域对象
热门文章
面向对象的七种设计原则
第六章 初识继承和多态
第一章 深入.NET框架
飞机航班编写总结
第二章 深入C#数据类型
WEB
10月记
Adb 的.bat 文件 如何自动截图手机端界面
IIS7 开发与 管理 编程 之 Microsoft.Web.Administration
replace批量替换、表删除数据查询用法
Copyright © 2011-2022 走看看