作者laechan (小太保)
看板mud_sanc
標題[分享] ASP 與 XML part3
時間Thu Apr 5 17:23:55 2012
這篇主要講我最近寫過的程式。
filter_data.asp
這個程式其實有用到我在聖殿寫 select 指令的經驗，因為
select 後面接的東西是「不定數目」的，而 select 可以依
據所給的數目，產生相符的資料列表。
filter_data 的概念類似，比方我有 10000 筆資料，每個資
料有 n 個資料項目，而我希望程式可以為我篩出我想要的資
料，簡易寫法就是..
' 以 , 號分隔
tmps = split(request("input_data"),",")
' 取出 sizeof(tmps)
j = CInt(UBound(tmps))
tmp="<table>"
' 10000 筆資料
for each data in datas
' 取得回應的 xml 本文
set xml = Https.ResponseText
jj = 0
' 先判斷 xml 裡面的資料是否完全符合篩選條件
for i = 0 to j
if InStr(xml,tmps(i) > 0 then
jj = jj+1
end if
next
' 完全 match 才顯示
if jj = j then
tmp=tmp & "<tr><th>" & data.name & "</th>"
for i = 0 to j
tmp = tmp & "<th>" & data.item(i) & "</th>"
next
tmp=tmp & "</tr>"
end if
next
其顯示的結果類似底下
給定的篩選條件: level, gender, race
輸出的結果
┌──────┬──┬──┬───┐
│laechan │120 │male│human │
├──────┼──┼──┼───┤
│norr │120 │male│devil │
├──────┼──┼──┼───┤
│....
給的篩選條件越多，列表就會越長。
data_list.asp、data_show.asp、data_modify.asp
data_list.asp 是把撈出的 10000 筆資料做列表用。
然後每一筆資料都會設超連結，點下去後就會呼叫
data_show.asp，它會顯示該筆資料的可變更項目以
及不可變更項目，可變更的包括..
直接改值
<input type=text name=xxx value=ooo>
下拉式選單
<select name=xxx><option selected>選項1<option>選項2...</select>
比方某筆資料若以廠商附的程式去設定，其某資料項
目的下拉可選項多達數百筆，但實際上只有幾十筆會
用到而已，因此若用我寫的網頁介面去選就很快，因
為我有把不會用到的那數百筆略過。
假設有更動資料，就會使用到底下的按鈕
<input type=submit name=submit1 value=update>
它會在頁面出現一個[update]鈕, 按下去後它會呼叫
data_modify.asp, 這時就根據我傳過去給它的資料來
做更新，其方式如下...
for each item in request.form
response.write "item name = " & item
response.write "item value = " & request.form(item)
next
所以就會有 keyname 跟其對應值，這時就可以包成 xml..
tmp = ""
for each item in request.form
tmp = tmp & "<" & item & ">" & request.form(item) & "</" & item & ">"
next
比方某個 item 是 "UserLevel", 值是 120, 那經過
上面的包裝就變成..
<UserLevel>120</UserLevel>
包成 xml 後丟給 server 就可以更新該筆資料。
再來是一些 html 語法
讓頁面固定以繁體中文顯示
<Meta Http-Equiv="Content-Type" Content="text/html; Charset=Big5">
設定本文的背景顏色
<body bgcolor=#FFFFCC>
在網頁顯示一個文字輸入區
<textarea name=textarea cols=100 rows=20></textarea>
它必須被包在 form 裡面, 則讀取這個文字輸入區的值的方法
就是 request.form("textarea")
(也就是說讀它的方法並不是 request("textarea") )
而在 textarea 裡面的換行(\n), 其符號則是 vbcrlf
附帶一提, 還有 vbtab 這個就相當於按 tab 鍵後的符號
讀取 client 端的 ip 位址
<% ip = Request.ServerVariables("REMOTE_ADDR") %>
相關字串函數
len(str) 讀取字串長度
mid(str,a,b) 從字串的第a個字元開始, 讀取長度b的字串
例如 mid("123456",3,3) = "345"
InStr(str,substr) 它會回傳 substr 在 str 的第幾個位置
例如 InStr("123456","345") = 3
replace(str,substr1,substr2) 把 str 裡面的 substr1 換成 substr2
CInt(str) 把某個變數強制變成整數
CStr(str) 把某個變數強制變成字串
CLng(str) 把某個變數強制變成長整數(>32767用的)
其中差點被 CLng 搞死，因為 VB 的整數範圍是 -32767~32767
，可是我要處理的資料範圍有時會超過(因為是用編號制)，在
for 時就會出問題，因此要先經過長整數的處理.
再來講一個 response.cookies 的替代方法，它很好用，但
是它不能用來紀錄一些鍵值為特殊符號的東西, 例如...
keyname = "123&"
它在做 response.cookies(keyname) 時會出問題。
我後來就採用以前在聖殿用過的方法，改用陣列儲存，方式
如下..
原本:
for each item in request.form
response.cookies(item) = request.form(item)
next
改成
dim data1(10000)
dim data2(10000)
i = 1
for each item in request.form
data1(i) = item
data2(i) = request.form(item)
i = i + 1
next
排序的時候就這樣做，比方我們希望依照 item 的字串順序排
for i1 = 0 to i-1
for i2 = 1 to i
if strcomp(data1(i1),data1(i2)) > 0 then
' 調換兩個 data1 的位置
tmp = data1(i1)
data1(i1) = data1(i2)
data1(i2) = tmp
' 同時別忘了也要調換兩個 data2 的位置
tmp = data2(i1)
data2(i1) = data2(i2)
data2(i2) = tmp
end if
next
next
strcomp 即 strcmp(c, java, ..)，而上面使用的就是簡單的
排序方法。
ASP 裡面函數的簡易使用方法
<%
function test_func(a)
test_func = "<th align=left>" & a & "</th>"
end function
%>
它的意思就是，比方說我們令 tmp = test_func("abc")
那麼它的結果就是 <th align=left>abc</th>
也就是直接把函數名當成變數來用，則到 end function 之前
看 test_func 的值變成什麼, 它就會是函數的回傳值.
函數可以有效縮減程式行數並減少錯誤。
在公司寫程式可以寫的這麼順利，很大的原因歸功於在聖殿跟
字串、陣列、mapping 資料等「搏鬥」的經驗，尤其是字串處
理，大抵上難搞的字串處理在聖殿幾乎都經歷過了，例如說
/u/l/laechan/workroom.c
1.解出 workroom.c (檔案名)
2.解出 /u/l/laechan/ (目錄名)
3.去掉 .c (物件用)
像這種的我若在聖殿就會用 while 居多(土法煉鋼的話)，在
asp 我更直接─用 for 硬幹。
第二個原因仍舊是在聖殿的 coding 經驗。因為 asp 我是倉促
之下學的，而且急著要用，所以我等同於一邊找資料，一邊寫
程式，在工具有限的情況下，我至少知道要怎麼組合一些現有
的工具來達到我想要的結果。
例如說，假設聖殿沒有 strcmp 函數，那麼要怎麼做字串比較
？尤其是要比較的字串其長度又都不一定的情況呢？
1.先計算最長字串長度
2.針對長度不足的字串做補 "0", 例如 "laechan" -> "laechan0000"
3.再把字串套進特定的算式做處理
不過這個只能應急用，比方只比一下前幾個字母這樣。
(最好的方法還是自己寫一個 strcmp, 只要參考 c or java 的
函式庫寫法即可)
就像我在聖殿常說的，很多系統其實都是簡單工具的組合之下
的產物，它們其實並不難，重點是要懂得如何運用手邊的工具
Laechan
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 223.140.164.51