作者laechan (小太保)
看板mud_sanc
標題[分享] ASP 與 XML part 2
時間Sat Mar 17 17:57:28 2012
最近在公司以單純的 ASP(非 ASP.NET) 寫了兩支程式，這裡
做個分享。以底下的 xml 為例
<sanc>
<playerdata>
<player>
<id>laechan</id>
<level>120</level>
<race>human</race>
</player>
<player>
<id>norr</id>
<level>120</level>
<race>devil</race>
</player>
</playerdata>
</sanc>
我使用 response.cookies 的方式(簡單的說就是土法煉鋼)
來儲存上面的資訊，做法如下...
<%
' 先 create 一個 xml 用的物件
Set Https = Server.CreateObject("MSXML2.XMLHTTP")
' 把這個物件設為指向打開下列網址的 xml 資料傳送用物件
' 然後把資料 send 給它(new_str 就是我編好的 xml 東西)
Https.open "POST","http://網址/api",false
Https.send new_str
' 若傳送有成功(state=4)就執行底下
if Https.readystate=4 then
' create 出一個存放 xml 資料的物件
set xml = Server.CreateObject("MSXML2.DOMDocument")
xml.Async = false
' 讓這個物件去做 loadXML 的動作, 其目標是從上述網址
' response 回來的東西, 假設就是我上面打的那一串 xml
xml.loadXML Https.ResponseText
' 下面這個動作, 可以把「每一個」 <player> ... </player>
' 裡面的東西撈出來存放到 players 裡頭,類似底下這樣
' players = ({ ({"laechan","120","human"}), ({"norr","120","devil"}),.. })
set players = xml.getElementsByTagName("player")
' 這個類似 sizeof(players) < 1 的判斷式
if players.length < 1 then
response.write "沒有撈到任何資料喔.<p>"
' 底下類似程式執行到這裡就 end 掉(結束)
response.end
end if
' 把 k 存成長度的整數, 我實測過若不經過這個轉換
' players.length 無法被判斷為整數, 很怪
k = CInt(players.length)
dim keyname(100)
for i = 0 to k-1
' playerxml = 每一筆 <player> ... </player>
set playerxml = player.item(i)
' playerxml 的第 0 筆資料就是 <id> 資料
' 令 playerid = 該值而且強制其變成字串
' .childNodes(n) 就是取出第 n 筆子節點, .text 代表取出節點的值
playerid = CStr(playerxml.childNodes(0).text)
' 並把每一個 playerid 另外存起來
keyname(i) = playerid
' 接著, 就去撈每一個 <player> ... </player> 底下的子節點
' 也就是 <id> , <level>, <race> 那些
for each nodes in playerxml.childNodes
' 取得子節點名字, 就是 "id", "level", "race" 等
' 上面的 for each nodes 的目的就是為了取得 nodes 這個東西
tmp=CStr(nodes.NodeName)
' 把資料用類似 mapping 的方式存起來
' cookies("laechan")("level") = "120" 這樣
response.cookies(playerid)(tmp) = playerxml.childNodes(j).text
next
next
end if
到這裡就讀完了，接著就是驗證結果
strs = "<table border=1><tr><th>玩家ID</th><th>等級</th><th>種族</th></tr>"
for i = 0 to k-1
playerid = keyname(i)
' 底下就類似 strs = strs + xxx
strs = strs & "<tr><th>" & request(playerid)("level") & "</th>"
strs = strs & "<tr><th>" & request(playerid)("race") & "</th></tr>"
next
response.write strs & "</table>"
%>
其網頁執行結果就類似底下
┌────┬──┬───┐
│ 玩家ID │等級│ 種族 │
├────┼──┼───┤
│laechan │120 │human │
├────┼──┼───┤
│norr │120 │devil │
└────┴──┴───┘
跟自己熟悉的語言對照一下就能理解上面的寫法，這是一種土法
煉鋼的方式，為的就是以最快的速度開發出我想要的東西。
LAechan
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.26.188.94