我提供一个asp的伪服务思想：
clientReq.xml:
-------------------------------------------------------------------------------------------------
<?xml version="1.0" encoding="gb2312"?>
<TestPacket>
<MsgType>GetvalueReq</MsgType>
<Version>1.0</Version>
</TestPacket>
Index.mxml:
-------------------------------------------------------------------------------------------------
<mx:Model id="mReq" source="clientReq.xml"/>
<mx:HTTPService id="hs" url="http://asp/TestServer.asp"
resultFormat="xml"
method="POST"
contentType="application/xml"
showBusyCursor="true">
<mx:request>
<xml>{mReq}</xml>
</mx:request>
</mx:HTTPService>
------解决方案--------------------
什么叫“伪Web服务”
如果你能够支持soap，那么无论什么语言写的，都是Web服务。
如果你山寨的程序在形式上一定程度模仿了soap的格式，那只能问你自己了。
------解决方案--------------------
主要有获得数据包，解析数据包，指定操作，返回数据四步
1。获得提交的数据包
set odom = server.createobject("msxml2.domdocument")
odom.load request
2。解析数据包，获得msgtype
smsgtype = trim(odom.selectsinglenode("//msgtype").text)
select case smsgtype
case "getvaluereq"
call getvalue
'case "deletevaluereq"
' call deletevalue
case "insertvaluereq"
' call insertvalue(odom)
'case "updatevaluereq"
' call updatevalue
'else case
' call showerrmsg
end select
3。指定操作，此处完成getvalue操作，其中有很多可以做成公共的模块供其他函数使用
sconn = "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("message.mdb")
set oconn = server.createobject("adodb.connection")
oconn.open sconn
ssql = "select * from message order by id desc"
set ors = server.createobject("adodb.recordset")
ors.open ssql, oconn, 1, 1
'构造无记录xml文档
if ors.eof and ors.bof then
sxml = "<?xml version=""1.0"" encoding=""gb2312""?>" & vbcrlf &_
"<testpacket>" & vbcrlf &_
" <msgtype>systemresp</msgtype>" & vbcrlf &_
" <version>1.0</version>" & vbcrlf &_
" <result>0</result>" & vbcrlf &_
"</testpacket>"
end if
'构造有记录xml文档
if not (ors.eof and ors.bof) then
do while not ors.eof
stmpxml = stmpxml & "<messages>" & vbcrlf &_
"<name>" & ors("name") & "</name>" & vbcrlf &_
"<age>" & ors("age") & "</age>" & vbcrlf &_
"<sex>" & ors("sex") & "</sex>" & vbcrlf &_
"<msg>" & ors("msg") & "</msg>" & vbcrlf &_
"</messages>" & vbcrlf
ors.movenext
loop
sxml = "<?xml version=""1.0"" encoding=""gb2312""?>" & vbcrlf &_
"<testpacket>" & vbcrlf &_
" <msgtype>systemresp</msgtype>" & vbcrlf &_
" <version>1.0</version>" & vbcrlf &_
" <result>1</result>" & vbcrlf & stmpxml &_
"</testpacket>"
end if
4.返回数据
set odom = server.createobject("msxml2.domdocument")
odom.loadxml(sxml)
odom.save(response)
set odom = nothing
message.mdb
-------------------------------------------------------------------------------------------------
数据库名：message.mdb
数据表名：message
数据字段：字段 类型
id 自动编号
name 文本
age 数字
sex 文本
msg 备注
执行结果：
-------------------------------------------------------------------------------------------------
我是设置httpservice的resultformat="text"时，看显示的结果
本主题包含附件: sf_2004111813537.jpg (23359bytes)