asp base64 utf-8为了兼容asp.net的base64复制代码如下:
<%@LANGUAGE=VBSCRIPT 代码页=65001%>
<%Session.CodePage=65001%>
<!--#include file=base64.asp-->
<%
函数 AspUrlDecode(strValue)
昏暗的 varAry、varElement、objStream、lngLoop、Flag
strValue = 替换(strValue, +, )
varAry = 分割(strValue, %)
标志 = varAry(0) =
设置 objStream = Server.CreateObject(ADODB.Stream)
使用 objStream
.类型=2
.模式= 3
。打开
对于 varAry 中的每个 varElement
如果 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)))
下一个
标志=真
结束如果
结束如果
下一个
.WriteText Chr(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)
与 rs
.Fields.Append X,205,intLen
。打开
.AddNew
rs(0).AppendChunk strData & ChrB(0)
。更新
bytAry = rs(0).GetChunk(intLen)
结束于
与stm
.类型=1
。打开
. 写者:tAry
.位置=0
.类型=2
.字符集=utf-8
ConvUnicode = .ReadText
结束于
结束如果
出错时继续下一步
stm.关闭
设置 stm = 无
rs.关闭
设置 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>