Konversi pengkodean pengembangan pemrograman ASP Daquan

Penulis：Eve Cole Waktu Pembaruan：2025-01-30 09:00:03

Artikel ini memberi Anda beberapa kode yang sangat berguna, yang dapat ditransfer dalam ASP. Ini termasuk UTF8 GB2312 Binary Desimal Code Hexadecimal.

'UTF ke GB --- Konversi Teks Pengkodean UTF8 ke Teks Pengkodean GB

Fungsi UTF2GB (UTFSTR) untuk Dig = 1 ke Len (UTFSTR)

'Jika teks pengkodean UTF8 dimulai dengan%, itu akan dikonversi

Jika mid (utfstr, gali, 1) =% lalu

'Teks pengkodean UTF8 lebih besar dari 8, lalu dikonversi menjadi karakter Cina

if len (utfstr)> = Dig+8 lalu

GBSTR = GBSTR & Convchinese (Mid (UTFSTR, Dig, 9))

Dig = Dig+8

kalau tidak

GBSTR = GBSTR & MID (UTFSTR, Dig, 1)

akhiri jika

kalau tidak

GBSTR = GBSTR & MID (UTFSTR, Dig, 1)

akhiri jika

Berikutnya

UTF2GB = GBSTR

fungsi akhir

'Teks pengkodean UTF8 akan dikonversi menjadi karakter Cina

Fungsi Convchinese (x)

A = split (mid (x, 2),%)

i = 0

j = 0

untuk i = 0 ke ubound (a)

A (i) = c16to2 (a (i))

Berikutnya

untuk i = 0 ke ubound (a) -1

Gali = instr (a (i), 0)

Unicode =

untuk j = 1 untuk menggali-1

Jika j = 1 maka

A (i) = kanan (a (i), len (a (i)) -digs)

Unicode = unicode & a (i)

kalau tidak

I = i+1

A (i) = kanan (a (i), len (a (i))-2)

Unicode = unicode & a (i)

akhiri jika

Berikutnya

jika len (c2to16 (unicode)) = 4 itu

