asp base64 utf-8 в формате asp.net в base64 и в формате base64:
<%@LANGUAGE=КОДОВАЯ СТРАНИЦА VBSCRIPT=65001%>
<%Session.CodePage=65001%>
<!--#include file=base64.asp-->
<%
Функция AspUrlDecode(strValue)
Dim varAry, varElement, objStream, lngLoop, флаг
strValue = Заменить(strValue, +, )
varAry = Split(strValue, %)
Флаг = varAry(0) =
Установите objStream = Server.CreateObject(ADODB.Stream)
С объектным потоком
.Тип = 2
.Режим = 3
.Открыть
Для каждого элемента varElement в varAry
Если varElement <> Пусто Тогда
Если Len(varElement) >= 2 и флаг Тогда
.WriteText ChrB(CInt(&H & Left(varElement, 2)))
Для lngLoop = 3 To Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Следующий
Еще
Для lngLoop = 1 To Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Следующий
Флаг = Истина
Конец, если
Конец, если
Следующий
.WriteText Chr(0)
.Позиция = 0
AspUrlDecode = Заменить(ConvUnicode(.ReadText), Chr(0), , 1, -1, 0)
При ошибке Возобновить Далее
.Закрывать
Установить objStream = Ничего
Конец с
Конечная функция
Функция ConvUnicode(ByVal strData)
Dim rs, stm, bytAry, intLen
Если Len(strData & ) > 0 Тогда
стрДанные = MidB (стрДанные, 1)
intLen = LenB(strData)
Установите rs = Server.CreateObject(ADODB.Recordset)
Установите stm = Server.CreateObject(ADODB.Stream)
С РС
.Fields.Append X, 205, intLen
.Открыть
.ДобавитьНовый
rs(0).AppendChunk strData и ChrB(0)
.Обновлять
bytAry = rs(0).GetChunk(intLen)
Конец с
со стм
.Тип = 1
.Открыть
.Напишите bytAry
.Позиция = 0
.Тип = 2
.Кодировка = utf-8
ConvUnicode = .ReadText
Конец с
Конец, если
При ошибке Возобновить Далее
stm.Закрыть
Установить stm = Ничего
rs.Close
Установить rs = Ничего
Конечная функция
%>
<!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>
<голова>
<meta http-equiv=Content-Type content=text/html; кодировка=utf-8 />
</голова>
<тело>
<%
'base64编码后，比起.net多了77u/
Response.Write(base64编码后:&base64Encode(阿会楠)&<br />)
'base64-файл
Response.Write(base64解码后:&base64uncode(6Zi/5Lya5qWg)&<br />)
%>
</тело>
</html>