首页  »   VB

求大神通译

网友分享于:2013-01-01  浏览:4次
求大神翻译!
初学者 求大神翻译。
Public Function URLEncode(ByVal strParameter As String) As String
            Dim s     As String
            Dim i     As Integer
            Dim intValue     As Integer
            Dim TmpData()     As Byte
            s = " "
            TmpData = StrConv(strParameter, vbFromUnicode)
            For i = 0 To UBound(TmpData)
                    intValue = TmpData(i)
                    If (intValue >= 48 And intValue <= 57) Or _
                            (intValue >= 65 And intValue <= 90) Or _
                            (intValue >= 97 And intValue <= 122) Then
                            s = s & Chr(intValue)
                    ElseIf intValue = 32 Then
                            s = s & "+ "
                    Else
                            s = s & "%" & Hex(intValue)
                    End If
            Next i
            URLEncode = s

------解决方案--------------------
Public Function URLEncode(ByVal strParameter As String) As String
    Dim s     As String
    Dim i     As Integer
    Dim intValue     As Integer
    Dim TmpData()     As Byte
    s = " "
    TmpData = StrConv(strParameter, vbFromUnicode) '将字符串转换成字节数组
    For i = 0 To UBound(TmpData) '循环字节数组
上一页1/2下一页

相关解决方案

最新解决方案