首页 > > 网络编程 > Asp编程 >

详解ASP编码和解码函数

2019-10-25 06:33:32来源：爱站网阅读 ()

在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编码和解码函数，看了以上的介绍，对大家学习这方面知识有没有帮助呢？感兴趣的话请继续关注我们的吧！

原文链接:https://js.aizhan.com/develop/asp/9608.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有