asp base64 utf-8为了兼容asp.net的base64复制代码代码如下:
<%@LANGUAGE=PÁGINA DE CÓDIGO VBSCRIPT=65001%>
<%Session.CodePage=65001%>
<!--#incluir arquivo=base64.asp-->
<%
Função AspUrlDecode(strValue)
Dim varAry, varElement, objStream, lngLoop, Flag
strValor = Substituir(strValor, +, )
varAry = Dividir(strValor,%)
Sinalizador = varAry(0) =
Definir objStream = Server.CreateObject(ADODB.Stream)
Com objStream
.Tipo = 2
.Modo = 3
.Abrir
Para cada varElement em varAry
Se varElement <> vazio então
Se Len(varElement) >= 2 e sinalizador então
.WriteText ChrB(CInt(&H & Esquerda(varElement, 2)))
Para lngLoop = 3 para Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Próximo
Outro
Para lngLoop = 1 para Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Próximo
Sinalizador = Verdadeiro
Terminar se
Terminar se
Próximo
.WriteText Chr(0)
.Posição = 0
AspUrlDecode = Substituir(ConvUnicode(.ReadText), Chr(0), , 1, -1, 0)
Em caso de erro, retomar o próximo
.Fechar
Definir objStream = Nada
Terminar com
Função final
Função ConvUnicode(ByVal strData)
Dim rs, stm, bytAry, intLen
Se Len(strData & ) > 0 Então
strDados = MidB(strDados, 1)
intLen = LenB(strData)
Definir rs = Server.CreateObject(ADODB.Recordset)
Definir stm = Server.CreateObject(ADODB.Stream)
Com rs
.Fields.Append X, 205, intLen
.Abrir
.AdicionarNovo
rs(0).AppendChunk strData & ChrB(0)
.Atualizar
bytAry = rs(0).GetChunk(intLen)
Terminar com
Com stm
.Tipo = 1
.Abrir
.Escrever portAry
.Posição = 0
.Tipo = 2
.Conjunto de caracteres = utf-8
ConvUnicode = .ReadText
Terminar com
Terminar se
Em caso de erro, retomar o próximo
stm.Fechar
Definir stm = Nada
rs.Fechar
Definir rs = Nada
Função final
%>
<!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>
<cabeça>
<meta http-equiv=Content-Type content=text/html; conjunto de caracteres=utf-8 />
</head>
<corpo>
<%
'base64编码后，比起.net多了77u/
Response.Write(base64编码后：&base64Encode(阿会楠)&<br />)
'base64解码后
Response.Write(base64解码后：&base64uncode(6Zi/5Lya5qWg)&<br />)
%>
</body>
</html>