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

代码如下:

<%@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)

相关推荐

  • ASP.NET jQuery 实例14 在ASP.NET form中校验时间范围

    ASP.NET jQuery 实例14 在ASP.NET form中校验时间范围

    下载地址:http://jqueryui.com/download,Theme选择Sunny 界面代码: 复制代码 代码如下: <form id="form1" runat="server"> <div align="center"> <fieldset style="width: 400px; height: 150px"> <table border="0" c

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

    复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <!--#include file="base64.asp"--> <% Function AspUrlDecode(strValue) Dim varAry, varElement, objStream, lngLoop, Flag strVal

  • ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase

    LCase:转成小写 UCase:转成大写 下面是ASP中的代码,可以直接演示效果的. 复制代码 代码如下: <% dim str,str1,str2 str="AbCdEf" str1=LCase(str) str2=UCase(str) Response.write("LCase转换小写"&str1 & ",UCase转换大写" & str2) %> 而.NET中将字符串转换为大写ToUpper(),将字符

  • asp页面提示Response 对象 错误 ASP 0156 : 80004005 HTTP 头错误

    其实这类问题就是因为缓存问题,大家可以参考下面的方法解决: 有些ASP页面第一次打开的时候会出现Response 对象 错误 'ASP 0156 : 80004005' HTTP 头错误,但刷新后又正常了,解决方法如下 复制代码 代码如下: Response.Buffer = True '应该是这行,去掉就ok '如果还不行就把 Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Res

  • ASP基础入门第三篇(ASP脚本基础)

    下面就先请大家跟我来学习一些ASP 中应用脚本语言(以VBScript 为主)的基础知识. 在开始学习脚本语言之前,你应该理解一些简单的概念 -- 变量.进程.所谓变量是计算机内存中已命名的存储位置,其中包含了数字或字符串等数据,它使用户便于理解脚本操作的名称,为用户提供了一种存储.检索和操作数据的途径.程序是由一个或多个进程组成的,在 VBScript 中,进程就是"指令块",通常意义上的进程,如 Sub,只是为了简单的数据处理. 在 VBScript 中,严格的来讲变量是不用声明的

  • asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载

    本程序由 飞飞Asp乐园 ffasp.com 开发本程序官方下载网址http://www.ffasp.com/content.asp?newsid=945飞飞As!p技术乐园***能说明: 基于AJAX树状目录显示  支持灵活的 目录添加.删除.修改.排序.栏目备注.栏目移动[向上] 支持 栏目选择 使用说明: 默认首页: index.asp 可以进行 目录添加.删除.修改.排序.栏目备注.栏目移动[向上] 栏目选择测试页面:columnshow.asp 栏目选择函数调用说明: 需要引用函数页:

  • [ASP.NET Ajax] ECMAScript基础类以及Asp.net Ajax对类&lt;Object&gt;的扩展

    "Everything is Object",在面向对象的编程语言中谁都知道这句话,但对我来说这是一种感觉,只可意会很难言传.由于我对JavaScript和薄弱,所以在看Asp.net Ajax类库的同时也翻出了ECMAScript顺便学习学习.在.NET中所有类都是继承自Object,同样在JS中也一样说有都继承Object,因此如果对Object进行了扩展,那所有继承Object类的后代肯定会拥有祖先的血缘. 既然开始学习JavaScript那就顺便在这里提一提他的原始数据类型,在

  • asp.net(C#) 动态添加非ASP的标准html控件（如添加Script标签）

    复制代码 代码如下: HtmlGenericControl Include2 = new HtmlGenericControl("script"); Include2.Attributes.Add("type", "text/javascript"); Include2.InnerHtml = "alert('JavaScript in Page Header');"; this.Page.Header.Controls.Ad

  • asp.net 多文件上传，兼容IE6/7/8，提供完整代码下载

    asp.net 多文件上传，兼容IE6/7/8，提供完整代码下载

    最终效果如下:现贴出核心代码如下: aspx里的代码: 复制代码 代码如下: <div style="text-align: center"> <div style="width: 200px;"> <input type="file" size="50" name="File" /> <span id="upload"></span

  • asp.net FCKeditor 2.6.3 配置说明

    它不需要安装任何形式的客户端,兼容绝大多数主流浏览器,支持ASP.Net.ASP.ColdFusion .PHP.Java.Active-FoxPro.Lasso.Perl.ython 等编程环境. 官方网站 http://www.fckeditor.net/ 官方文档 http://wiki.fckeditor.net/ 下载地址 http://www.fckeditor.net/download/default.htmlFCKeditor安装和配置 下载FCKeditor2.63.zip和F

随机推荐