ASP学urldecode方法的两个函数

asp 里面没有urldecode函数，好象aspx里有吧，我不太清楚，但asp里面还是用得很多。在网上查找了有别人写的urldecode函数，但是这个函数有错误，而且在一些方面写得比较难理解。而且有错误，当里面有生僻双字节文字时就会产生错误，如“乄”经urlencoder后为“%81W”，解码就不能成功。

如下面这个函数

function urldecode(encodestr) 
    newstr="" 
    havechar=false 
    lastchar="" 
    for i=1 to len(encodestr) 
      char_c=mid(encodestr,i,1) 
      if char_c="+" then 
      newstr=newstr & " " 
      elseif char_c="%" then 
      next_1_c=mid(encodestr,i+1,2) 
      next_1_num=cint("&h" & next_1_c) 

      if havechar then 
      havechar=false 
      newstr=newstr & chr(cint("&h" & lastchar & next_1_c)) 
      else 
      if abs(next_1_num)<=127 then 
      newstr=newstr & chr(next_1_num) 
      else 
      havechar=true 
      lastchar=next_1_c 
      end if 
      end if 
      i=i+2 
      else 
      newstr=newstr & char_c 
      end if 
    next 
    urldecode=newstr 
end function

其实双字节编码在这里只要把"W"也编成16进制ASC码就可以。

知识点：计算机里的cookie也是经过urlencode编码的，所以urldecode对破解cookie也很有用呵。

下面是源代码：

'-----------另外一个函数
Function URLDecode(enStr)
    Dim deStr
    Dim c, i, v
    deStr = ""
    For i = 1 To Len(enStr)
        c = Mid(enStr, i, 1)
        If c = "%" Then
            v = Eval("&h" + Mid(enStr, i + 1, 2))
            If v < 128 Then
                deStr = deStr & Chr(v)
                i = i + 2
            Else
                If isvalidhex(Mid(enStr, i, 3)) Then
                    If isvalidhex(Mid(enStr, i + 3, 3)) Then
                        v = Eval("&h" + Mid(enStr, i + 1, 2) + Mid(enStr, i + 4, 2))
                        deStr = deStr & Chr(v)
                        i = i + 5
                    Else
                        v = Eval("&h" + Mid(enStr, i + 1, 2) + CStr(Hex(Asc(Mid(enStr, i + 3, 1)))))
                        deStr = deStr & Chr(v)
                        i = i + 3
                    End If
                Else
                    deStr = deStr & c
                End If
            End If
        Else
            If c = "+" Then
                deStr = deStr & " "
            Else
                deStr = deStr & c
            End If
        End If
    Next
    URLDecode = deStr
End Function

Function isvalidhex(str)
    Dim c
    isvalidhex = True
    str = UCase(str)
    If Len(str) <> 3 Then
        isvalidhex = False
        Exit Function
    End If
    If Left(str, 1) <> "%" Then
        isvalidhex = False
        Exit Function
    End If
    c = Mid(str, 2, 1)
    If Not (((c >= "0") And (c <= "9")) Or ((c >= "A") And (c <= "Z"))) Then
        isvalidhex = False
        Exit Function
    End If
    c = Mid(str, 3, 1)
    If Not (((c >= "0") And (c <= "9")) Or ((c >= "A") And (c <= "Z"))) Then
        isvalidhex = False
        Exit Function
    End If
End Function

你用此方法解码“%81W”看看，可以了。

当然，你还可以玩点小段，使之成为自己的一种字符串加密方式。

Asp教程

通过asp实例结合结合ACCESS,MSSQL来更好的深入Asp学习 - 爬坡者

导航

2007-11-16 14:28:37

Tags: asp函数收集

发布:asp教程 | 分类:asp函数收集 | 评论:0 | 引用:0 | 浏览:

最新评论及回复

最近发表

Powered By Z-Blog 1.8 Spirit Build 80710

Copyright 2007-2008 papozhe.com [asp教程] All Rights Reserved.
浙ICP备07030537号
免责申明：所有文章除特别声明，均来自网上，主要为学习用！内容仅供参考，版权归原作者。如侵犯您利益，请来信告知.
Email:papozhe$Gmail.com QQ:76336503