La mejor manera:
Déjame hablar primero de lo básico:
<%@ codePage = 65001%> UTF-8
<%@ codePage = 936%> chino simplificado
<%@ codePage = 950%> chino tradicional
< %@ codePage = 437 %> U.S./canada English
< %@ codePage = 932 %> japonés
< %@ codePage = 949 %> coreano
< %@ codePage = 866 %> ruso
Codepage especifica qué código IIS lee la cadena aprobada (envío de formulario, entrega de barras de dirección, etc.).
La razón del código confusión es que la codificación del módulo es diferente cuando el sitio web debe integrarse.
Al igual que mi blog, este problema ocurrirá al integrarse porque el blog es de UTF-8.
Recientemente, muchos internautas han estado consultando sobre este tema, y he probado muchos métodos.
El método más conveniente es el siguiente:
No convierta ninguna página web del módulo que codifique el UTF-8 o UTF-8, y el GB22312 o GB2312
En la documentación del paquete del módulo UTF-8 (como Conn.asp, pero tenga en cuenta que se debe llamar a Conn.asp en la primera línea) agregue la primera línea.
<%@Idioma = "vBscript" Codepage = "65001"%>
<%Session.codepage = 65001%>
Agregue frente al documento del paquete del módulo GB2312
<%@Idioma = "vBscript" Codepage = "936"%>
<%Session.codepage = 936%>
Otras codificaciones, etc.
Conversión entre caracteres chinos y UTF-8 en ASP
'================== Convertir caracteres chinos a UTF-8 ============================
función china2unicode (str)
para i = 1 a 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)
próximo
chino2unicode = str_unicode
función final
'=================== UTF-8 convertido a caracteres chinos ==========================
función UTF2GB (UTFSTR)
Para Dig = 1 a Len (UTFSTR)
Si Mid (UTFSTR, Dig, 1) = "%" entonces
Si len (UTFSTR)> = Dig+8 entonces
GBSSTR = GBSSTR & Convchinese (Mid (UTFSTR, DIG, 9))
Excavar+8
demás
GBSSTR = GBSSTR & MID (UTFSTR, DIG, 1)
final si
demás
GBSSTR = GBSSTR & MID (UTFSTR, DIG, 1)
final si
próximo
UTF2GB = GBSSTR
función final
Función convchina (x)
A = Split (Mid (x, 2), "%")
i = 0
J = 0
para i = 0 a Ubund (a)
A (i) = c16to2 (a (i))
próximo
para i = 0 a ubund (a) -1
Excavos = instr (a (i), "0")
Unicode = ""
para j = 1 a las excavaciones-1
Si J = 1 entonces
A (i) = right (a (i), len (a (i))-cava)
Unicode = unicode & a (i)
demás
i = i+1
A (i) = right (a (i), len (a (i))-2)
Unicode = unicode & a (i)
final si
próximo
Si len (C2TO16 (unicode)) = 4 entonces
ConvChinese = convchinos & chrw (int ("& h" & c2to16 (unicode)))))
demás
ConvChinese = convchinos & chr (int ("& h" & c2to16 (unicode)))))
final si
próximo
función final
función C2TO16 (x)
i = 1
para i = 1 a len (x) paso 4
C2TO16 = C2TO16 y HEX (C2TO10 (Mid (x, i, 4))))
próximo
función final
función C2TO10 (x)
C2TO10 = 0
Si x = "0" entonces salga de la función
i = 0
para i = 0 a len (x) -1
Si Mid (x, len (x) -i, 1) = "1" entonces c2to10 = c2to10+2^(i)
próximo
función final
función C16TO2 (x)
i = 0
para i = 1 a len (recorte (x))
temptr = c10to2 (cint (int (int ("& h" & mid (x, i, 1)))))