使用Asp.net可执行 UrlEncode 并对其进行转码的程序

发布时间：2023-09-07 11:37:02 所属栏目：Asp教程来源：

导读：使用Asp.net可执行 UrlEncode 并对其进行转码的程序

'==================================================
'函数名：UrlEncoding
'作用：转换编码
'=====================================

使用Asp.net可执行 UrlEncode 并对其进行转码的程序

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

（编辑：汽车网）

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