以下存为default.asp文件

<!--＃i nclude file = "conn.asp" -->
<%
Rem -------------------------------------------
Rem 文件名：SyncOrderRelationReq.asp
Rem 作用：解析POST请求的XML，检测处理结果
Rem 作者：
Rem MSN ：
Rem -------------------------------------------
%>
<%
function WriteLog(str)
dim ofs,oFile,m_tempi
sPath = "out_SyncOrderRelationReq.txt"
set ofs = server.createobject("Scripting.FileSystemObject")
sFileName = Server.MapPath(sPath)
Set oFile = ofs.OpenTextFile(sFileName, 8 , true)
oFile.WriteLine str
set ofs = nothing
end function
%>
<%
Response.ContentType="text/xml"
Response.CharSet="utf-8"

dim ReceivedDoc,oResponseDom
WriteLog "Synchro Request Begin" '同步请求开始
Set ReceivedDoc = server.CreateObject("MSXML2.DOMDocument")
ReceivedDoc.async=False
'是否同步
ReceivedDoc.load Request
'取得post请求
'///////////////////////////////////

If (ReceivedDoc.parseError.errorCode <> 0) Then
Set myErr = ReceivedDoc.parseError
set oResponseSoapBody = oResponseDom.selectSingleNode("//SyncOrderRelationResp")
oResponseSoapBody.selectSingleNode("hRet").text = "9014"
'无法解析SOAP和XML结构
oResponseDom.save(Response)
WriteLog "Have error " & myErr.reason
'response.End()
End If
if ReceivedDoc.childNodes.length=0 then
set oResponseSoapBody = oResponseDom.selectSingleNode("//SyncOrderRelationResp")
oResponseSoapBody.selectSingleNode("hRet").text = "9014"
oResponseDom.save(Response)
WriteLog "无法解析SOAP和XML结构。"
'response.End()
end if

'//////////////////////////////////////
'得到POST过来的XML文档
a= ReceivedDoc.selectSingleNode("//TransactionID").text
WriteLog "TransactionID="&a
'消息编号
b= ReceivedDoc.selectSingleNode("//Version").text
WriteLog "Version="&b
'该接口消息的版本号
c= ReceivedDoc.selectSingleNode("//MsgType").text
WriteLog "MsgType="&c
'消息类型

d= ReceivedDoc.selectSingleNode("//Send_Address/DeviceType").text
WriteLog "DeviceType="&d
e = ReceivedDoc.selectSingleNode("//Send_Address/DeviceID").text
WriteLog "DeviceID="&e

f= ReceivedDoc.selectSingleNode("//Dest_Address/DeviceType").text
WriteLog "DeviceType="&f
g= ReceivedDoc.selectSingleNode("//Dest_Address/DeviceID").text
WriteLog "DeviceID="&g


h= ReceivedDoc.selectSingleNode("//FeeUser_ID/UserIDType").text
WriteLog "UserIDType="&h
i= ReceivedDoc.selectSingleNode("//FeeUser_ID/MSISDN").text
WriteLog "MSISDN="&i
j = ReceivedDoc.selectSingleNode("//FeeUser_ID/PseudoCode").text
WriteLog "PseudoCode="&j

k= ReceivedDoc.selectSingleNode("//DestUser_ID/UserIDType").text
WriteLog "UserIDType="&k
l= ReceivedDoc.selectSingleNode("//DestUser_ID/MSISDN").text
WriteLog "MSISDN="&l
m= ReceivedDoc.selectSingleNode("//DestUser_ID/PseudoCode").text
WriteLog "PseudoCode="&m

n= ReceivedDoc.selectSingleNode("//LinkID").text
WriteLog "LinkID="&n
o= ReceivedDoc.selectSingleNode("//ActionID").text
WriteLog "ActionID="&o
p= ReceivedDoc.selectSingleNode("//ActionReasonID").text
WriteLog "ActionReasonID="&p
q= ReceivedDoc.selectSingleNode("//SPID").text
WriteLog "SPID="&q
r= ReceivedDoc.selectSingleNode("//SPServiceID").text
WriteLog "SPServiceID="&r
s= ReceivedDoc.selectSingleNode("//AccessMode").text
WriteLog "AccessMode="&s
t= ReceivedDoc.selectSingleNode("//FeatureStr").text
WriteLog "FeatureStr="&t
Set ReceivedDoc =nothing
WriteLog "同步请求结束"&now()
WriteLog ""

if nRet<>0 then 'Rem ---------出错处理接口
nRet = 1
WriteLog "同步正向订购关系失败 "&now()
else
'Rem---------正确返回结果
sql="select * from tb_test where i='"&i &"'and r='"&r&"'"
rs.open sql,conn,1,3
if (rs.eof and rs.bof )then '相同号码相同业务代码的不存在
if o=1 then
logout="0"
logindate=now()
rs.addnew '增加
rs("logindate")=logindate
rs("logout")=logout
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("e")=e
rs("f")=f
rs("g")=g
rs("h")=h
rs("i")=i
rs("j")=j
rs("k")=k
rs("l")=l
rs("m")=m
rs("n")=n
rs("o")=o
rs("p")=p
rs("q")=q
rs("r")=r
rs("s")=s
rs("t")=t
rs.update
end if
else'号码存在
if o=2 or o=4 then
logout="1"
logoutdate=now()
rs("logout")=logout
rs("logoutdate")=logoutdate
rs.update
else
logout="0"
rs("logout")=logout
rs.update
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if

nRet=0
WriteLog "同步应答开始"
Set oResponseDom = Server.CreateObject("MSXML2.DOMDocument")
oResponseDom.async = false'是否同步
oResponseDom.load(Server.MapPath("SyncOrderRelationResp.xml"))'取得回复格式

oResponseDom.selectSingleNode("//TransactionID").text = a
WriteLog "TransactionID="&a
oResponseDom.selectSingleNode("//hRet").text = nRet
WriteLog "hRet="&nRet
'--------------------------------------回送XML。
oResponseDom.save(Response)
Set oResponseDom =nothing
WriteLog "同步应答结束"
WriteLog "==================================="
WriteLog ""
WriteLog ""
%>




连接数据库文件conn.asp

<%
dim conn,strconn
strconn ="Provider=SQLOLEDB;DATABASE=Provider;Persist Security Info=True;UID=sa;PWD=owen;Data Source=127.0.0.1"
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs=server.createobject("adodb.recordset")
%>



在SQL中创建如下表


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tb_test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tb_test]
GO

CREATE TABLE [dbo].[tb_test] (
[id] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,
[logindate] [datetime] NULL ,
[logout] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[logoutdate] [datetime] NULL ,
[a] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[b] [text] COLLATE Chinese_PRC_CI_AS NULL ,
[c] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[d] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[e] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[f] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[g] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[h] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[i] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[j] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[k] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[l] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[m] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[n] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[o] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[p] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[q] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[r] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[s] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[t] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO



同级目录下建立名为：out_SyncOrderRelationReq.txt文件

建立如下SyncOrderRelationResp.xml文件

<?xml version="1.0" encoding="utf-8"?>
<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
<SOAP-ENV:Header>
<TransactionID xmlns="http://www.monternet.com/dsmp/schemas/"></TransactionID>
</SOAP-ENV:Header>
<SOAP-ENV:Body>
<SyncOrderRelationResp xmlns="http://www.monternet.com/dsmp/schemas/">
<Version>1.5.0</Version>
<MsgType>SyncOrderRelationResp</MsgType>
<hRet></hRet>
</SyncOrderRelationResp>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>