asp base64 utf-8 .
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<%Session.CodePage=65001%>
<!--#include file=base64.asp-->
<%
Funktion AspUrlDecode(strValue)
Dimmen Sie varAry, varElement, objStream, lngLoop, Flag
strValue = Ersetzen(strValue, +, )
varAry = Split(strValue, %)
Flag = varAry(0) =
Setze objStream = Server.CreateObject(ADODB.Stream)
Mit objStream
.Typ = 2
.Modus = 3
.Offen
Für jedes varElement in varAry
Wenn varElement <> leer ist, dann
Wenn Len(varElement) >= 2 und Flag dann
.WriteText ChrB(CInt(&H & Left(varElement, 2)))
Für lngLoop = 3 To Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Nächste
Anders
Für lngLoop = 1 To Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Nächste
Flag = True
Ende wenn
Ende wenn
Nächste
.WriteText Chr(0)
.Position = 0
AspUrlDecode = Replacement(ConvUnicode(.ReadText), Chr(0), , 1, -1, 0)
Bei Fehler Weiter fortsetzen
.Schließen
Setze objStream = Nothing
Ende mit
Funktion beenden
Funktion ConvUnicode(ByVal strData)
Dim rs, stm, bytAry, intLen
Wenn Len(strData & ) > 0, dann
strData = MidB(strData, 1)
intLen = LenB(strData)
Setze rs = Server.CreateObject(ADODB.Recordset)
Setze stm = Server.CreateObject(ADODB.Stream)
Mit rs
.Fields.Append X, 205, intLen
.Offen
.AddNew
rs(0).AppendChunk strData & ChrB(0)
.Aktualisieren
bytAry = rs(0).GetChunk(intLen)
Ende mit
Mit stm
.Typ = 1
.Offen
.BytAry schreiben
.Position = 0
.Typ = 2
.Charset = utf-8
ConvUnicode = .ReadText
Ende mit
Ende wenn
Bei Fehler Weiter fortsetzen
stm.Schließen
Setze stm = Nichts
rs.Schließen
Setze rs = Nichts
Funktion beenden
%>
<!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>
<Kopf>
<meta http-equiv=Content-Type content=text/html; charset=utf-8 />
</head>
<Körper>
<%
'base64编码后，比起.net多了77u/
Response.Write(base64-Standard: &base64Encode(nicht verfügbar)&<br />)
'base64解码后
Response.Write(base64解码后：&base64uncode(6Zi/5Lya5qWg)&<br />)
%>
</body>
</html>