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>