繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp base64 utf-8为了兼容asp.net的base64
- ASP
- 自动清空站点目录下所有文件
- ASPEMAIL通过Mdaemon的SMTP发信－recipient unknow处理办法
- 使用split分割多字符的字符串的方法
- ASP调用oracle存储过程
- ASP访问INTERBASE数据库
- 利用Session限制重复操作的简单方法
- 一个socket组件及其调用方法
- ASP模仿asp.net的DataGrid
- 利用ASP技术实现文件直接上传功能
- 微软建议的ASP性能优化28条守则
- 温柔的杀手—跨站ASP Script攻击
- aspjpeg组件高级使用方法介绍
- asp+sqlserver 分页方法（不用存储过程）
- Windows 2003上传文件不能超过200k解决方法
- 一个比较实用的asp函数集合类
- WebClasses使注册变得容易
- ASP对FoxPro自由表(DBF文件)的操作
- HTTP_REFERER的工作方式
- 抓取动网论坛Email地址的一段代码
- ASP+FSO+框架实现ASP生成htm并分页的方法(批量)
ASP 中的 asp base64 utf-8为了兼容asp.net的base64
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 576 ::
收藏到网摘: n/a
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) All
