ASP中URLdecode

最新推荐文章于 2017-10-18 09:58:40 发布

knife_yu

最新推荐文章于 2017-10-18 09:58:40 发布

阅读量795

点赞数

分类专栏： ASP 文章标签： asp function c

本文链接：https://blog.csdn.net/knife_yu/article/details/6592115

版权

ASP 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Public Function URLDecode(ByVal data, ByVal charset)
  Dim strm
  Set strm = Server.CreateObject("ADODB.Stream")
  With strm
  .type = 2
  .charset = "iso-8859-1"
  .open
  .writeText unescape(data)
  .position = 0
  .charset = charset
  URLDecode = .readText(-1)
  .close
  End With
  Set strm = Nothing
End Function

Response.Write URLDecode("%B4%F3%BC%D2%BA%C3%B0%A1", "GB2312") & "<br/>"
Response.Write URLDecode("%E5%A4%A7%E5%AE%B6%E5%A5%BD%E5%95%8A", "UTF-8") & "<br/>" 
Response.Write URLDecode("http%3A%2F%2Fwww.dangdang.com%2F", "UTF-8") & "<br/>"