详解ASP编码和解码函数

2024-05-04 11:05:38

字体：大中小

来源：转载

供稿：网友

在asp中使用request获取编码的url字符串将自动解码，那么，大家知道详解ASP编码和解码函数吗？下面错新技术频道小编就为大家详细介绍，希望能帮助到你。
ASP解码函数：

Function 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("&h"+Mid(enStr,i+1,2))     if inStr(strSpecial,chr(v))>0 then      deStr=deStr&chr(v)      i=i+2     else     v=eval("&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   URLDecode=deStr End function

只是个人爱好，自己研究了一下编码的实现思路，最后自己写了一个编码函数，提供大家参考。注：ASP有内置的编码函数，即是Server.URLEncode。

ASP编码函数：

private Function URLEncoding(vstrIn)   strReturn = ""  For i = 1 To Len(vstrIn)   ThisChr = Mid(vStrIn,i,1)   If Abs(Asc(ThisChr)) < &HFF Then   strReturn = strReturn & ThisChr   Else   innerCode = Asc(ThisChr)   If innerCode < 0 Then   innerCode = innerCode + &H10000   End If   Hight8 = (innerCode And &HFF00)/ &HFF   Low8 = innerCode And &HFF   strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)   End If   Next   URLEncoding = strReturn End Function

建议大家在中文编码的时候，还是使用ASP 内置的函数。虽然上面这个编码函数测试过N 遍了，没有发现问题，但是以防万一存在Bug。

以上就是错新技术频道小编为大家带来的详解ASP编码和解码函数，看了以上的介绍，对大家学习这方面知识有没有帮助呢？感兴趣的话请继续关注我们的吧！

上一篇：ASP实现类似hashMap功能的类

下一篇：ASP 连接Access数据库的登陆系统