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

复制代码代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%>  <% 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

1/2 1