asp对中文编码及解码,Decode和Encode中文网址处理
<%'--------------------------------------------------------------------------
'==============================================================
'功能：ASP Server对象内置编码函数
'描写叙述：没有相应的解码函数
'==============================================================
Function VB_URLEncode(enStr)
VB_URLEncode = Server.URLEncode(enStr)
End Function
'==============================================================
'功能：Server.URLEncode()的解码函数
'描写叙述：眼下该函数还未完好
' 当本页面为UTF-8编码时。源字符串中包括例如以下格式子字符串时：
' "编码aa測aa试"
' 函数无法对VB_URLEncode()之后的编码进行解码
' 当本页面为GB2312编码是。该函数工作正常。
'==============================================================
Function VB_URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
For i=1 To len(enStr)
c=Mid(enStr,i,1)
If c="%" Then
v=eval_r("&h"+Mid(enStr,i+1,2))
If inStr(strSpecial,chr(v))>0 Then
deStr=deStr&chr(v)
i=i+2
Else
v=eval_r("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
deStr=deStr & chr(v)
i=i+5
End If
Else
If c="+" Then
deStr=deStr&" "
Else
deStr=deStr&c
End If
End If
Next
VB_URLDecode=deStr
End Function
'===========================================
'功能：对中文字符进行编码。由GB2312转换为UTF-8
'描写叙述：与UTF8toGB()互逆
' 编码后的格式可用于页面之间的数据传递，但无法
' 正确显示在HTML页面，须要UTF8toGB()解码。
'===========================================
Function VB_GBtoUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'假设输入參数为空，则退出函数
If szInput = "" Then
VB_GBtoUTF8 = szInput
Exit Function
End If
'開始转换
For x = 1 To Len(szInput)
'利用mid函数分拆GB编码文字
wch = Mid(szInput, x, 1)
'利用ascW函数返回每个GB编码文字的Unicode字符代码
'注：asc函数返回的是ANSI 字符代码，注意差别
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
'GB编码文字的Unicode字符代码在0800 - FFFF之间採用三字节模版
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End If
End If
Next
VB_GBtoUTF8 = szRet
End Function
'===========================================
'功能：对中文字符进行编码。由UTF-8转换为GB2312
'描写叙述：VB_GBtoUTF8()的解码函数
'===========================================
Function VB_UTF8toGB(UTFStr)
For Dig=1 To len(UTFStr)
'假设UTF8编码文字以%开头则进行转换
If mid(UTFStr,Dig,1)="%" Then
'UTF8编码文字大于8则转换为汉字
If len(UTFStr) >= Dig+8 Then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
Else
GBStr=GBStr & mid(UTFStr,Dig,1)
End If
Else
GBStr=GBStr & mid(UTFStr,Dig,1)
End If
Next
VB_UTF8toGB=GBStr
End Function
'UTF8编码文字将转换为汉字
Function ConvChinese(x)
A=split(mid(x,2),"%")
i=0
j=0
For i=0 To ubound(A)
A(i)=c16to2(A(i))
Next
For i=0 To ubound(A)-1
DigS=instr(A(i),"0")
Unicode=""
For j=1 To DigS-1
If j=1 Then
A(i)=right(A(i),len(A(i))-DigS)
Unicode=Unicode & A(i)
Else
i=i+1
A(i)=right(A(i),len(A(i))-2)
Unicode=Unicode & A(i)
End If
Next
If len(c2to16(Unicode))=4 Then
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
Else
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
End If
Next
End Function
'二进制代码转换为十六进制代码
Function c2to16(x)
i=1
For i=1 To len(x) step 4
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
Next
End Function
'二进制代码转换为十进制代码
Function c2to10(x)
c2to10=0
If x="0" Then Exit Function
i=0
For i= 0 To len(x) -1
If mid(x,len(x)-i,1)="1" Then c2to10=c2to10+2^(i)
Next
End Function
'十六进制代码转换为二进制代码
Function c16to2(x)
i=0
For i=1 To len(trim(x))
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
Do While len(tempstr)<4
tempstr="0" & tempstr
Loop
c16to2=c16to2 & tempstr
Next
End Function
'十进制代码转换为二进制代码
Function c10to2(x)
mysign=sgn(x)
x=abs(x)
DigS=1
Do
If x<2^DigS Then
Exit Do
Else
DigS=DigS+1
End If
Loop
tempnum=x
i=0
For i=DigS To 1 step-1
If tempnum>=2^(i-1) Then
tempnum=tempnum-2^(i-1)
c10to2=c10to2 & "1"
Else
c10to2=c10to2 & "0"
End If
Next
If mysign=-1 Then c10to2="-" & c10to2
End Function
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title>字符编码測试</title>
</head>
<style type="text/css">
body{ margin:20px 10px; line-height: 140%; font-size:12px; color:blue;}
</style>
<body>
<%
On Error Resume Next
str = "##testingTest$$##编码aa測aa试aa##!!67&#=;"
Response.Write("源字符串: " & str & "<BR>")
str1 = VB_URLEncode(str)
str2 = VB_URLDecode(str1)
Response.Write("VB_URLEncode: " & str1 & "<BR>")
Response.Write("VB_URLDecode: " & str2 & "<BR>")
If str2 = str Then Response.Write("结果==>解码正确, URLEncode对字符串中除26个英文字母(包含大写和小写)之外的全部字符都进行编码，中文字符为2字节，非中文字符1字节<BR>")
Response.Write("------------------------------------------------------- <BR>")
str3 = VB_GBtoUTF8(str)
str4 = VB_UTF8toGB(str3)
Response.Write("VB_GBtoUTF8: " & str3 & "<BR>")
Response.Write("VB_UTF8toGB: " & str4 & "<BR>")
If str4 = str Then Response.Write("结果==>解码正确，GBtoUTF8仅仅对中文字符编码，按每一个中文字符3字节编码<BR>")
Response.End()
%>
</body>
</html>
asp对中文编码及解码,Decode和Encode中文网址处理的更多相关文章
- python 编码与解码 decode解码 encode 编码
>>> '无' #gbk字符'\xce\xde'>>> str1 = '\xce\xde'>>> str1.decode('gbk') # ...
- javascript处理HTML的Encode(转码)和解码(Decode)
HTML的Encode(转码)和解码(Decode)在平时的开发中也是经常要处理的,在这里总结了使用javascript处理HTML的Encode(转码)和解码(Decode)的常用方式 一.用浏览器 ...
- Python3的decode()与encode()
python3的decode()与encode() Tags: Python Python3 对于从python2.7过来的人,对python3的感受就是python3对文本以及二进制数据做了比较清晰 ...
- pyhton字符编码问题--decode和encode方法
1 decode和encode方法 字符串在Python内部的表示是unicode编码,因此,在做编码转换时,通常需要以unicode作为中间编码,即先将其他编码的字符串解码(decode)成uni ...
- 【Python】关于decode和encode
#-*-coding:utf-8 import sys ''' *首先要搞清楚,字符串在Python内部的表示是unicode编码,因此,在做编码转换时,通常需要以unicode作为中间编码, 即先将 ...
- python中decode和encode的区别
#-*-coding:utf-8 import sys ''' *首先要搞清楚,字符串在Python内部的表示是unicode编码,因此,在做编码转换时,通常需要以unicode作为中间编码, 即先将 ...
- python编码问题 decode与encode
参考: http://www.jb51.net/article/17560.htm 如果要在python2的py文件里面写中文,则必须要添加一行声明文件编码的注释,否则python2会默认使用ASCI ...
- ExtJs中decode与encode(转载)
出自:http://blog.163.com/xiao_mege/blog/static/72942753201102693545195/ 在述说这个例子之前,我假想你已经知道什么是Json数据了,那 ...
- python decode和encode
摘抄: 字符串在Python内部的表示是Unicode编码,因此,在做编码转换时,通常需要以unicode作为中间编码,即先将其他编码的字符解码(decode)成unicode,再从unicode编码 ...
随机推荐
- ajax dome案例
一.首先HTML页面 <!DOCTYPE html> <html lang="en"> <head> <meta charset=&quo ...
- MHA 高可用集群搭建（二）
MHA 高可用集群搭建安装scp远程控制http://www.cnblogs.com/kevingrace/p/5662839.html yum install openssh-clients mys ...
- iOS知识列表
Xib和StoryBoard,自动布局地图导航,实时公交,第三方地图应用本地推送通知,网络推送通知,真机调试,应用上传绘图,图表,曲线图 Xcode使用技巧多线程,runtime机制编码解码,加密设备 ...
- 【Openjudge】岛屿（并查集）
题目链接 此题是并查集.考虑到水位不断上涨,所以将时间倒转.先统计最后一天的联通块个数,每一天浮出水面的块进行计算.复杂度O(玄学). 代码如下 #include<cstdio> #inc ...
- [HDU-5536] Chip Factory (01字典树)
Problem Description John is a manager of a CPU chip factory, the factory produces lots of chips ever ...
- [COI2007] Patrik 音乐会的等待 (单调栈,模拟)
题目描述 N个人正在排队进入一个音乐会.人们等得很无聊,于是他们开始转来转去,想在队伍里寻找自己的熟人.队列中任意两个人A和B,如果他们是相邻或他们之间没有人比A或B高,那么他们是可以互相看得见的. ...
- 【kmp+最小循环节】poj 2406 Power Strings
http://poj.org/problem?id=2406 [题意] 给定字符串s,s=a^n,a是s的子串,求n最大是多少 [思路] kmp中的next数组求最小循环节的应用 例如 ababab ...
- 线程池的使用。好文。mark【http://blog.csdn.net/rwecho/article/details/21157289】
介绍new Thread的弊端及Java四种线程池的使用,对Android同样适用.本文是基础篇,后面会分享下线程池一些高级功能. 1.new Thread的弊端执行一个异步任务你还只是如下new T ...
- centos7 下修改网络配置
修改ip地址 编辑 /etc/sysconfig/network-scripts/ifcfg-eth0 TYPE=Ethernet BOOTPROTO=static 静态ip DEFROUTE=yes ...
- NOJ1203 最多约数问题 [搜索 数论]
传送门 njczy2010 1203 Accepted 79MS 1400K 2321Byte G++ 2015-01-25 13:14:25.0 最多约数问题 时间限制(普通/Java) : 2 ...