gpt4 book ai didi

asp下实现UrlEncoding转换编码的代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 29 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp下实现UrlEncoding转换编码的代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. '==================================================  
  2. '函数名:UrlEncoding  
  3. '作  用:转换编码  
  4. '==================================================  
  5. Function UrlEncoding(DataStr)  
  6.     Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8  
  7.     StrReturn = ""  
  8.     For Si = 1 To Len(DataStr)  
  9.         ThisChr = Mid(DataStr,Si,1)  
  10.         If Abs(Asc(ThisChr)) < &HFF Then  
  11.             StrReturn = StrReturn & ThisChr  
  12.         Else  
  13.             InnerCode = Asc(ThisChr)  
  14.             If InnerCode < 0 Then  
  15.                InnerCode = InnerCode + &H10000  
  16.             End If  
  17.             Hight8 = (InnerCode  And &HFF00)\ &HFF  
  18.             Low8 = InnerCode And &HFF  
  19.             StrReturn = StrReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)  
  20.         End If  
  21.     Next  
  22.     UrlEncoding = StrReturn  
  23. End Function 

最后此篇关于asp下实现UrlEncoding转换编码的代码的文章就讲到这里了,如果你想了解更多关于asp下实现UrlEncoding转换编码的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com