jacklinchen 福建省国际电子商务中心 技术经理  2012年10月15日
急!!! asp中调用其他系统的接口函数问题。
   原先使用asp开发个审批系统,现在需要上报至上级部门的系统,对方提供接口函数。如提交函数:submit(用户名,密码,传送值)。 那么我要如何将本地数据对接上去呢? 请高手们指导一下。


   我在网上看了些代码,做了一些改进,但好像会有问题,帮忙看下:

dim purl
purl="http://xxxx/xxx"

strxml="<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"GB2312"&chr(34)&"?>"
strxml=strxml&"<Case xmlns="&chr(34)&purl&chr(34)&">"
strxml=strxml&"<SN></SN>"
strxml=strxml&"<ITEMCODE>"&itemcode&"</ITEMCODE>"
strxml=strxml&"<ProjectName>"&pname&"</ProjectName>"

strxml=strxml&"<Proposer>"
strxml=strxml&"<Name>"&CompanyName&"</Name>"

strxml=strxml&"<Addr>"®Addr&"</Addr>"

strxml=strxml&"<Email>"&Email&"</Email>"
strxml=strxml&"<Tel>"&Tel&"</Tel>"
strxml=strxml&"<IDType>10</IDType>"
strxml=strxml&"<IDName>企业代码</IDName>"
strxml=strxml&"<ID>"&comcode&"</ID>"
strxml=strxml&"</Proposer>"

strxml=strxml&"<Extend>"
strxml=strxml&"<Item name="&chr(34)&""&chr(34)&"></Item>"
strxml=strxml&"<Item name="&chr(34)&""&chr(34)&"></Item>"
strxml=strxml&"<Item name="&chr(34)&""&chr(34)&"></Item>"
strxml=strxml&"</Extend>"

strxml=strxml&"<Attrs>"
strxml=strxml&"<Attr>"
strxml=strxml&"<Mode>无</Mode>"
strxml=strxml&"<Code></Code>"
strxml=strxml&"<SeqNo></SeqNo>"
strxml=strxml&"<Name></Name>"
strxml=strxml&"<FileName></FileName>"
strxml=strxml&"<Content>无</Content>"
strxml=strxml&"</Attr>"
strxml=strxml&"</Attrs>"
strxml=strxml&"</Case>"

set xmlDOC =Server.CreateObject("MSXML.DOMDocument")
set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",purl,false
xmlhttp.setRequestHeader "HOST",purl
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=GB2312"
xmlhttp.setRequestHeader "Content-Length",LEN(strxml)
xmlhttp.setRequestHeader "SOAPAction", purl&"/submit"
xmlhttp.Send(strxml)

bOK = xmlDOC.load(xmlhttp.responseXML)
xmlStr = xmlDOC.xml
set xmlhttp = nothing
set xmlDOC =nothing
...全文
78 点赞 收藏 1
写回复
1 条回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告