用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > Asp編程 > Asp 應用

ASP URL編碼自動識別的解碼函數

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2011-05-17 18:52:32

以下這個函數可以自動識別URL編碼并解碼。

ASP code復制代碼
<%
Function URLDecode(ByVal s)
    s = UnEscape(s)
    Dim cs : cs = "GBK"
    With New RegExp  
        .Pattern = "^(?:[\x00-\x7f]|[\xe0-\xef][\x80-\xbf]{2})+$"
        If .Test(s) Then cs = "UTF-8"
    End With
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Open
        .CharSet = "iso-8859-1"
        .WriteText s
        .Position = 0
        .CharSet = cs
         URLDecode = .ReadText(-1)
        .Close
    End With
End Function


Response.write(URLDecode("%D0%C2%D0%CB%CD%F8%C2%E7"))
Response.write "<br />"
Response.write(URLDecode("%E6%96%B0%E5%85%B4%E7%BD%91%E7%BB%9C"))

%>

Tags:URL編碼 URL解碼 GBK UTF-8 GB2312

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      100%(1)
  • 差的評價 如果您覺得此文章差,就請您
      0%(0)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論
175哪个门派赚钱快 陕西十一选五任三遗漏 河北11选5玩法规则 怎么买股票指数基金 宁夏十一选五app下载 极速时时彩组6在线计划 陕西11选5走势图手机版 成都有哪些配资公司 辽宁快乐12跨度走势图分布图 龙江风采p62开奖结果 福建31选7和36选7联合走势图