使用HTTPService與Asp的偽Web服務通訊，完成數據庫操作
2024-05-04 11:06:39
供稿：網友
使用httpservice與asp的偽web服務通訊，完成數據庫操作
我提供一個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>
testserver.asp:
-------------------------------------------------------------------------------------------------
主要有獲得數據包，解析數據包，指定操作，返回數據四步
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)
csdn blog: http://blog.csdn.net/stefli
stefli's mp3: http://stefli.88ip.net/flex/mp3player.swf
