asp.net公认的补码为utf-8,当与其它阳台交互操持的字符串中有中文时往往会产生乱码,这是由于其它平台多采取GB2312编码,要克服这壹
问题,可编写一个因变量,对字符串先转换再处理就行了,下面是该函数的
源代码:
Imports System.Math
Function URLEncoding(ByVal vstrIn As String)
Dim strReturn As String
strReturn = ""
Dim i As Integer
Dim ThisChr As String
Dim innerCode, Hight8, Low8 As Integer
For i = 1 To vstrIn.Length
ThisChr = Mid(vstrIn, i, 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