asp base64 utf-8 pour les applications asp.net base64 utf-8 :
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<%Session.CodePage=65001%>
<!--#include file=base64.asp-->
<%
Fonction AspUrlDecode (strValue)
Dim varAry, varElement, objStream, lngLoop, Flag
strValue = Remplacer (strValue, +, )
varAry = Split (strValue, %)
Indicateur = varAry(0) =
Définir objStream = Server.CreateObject (ADODB.Stream)
Avec objStream
.Type = 2
.Mode = 3
.Ouvrir
Pour chaque varElement dans varAry
Si varElement <> Vide Alors
Si Len(varElement) >= 2 et indicateur alors
.WriteText ChrB(CInt(&H & Left(varElement, 2)))
Pour lngLoop = 3 Pour Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Suivant
Autre
Pour lngLoop = 1 Pour Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Suivant
Indicateur = Vrai
Fin si
Fin si
Suivant
.WriteText Chr(0)
.Position = 0
AspUrlDecode = Remplacer (ConvUnicode (.ReadText), Chr (0), , 1, -1, 0)
En cas d'erreur, reprendre ensuite
.Fermer
Définir objStream = Rien
Terminer par
Fonction de fin
Fonction ConvUnicode (ByVal strData)
Dim rs, stm, bytAry, intLen
Si Len(strData & ) > 0 Alors
strData = MidB (strData, 1)
intLen = LenB(strData)
Définir rs = Server.CreateObject (ADODB.Recordset)
Définir stm = Server.CreateObject (ADODB.Stream)
Avec rs
.Fields.Append X, 205, intLen
.Ouvrir
.AddNouveau
rs(0).AppendChunk strData & ChrB(0)
.Mise à jour
bytAry = rs(0).GetChunk(intLen)
Terminer par
Avec stm
.Type = 1
.Ouvrir
.Écrire bytAry
.Position = 0
.Type = 2
.Charset = utf-8
ConvUnicode = .ReadText
Terminer par
Fin si
En cas d'erreur, reprendre ensuite
stm.Fermer
Définir stm = Rien
rs.Fermer
Définir rs = Rien
Fonction de fin
%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<tête>
<méta http-equiv=Content-Type content=text/html; jeu de caractères = utf-8 />
</tête>
<corps>
<%
'base64码后，比起.net多了77u/
Response.Write(base64编码后：&base64Encode(阿会楠)&<br />)
'base64解码后
Response.Write(base64解码后：&base64uncode(6Zi/5Lya5qWg)&<br />)
%>
</corps>
</html>