急！！！　asp中调用其他系统的接口函数问题。

jacklinchen 2012-10-15 10:56:55

　　　原先使用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

...全文