Convchinese = Convchinese & Chrw (int (& H & C2TO16 (Unicode))

kalau tidak

Convchinese = Convchinese & Chr (int (& H & C2TO16 (Unicode))

akhiri jika

Berikutnya

fungsi akhir

'Kode biner dikonversi ke kode heksadesimal

Unction C2TO16 (x)

i = 1

untuk i = 1 ke len (x) Langkah 4

C2TO16 = C2TO16 & HEX (C2TO10 (MID (X, I, 4)))

Berikutnya

fungsi akhir

'Kode biner dikonversi ke kode desimal

Fungsi c2to10 (x)

C2TO10 = 0

Jika x = 0 maka fungsi keluar

i = 0

untuk i = 0 ke len (x) -1

Jika mid (x, len (x) -i, 1) = 1 maka c2to10 = c2to10+2^(i)

Berikutnya

fungsi akhir

'Kode Alkitab dikonversi ke kode biner

Fungsi c16to2 (x)

i = 0

untuk i = 1 ke len (trim (x))

Tempstr = C10TO2 (CINT (int (& H & mid (x, i, 1)))

Lakukan sementara len (tempstr) <4

Tempstr = 0 & Tempstr

lingkaran

C16TO2 = C16TO2 & TEMPSTR

Berikutnya

fungsi akhir

'Kode teratas dikonversi ke kode biner

Fungsi c10to2 (x)

mySign = sgn (x)

x = abs (x)

Penggalian = 1

MELAKUKAN

Jika x <2^menggali maka

keluar

kalau tidak

Penggalian = penggalian+1

akhiri jika

lingkaran

tempnum = x

i = 0

untuk i = menggali 1 langkah-1

Jika tempnum> = 2^(i-1) lalu

tempnum = tempnum-2^(i-1)

C10TO2 = C10TO2 & 1

kalau tidak

C10to2 = c10to2 & 0

akhiri jika

Berikutnya

Jika mySign = -1 maka c10to2 = -& c10to2

fungsi akhir

'GB ke UTF8-Convert GB Pengkodean Teks ke Teks Pengkodean UTF8

Fungsi toutf8 (szinput)

Redup wch, uch, szret

Redup x

Redup nasc, nasc2, nasc3

'Jika parameter input kosong, fungsi keluar

Jika szinput = lalu

Toutf8 = szinput

Fungsi keluar

Akhiri jika

'Mulai konversi

Untuk x = 1 ke len (szinput)

'Gunakan fungsi tengah untuk membagi teks pengkodean GB

Wch = mid (szinput, x, 1)

'Gunakan fungsi ASCW untuk mengembalikan kode karakter unicode dari setiap teks yang dikodekan GB

'Catatan: Fungsi ASC mengembalikan kode karakter ANSI, perhatikan perbedaannya

NASC = ASCW (WCH)

Jika NASC <0 maka NASC = NASC + 65536

If (nasc dan & hff80) = 0 lalu

szret = szret & wch

Kalau tidak

If (nasc dan & hf000) = 0 lalu

uch = % & hex ((nasc / 2 ^ 6)) atau & hc0 & hex (nasc dan & h3f atau & h80)

szret = szret & uch

Kalau tidak

'GB Pengkodean Teks Kode Karakter Unicode digunakan antara 0800 -FFFF

uch = % & hex ((nasc / 2 ^ 12) atau & he0) & % & _

Hex ((nasc / 2 ^ 6) dan & h3f atau & h80) & % & _

Hex (NASC dan & H3F atau & H80)

szret = szret & uch

Akhiri jika

Berikutnya

Toutf8 = szret

Fungsi akhir

'GB ke Unicode --- Konversi teks pengkodean GB ke Teks Pengkodean Unicode

Fungsi China2unicode (STR)

redup i

redup str_one

redup str_unicode

if (isnull (str)) kemudian

fungsi keluar

akhiri jika

untuk i = 1 ke len (str)

Str_one = mid (str, i, 1)

Str_unicode = str_unicode & chr (38)

Str_unicode = str_unicode & chr (35)

Str_unicode = str_unicode & chr (120)

Str_unicode = str_unicode & hex (ascw (str_one))

Str_unicode = str_unicode & chr (59)

Berikutnya

China2Unicode = str_unicode

fungsi akhir

'URL Decoding

Function urldecode (enstr)

Redup waduk

redup c, i, v

Destr =

untuk i = 1 ke len (enstr)

C = mid (enstr, i, 1)

Jika c =% maka

v = eval (& h+mid (enstr, i+1,2)))

Jika V <128 maka

Destr = Destr & Chr (V)

I = i+2

kalau tidak

jika isValidhex (mid (enstr, i, 3)) maka

jika isValidhex (mid (enstr, i+3, 3)) maka

V = eval (& h+mid (enstr, i+1,2)+mid (enstr, i+4,2)))

Destr = Destr & Chr (V)

I = i+5

kalau tidak

v = eval (& h+mid (enstr, i+1,2)+cstr (hex (asc (mid (enstr, i+3, 1)))))))))))))))))))))))))))

Destr = Destr & Chr (V)

I = i+3

akhiri jika

kalau tidak

Destr = Destr & C

akhiri jika

kalau tidak

Jika c =+ maka

Destr = Destr &

kalau tidak

Destr = Destr & C

akhiri jika

Berikutnya

Urldecode = destr

fungsi akhir

'Tentukan apakah itu kode heksadesimal yang efektif

Function isValidhex (str)

redup c

IsValidhex = true

str = ucase (str)

jika len (str) <> 3 itu isvalidhex = false: fungsi keluar

Jika kiri (str, 1) <>% maka isValidhex = false: Fungsi keluar

C = mid (str, 2,1)

if not tidak ((((((((((((((((((((((((((kerylakan ,likanlikanlikanlikanlikanlolllll hari haril kepadal hari kepadal kepadal kepadal kepadal kepadal kepada bagian kelarislearislearis hari haril hari hari hari hari ke haril haril haril hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hari hariut hariaya kepadaisiisiededededededededededededededlele. satuonasaya satu. satuakakakakakakakakakakakakakakakakakakakakakakeg kepadaakakakakakakakad. satuuiiinganinganedayayainganyayayayayaaramanb n man in in in n in as in I in as inor ashhin ashhininininininin.. ia pe = 9)) atau ((c> = a) dan (c <= z))) kemudian isValidhex = false: Fungsi keluar

C = mid (str, 3,1)

fungsi akhir