当前位置：主页 > 查看内容

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

发布时间：2021-07-24 00:00| 有 位朋友查看

简介：'================================================== '函数名：UrlEncoding '作用：转换编码 '================================================== FunctionUrlEncoding(DataStr) DimStrReturn,Si,ThisChr,InnerCode,Hight8,Low8 StrReturn="" ForSi=1ToL……
'==================================================
'函数名：UrlEncoding
'作  用：转换编码
'==================================================
Function UrlEncoding(DataStr)
    Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
    StrReturn = ""
    For Si = 1 To Len(DataStr)
        ThisChr = Mid(DataStr,Si,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

原文链接：https://m.jb51.net/article/11221.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：W3C教程(5):W3C XML 活动 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