function changetypecn(par_content)
dim cton,ntoc,cno,cycle,nycle,carray
cno="一~二~三~四~五~六~七~八~九~十~十一~十二~十三~十四~十五~十六~十七~十八~十九~二十"
carray=split(cno,"~")
if isnumeric(par_content) then
for cycle=0 to 19
if par_content=cycle then
ntoc=carray(cycle-1)
changetypecn=ntoc
end if
next
else
for cycle=0 to 19
if par_content=carray(cycle) then
cton=cycle
changetypecn=cton+1
end if
next
end if
end function
使用方法：假如sek_hidweek=1
response.write(changetypecn(sek_hidweek))那麼輸出就為一
假如sek_hidweek='五'，那麼輸出就為5，現在只做了1到20的相互轉換，如果要擴充套件，只需要改一點引數就行了
中文與Unicode碼的相互轉換
package mydemo unicode 編碼解碼工具類 author xieh public class unicodeutil return unicode.tostring unicode 解碼 param unicode return originalstring public stat...
簡體中文與繁體相互轉換
想找乙個簡體中文與正體中文相互轉換的東西，但在.net裡面能夠找到的大部分都是使用了microsoft.visualbasic.strings.strconv這個方法，但是我想在mono的環境中使用，是不能夠呼叫這個類的。於是自己做了個簡單的轉換類 首先找到gb2312的編碼表，我找到上面的這個位址...
字串與數字的相互轉換
在寫程式的時候常常碰到字串與數字相互轉換的問題，這裡做乙個小小的總結。字串與數字的轉換的方法比較多，按照不同的開發環境可以分為c c mfc，當然這三者存在著包含關係，在c開發環境中實現的方法在c 開發環境自然可以用，而用c 開發環境使用的方法在mfc一樣也可以使用。由於c mfc中使用類模板 cs...