asp base64 utf-8为了兼容asp.net的base64
来源：asp之家 发布时间：2011-03-10 10:47:00
代码如下:
<％@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>
0
投稿猜你喜欢
1、监听视频滑动给 swiper 增加 @change="change"，这个时间在我们完成一次滑动后执行，在 meth- 本文实例为大家分享了Vue实现聊天界面展示的具体代码，供大家参考，具体内容如下1.功能需求根据索引选择跟不同的人进行聊天2.代码展示mock
- 本文实例为大家分享了python实现KFC点餐收银系统的具体代码，供大家参考，具体内容如下这个kfc收银系统我实现了的以下功能：1.正常餐品
- 前言网络上各大论坛，尤其是一些图片类型的网站上，在图片加载时均采用了一种名为懒加载的方式，具体表现为，当页面被请求时，只加载可视区域的图片，
- 这次主要记录在windows下嵌入 python 解释器的过程，程序没有多少，主要是头文件与库文件的提取。程序平台：windows10 64
- 前言随着网站的内容的增多和用户访问量的增多，网站加载会越来越慢，受限于带宽和服务器同一时间的请求次数的限制，，我们往往需要在此时对我们的网站
- 最近在做webIM,嵌入到OA系统,由于WEBIM处在独立页面,所以如果多次点击就会出现多个页面,这样在IE6下,服务器推送会认不到页面.所
- 从Android 3.0开始除了我们重点讲解的Fragment外，Action Bar也是一个重要的内容，Action Bar主要是用于代替
- 通过HTTP_USER_AGENT判断用户是从手机上访问，还是电脑IE上访问。 asp代码片段：主要使用了正则匹配手机环境，大家可以补充手机
- 从大的发展来看，网站就是一块试验田，一块在错误中成长、在错误中变强变大的试验田。这决定了互联网产品的成长路线，一定是一个反复修正和迭代的曲线
- 后台线程•Master Thread核心后台线程，主要负责将缓冲池的数据异步刷新到磁盘。例如脏页的刷新，插入缓冲的合并，undo 页的回收等
- 如下所示：hist = model.fit(x,y, epochs=epoch_num, batch_size=32,callbacks=e
- DQLDQL：data Query language 数据查询语言格式：select[distinct] 字段1,字段2 from 表名 w
- 1、什么是归一化：归一化就是把一组数（大于1）化为以1为最大值，0为最小值，其余数据按百分比计算的方法。如：1，2，3.，那归一化后就是：0
- Scala的环境搭建由于scala是基于java来开发的, 编写的java类可以使用javac命令编译成.class文件被JVM加载到内存中
- 版本：ant design vue 3.2.4场景：使用Image图片组件预览功能需求：自定义预览遮罩层及预览图片的样式；不得影响到其他页面
- 一般你在迭代一组数据的时候，需要创建一个数据，假设数组很大，则会消耗很大性能，甚至造成内存不足。//Fatal error: Allowed
- 一、为 SQL 启用远程连接 1. 单击“开始”，依次指向“程序”、“Microsoft SQL Server 2005”和“配置工具”，然
- Function Moneynm(n,m) &
- 当需要实现html页面部分模块截图并具有保存图片功能时，前台直接生成截图并下载会方便的多。多的不说，直接看代码首先我们需要引入2个js文件：
