asp base64 utf-8 para asp.net base64 :
<%@LANGUAGE=PÁGINA DE CÓDIGOS VBSCRIPT=65001%>
<%Session.CodePage=65001%>
<!--#include file=base64.asp-->
<%
Función AspUrlDecode(strValue)
Dim varAry, varElement, objStream, lngLoop, Bandera
strValue = Reemplazar (strValue, +,)
varAry = Dividir(strValue, %)
Bandera = variable(0) =
Establecer objStream = Server.CreateObject(ADODB.Stream)
Con objStream
.Tipo = 2
.Modo = 3
.Abierto
Para cada varElement en varAry
Si varElement <> vacío entonces
Si Len(varElement) >= 2 y marca entonces
.WriteText ChrB(CInt(&H & Left(varElement, 2)))
Para lngLoop = 3 a Len (varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Próximo
Demás
Para lngLoop = 1 a Len (varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Próximo
Bandera = Verdadero
Terminar si
Terminar si
Próximo
.WriteText Chr(0)
.Posición = 0
AspUrlDecode = Reemplazar (ConvUnicode (.ReadText), Chr (0), 1, -1, 0)
En caso de error Continuar siguiente
.Cerca
Establecer objStream = Nada
Terminar con
Función final
Función ConvUnicode (ByVal strData)
Dim rs, stm, bytAry, intLen
Si Len(strData & ) > 0 Entonces
strDatos = MidB(strDatos, 1)
intLen = LenB(strDatos)
Establecer rs = Server.CreateObject(ADODB.Recordset)
Establecer stm = Server.CreateObject(ADODB.Stream)
con rs
.Fields.Append X, 205, intLen
.Abierto
.AñadirNuevo
rs(0).AppendChunk strData y ChrB(0)
.Actualizar
bytAry = rs(0).GetChunk(intLen)
Terminar con
con stm
.Tipo = 1
.Abierto
.Escribir bytAry
.Posición = 0
.Tipo = 2
.Juego de caracteres = utf-8
ConvUnicode = .ReadText
Terminar con
Terminar si
En caso de error Continuar siguiente
stm.Cerrar
Establecer stm = Nada
rs.Cerrar
Establecer rs = Nada
Función final
%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transicional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<cabeza>
<meta http-equiv=Tipo de contenido content=text/html; conjunto de caracteres=utf-8 />
</cabeza>
<cuerpo>
<%
'base64码后,比起.net多了77u/
Response.Write(base64编码后：&base64Encode(阿会楠)&<br />)
'base64解码后
Respuesta.Escribir(base64解码后：&base64uncode(6Zi/5Lya5qWg)&<br />)
%>
</cuerpo>
</html>