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

asp下实现UrlEncoding变换编码的代码：

'==================================================

'函数名：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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!