Asp Base64 utf-8 المصدر: asp.net Base64 المصدر:
<%@LANGUAGE=صفحة كود VBSCRIPT=65001%>
<%Session.CodePage=65001%>
<!--#include file=base64.asp-->
<%
الدالة AspUrlDecode(strValue)
Dim varAry، varElement، objStream، lngLoop، Flag
strValue = استبدال (strValue، +،)
varAry = سبليت (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 إلى Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
التالي
آخر
بالنسبة لـ lngLoop = 1 إلى Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
التالي
العلم = صحيح
نهاية إذا
نهاية إذا
التالي
.كتابة النص مركز حقوق الإنسان (0)
.الموضع = 0
AspUrlDecode = استبدال (ConvUnicode(.ReadText)، Chr(0)، ، 1، -1، 0)
على خطأ استئناف التالي
.يغلق
تعيين objStream = لا شيء
نهاية مع
وظيفة النهاية
الدالة ConvUnicode(ByVal strData)
Dim rs، stm، bytAry، intLen
إذا كان Len(strData &) > 0 ثم
strData = MidB(strData, 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
.يفتح
.اكتب بواسطة آري
.الموضع = 0
.النوع = 2
.مجموعة الأحرف = UTF-8
ConvUnicode = .ReadText
نهاية مع
نهاية إذا
على خطأ استئناف التالي
stm.إغلاق
تعيين stm = لا شيء
إغلاق
تعيين 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>