在ASP將字串轉成 Big5 位元串以十六進制表示

古老的 ASP 程式通常都在 ANSI 模式下。

近年來已朝向 Unicode (UTF-8) 的環境開發
在第一行加入: <%@LANGUAGE="VBScript" CODEPAGE="65001" %>
可以讓程式碼、語言核心、HTTP IO 都使用 Unicode 了。

如果有一個特殊狀況要把 Unicode 網頁的文字轉回去 Big5 怎麼辦呢?


'=== 將(Unicode)字串轉成 Big5 位元串以十六進制表示
Private Function HexBig5(strData)
Dim o,B,I,out
Set o = Server.CreateObject("ADODB.Stream")

o.Charset = "big5"
o.Mode = 3 '1讀 2寫 3讀寫
o.Type = 2 '1二進制 2純文字
o.Open
o.WriteText strData

'o.SaveToFile Server.MapPath("t.txt"),2 '測試輸出文字檔
o.Position = 0 '從頭開始
o.Charset = "big5"
o.Type = 1
B = o.Read

out = ""
For I= 1 To o.size
out = out & HexB(AscB(MidB(B,I,1)))
Next
HexBig5 = out
End Function

Private Function HexB(value)
hexB = Right("0" & HEX(value),2)
End Function

8 個回應:

chenmeinv0 提到...

north face jackets
moncler coats
fitflop shoes
ugg outlet
ray ban outlet
canada goose sale
nike tn pas cher
michael kors outlet
oakley sunglasses outlet
pandora jewelry
2016.10.27xukaimin

chenlina 提到...

replica watches
rolex watches
ugg outlet
michael kors handbags
retro jordans 11
christian louboutin shoes
oakley sunglasses wholesale
jordans
ugg outlet
true religion jeans
chenlina20170109

Unknown 提到...

افضل شركة غسيل خزانات بالرياض
شركة تنظيف مكيفات بالرياض
و افضل شركة تنظيف منازل بالطائف
شركة نظافة بالرياض

Cara Mengobati Degenerasi Makula 提到...

The information is very good indeed, may be useful for everything

Obat Menghilangkan Jerawat Sampai Tuntas
Cara Mengobati Nyeri Sendi
Cara Mengobati Parkinson Sampai Sembuh
Pengobatan Efektif Kutil Pada Tubuh
Obat Pneumonia Pada Anak
Pengobatan Cacar Air Ampuh

匿名 提到...

fake rolex watches
pandora rings
rihanna puma
pandora earrings
wholesale nfl jerseys
birkenstock outlet
lacoste outlet
pandora bracelet
air jordan retro 11
jordan retro 12
2018-0511y

jjjjjjjjjjjjj 提到...

yeezy boost 350 v2
mlb jerseys
longchamp handbags
michael kors outlet
fake rolex
rolex replica
vans shoes
adidas iniki
lebron james shoes
coach outlet store

Unknown 提到...

King Of Casino - Aloha, CT (813) 585-4390
King of Casino, jordan 10 retro on sale Aloha, CT (813) 585-4390. The Resort หารายได้เสริม Casino 토토 사이트 모음 & Hotel in Aloha is High Quality jordan 21 retro a 토토 사이트 추천 luxury hotel and casino located on the beach in

匿名 提到...

http://www.rolex-replica.us.com/

張貼留言