zoukankan      html  css  js  c++  java
  • ◎UrlEncode 与 ◎UrlDeCode对应Lotusscript

    Function urlEncode(s As String) As String
    If Len(s) = 0 Then Exit Function

    Dim tmp As String
    Dim c As String
    Dim i As Integer

    For i = 1 To Len(s)
    c = Mid(s, i, 1)
    If (Asc(c) >= 65 And Asc(c) <= 90) _
    Or (Asc(c) >= 97 And Asc(c) <= 122) _
    Or (Asc(c) >= 48 And Asc(c) <= 58) _
    Or Asc(c) = 38 _
    Or (Asc(c) >= 45 And Asc(c) <= 47) _
    Or Asc(c) = 58 Or Asc(c) = 61 _
    Or Asc(c) = 63 Or Asc(c) = 126 Then
    tmp = tmp + c
    Else
    tmp = tmp + "%" + Hex(Asc(c))
    End If
    Next i
    urlEncode = tmp
    End Function

    Function urlDecode(s As String) As String
    If Len(s) = 0 Then Exit Function
    Dim i As Integer
    Dim tmp As String
    Dim c As String
    For i = 1 To Len(s)
    c = Mid$(s, i, 1)
    If c = "+" Then c = " "
    If c = "%" Then
    c = Chr$("&H" + Mid$(s, i + 1, 2))
    i = i + 2
    End If
    tmp = tmp + c
    Next i
    urlDecode = tmp
    End Functionn

  • 相关阅读:
    文件操作3
    文件操作2
    kubernetes快速应用入门
    kubeadm初始化kubernetes集群
    kubernetes基础概念
    变量
    字面值
    关键字
    标识符
    Ubuntu安装MySql5.7
  • 原文地址:https://www.cnblogs.com/blackbean/p/2094911.html
Copyright © 2011-2022 走看看