作家
登录

asp base64 utf-8为了兼容asp.net的base64

作者: 来源:www.28hudong.com 2013-03-30 08:21:24 阅读 我要评论

复制代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <!--#include file="base64.asp"--> <% Function AspUrlDecode(strValue) Dim varAry, varElement, objStream, lngLoop, Flag strValue = Replace(strValue, "+", " ") varAry = Split(strValue, "%") Flag = varAry(0) = "" Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Type = 2 .Mode = 3 .Open For Each varElement In varAry If varElement <> Empty Then If Len(varElement) >= 2 And Flag Then .WriteText ChrB(CInt("&H" & Left(varElement, 2))) For lngLoop = 3 To Len(varElement) .WriteText ChrB(Asc(Mid(varElement, lngLoop, 1))) Next Else For lngLoop = 1 To Len(varElement) .WriteText ChrB(Asc(Mid(varElement, lngLoop, 1))) Next Flag = True End If End If Next .WriteText Chr(0) .Position = 0 AspUrlDecode = Replace(ConvUnicode(.ReadText), Chr(0), "", 1, -1, 0) On Error Resume Next .Close Set objStream = Nothing End With End Function Function ConvUnicode(ByVal strData) Dim rs, stm, bytAry, intLen If Len(strData & "") > 0 Then strData = MidB(strData, 1) intLen = LenB(strData) Set rs = Server.CreateObject("ADODB.Recordset") Set stm = Server.CreateObject("ADODB.Stream") With rs .Fields.Append "X", 205, intLen .Open .AddNew rs(0).AppendChunk strData & ChrB(0) .Update bytAry = rs(0).GetChunk(intLen) End With With stm .Type = 1 .Open .Write bytAry .Position = 0 .Type = 2 .Charset = "utf-8" ConvUnicode = .ReadText End With End If On Error Resume Next stm.Close Set stm = Nothing rs.Close Set rs = Nothing End Function %> <!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"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> </head> <body> <% 'base64编码后,比起.net多了77u/ Response.Write("base64编码后:"&base64Encode("阿会楠")&"<br />") 'base64解码后 Response.Write("base64解码后:"&base64uncode("6Zi/5Lya5qWg")&"<br />") %> </body> </html>

  推荐阅读

  防盗链接ASP函数

简单介绍下功能吧:使用了ASP的一个对象ServerVariables(服务器环境变量),通过这个环境变量可以获取到真正的下载地址再通过一些简单的VBS内置函数破坏其真正地址的完整性。达到欺骗下载软件的功能。现附上源码提>>>详细阅读


本文标题:asp base64 utf-8为了兼容asp.net的base64

地址:http://www.17bianji.com/kaifa2/ASP/32016.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)