用ASP實現簡單的繁簡轉換

2021-09-09 01:13:23 字數 1336 閱讀 6778

用asp實現簡單的繁簡轉換

國際化似乎是乙個很流行的口號了,乙個站點沒有英文版至少也要弄個繁體版,畢竟都是漢字,翻譯起來不會那麼麻煩:p

一般的繁簡轉換是使用字典,通過gb的內碼算出big5字元在字典中的位置,讀取顯示之,用fso應該能夠實現。這裡介紹的方法思路更簡單一些,用dictionary物件,就是字典,呵呵,dicgb2big5(gb)就是相應的big5。比起計算內碼再依照位置讀取字元簡單的多吧:)

…… objgb2big5.add "啊", "擺" 

objgb2big5.add "阿", "" 

objgb2big5.add "埃", "甁" 

………… 

objbig52gb.add "擺", "啊" 

objbig52gb.add "", "阿" 

objbig52gb.add "甁", "埃" 

……字典項非常多,就不都寫了

做好了字典,使用的時候僅僅要查一下即可了:)

function gb2big5(str) 

dim i, l, k, t, rtn 

l = len(str) 

rtn="" 

for i=1 to l 

k = mid(str, i, 1) 

if ascw(k)>=0 and ascw(k)<128 then 

t = k 

else 

if objgb2big5.exists(k) then 

t = objgb2big5.item(k) 

else 

t = " " 

end if 

end if 

rtn = rtn & t 

next 

gb2big5 = rtn 

end function

function big52gb(str) 

dim i, l, k, t, rtn 

l = len(str) 

rtn="" 

for i=1 to l 

k = mid(str, i, 1) 

if ascw(k)>=0 and ascw(k)<128 then 

t = k 

else 

if objbig52gb.exists(k) then 

t = objbig52gb.item(k) 

else 

t = " " 

end if 

end if 

rtn = rtn & t 

next 

big52gb = rtn 

end function

測試一下看看吧

用ISAPI Rewrite實現asp的靜態化

靜態頁面對於搜尋引擎的友好性是毋庸置疑的,但是,動態頁面的優勢對於站點維護的便利,論壇和其他需要程式控制的機制來說也是必需的。我們除了可以用使用內容發布系統把頁面發布為靜態html格式以外,還有另外的選擇。那就是靜態 動態頁面的對映。這裡,apache伺服器上有乙個非預設模組mod rewrite。...

用VB編寫ActiveX DLL實現ASP程式設計

dim testme 建立我們剛才編譯成功的元件,一旦建立這個元件,同時會在葉面輸出文字 activex dll元件已經被 建立了!set testme server.createobject first.test 呼叫元件的方法 testme.helloworld 登出元件,在登出的同時,會自動在...

用ASP寫的乙個轉換程式

至於轉換程式,這次是第二次寫了,第一次是.略 比起第一次不同的是這次使用了動態陣列 有點興奮,bs我吧 用asp寫了不少程式,這是第一次用到陣列.這次轉換的條件是要根據原資料庫中某字段的值進行判斷,然後根據相關值進行替換,問題本來不難,不過要替換的記錄實在是太多了,幾千條記錄中的同一需要進行替換的字...