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不胜感谢

解决方案 »

  1.   

    private URLEncoding(string ByVal vstrIn)
    {
    string strReturn;
    strReturn = "";

    string ThisChr;
    int innerCode,Hight8,Low8;

    for(int i=1;i<vstrIn.Length;i++)
    {
        ThisChr = Mid(vstrIn,i,1)
        if(Abs(Asc(ThisChr))<&HFF)
        {
         strReturn = strReturn && ThisChr
                 }
        else
                {
                 innerCode = Asc(ThisChr)
         if(innerCode < 0)
                 {
                   innerCode=innerCode + &H10000
                 }
                 Hight8=(innerCode && &HFF00)\&HFF
         Low8 = innerCode && &HFF
         strReturn = strReturn + "%" + Hex(Hight8) + "%" + Hex(Low8)
                }
    }
    URLEncoding = strReturn
    }