该urldecode解码功能功能urlencodeASP

下面的代码是从科汛系统删除，这是很好的支持UTF8格式。
复制代码代码如下所示：
================================================
功能名称：URLDecode
影响：URL解码
================================================
函数的URLDecode（ByVal urlcode）
朦胧的开始，最终，长度，char，我butf8，通
昏暗的leftstr，rightstr，finalstr
昏暗的B0，B1，BX，blength，位置，U，UTF8
下次继续出错

B0 =阵（192224240248252254）
urlcode =取代（urlcode，+
通过= 0
UTF8 = - 1

长度为len（urlcode）：开始=仪器（urlcode，%）：最后的= instrrev（urlcode，%）
如果开始= 0或长度＜3 URLDecode = urlcode：退出功能
leftstr =左（urlcode，启动1）：rightstr =右（urlcode，长度2决赛）

为我=开始到最后
字符=中（urlcode，I，1）
如果% 然后
BX = urldecode_hex（MID（urlcode，我+ 1,2））
如果BX＞31和＜128然后BX
i = i + 2
finalstr = finalstr ChrW（BX）
BX > 127
i = i + 2
如果UTF8＜0则
butf8 = 1：blength = 1：B1 = BX
对于位置= 4到0步- 1
如果B1 B0（位置）和< > B1 B0（位置1）然后
blength =位置
退出
最后如果
下一个
如果blength > 1则
blength位置= 0
B1 = urldecode_hex（MID（urlcode，我+位置* 3 + 2））
如果B1 191然后butf8 = 0：退出
下一个
其他的
butf8 = 0
最后如果
如果butf8 = 1和blength = 0然后butf8 = - 2
如果butf8 > 1 = 2 = utf8之后我开始1：finalstr = ：通过= 1
butf8 UTF8 =
最后如果
如果通行证＝0
如果UTF8 = 1
B1 = BX：U = 0：blength = - 1
对于位置= 4到0步- 1
如果B1 B0（位置）和< > B1 B0（位置1）然后
blength =位置
B1 =（B1异或B0（位置））* 64 ^（位置1）
退出
最后如果
下一个
如果blength > 1则
blength位置= 0
BX = urldecode_hex（MID（urlcode，我+ 2））：我=我+ 3
如果BX 191 U = 0：退出
U = U +（BX和63）* 64 ^（blength位置）
下一个
如果你> 0然后finalstr = finalstr ChrW（B1 + U）
最后如果
其他的
B1 = BX×H100：U = 0
BX = urldecode_hex（MID（urlcode，我+ 2））
如果BX > 0
U = B1 + bx
i = i + 3
其他的
如果左（urlcode，1）=%然后
U = B1 + ASC（MID（urlcode，我+ 3,1））
i = i + 2
其他的
U = B1 + ASC（MID（urlcode，我+ 1））
i = i + 1
最后如果
最后如果
finalstr = finalstr CHR（U）
最后如果
其他的
通过= 0
最后如果
最后如果
其他的
finalstr = finalstr字符
最后如果
下一个
leftstr finalstr rightstr urldecode =
端功能

功能urldecode_hex（一个小时）
下次继续出错
H =H装饰（H）：urldecode_hex = - 1
如果Len（h）则退出函数< > 4
如果ISNUMERIC（H）然后urldecode_hex = Cint（H）
端功能