Chinese garbled problem in ASP.

The default encoding for ASP. Utf-8, when there is Chinese in the string interacting with other platforms often garbled, this is because the other platform to take GB2312 encoding, to solve this problem, you can write a function, the string is converted and then processed on the line, the following is the source code of the function:

Imports system.mathfunction urlencoding (ByVal Vstrin As String)   Dim strreturn As String   strreturn = ""   Dim i A s 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                 Inn ErCode = ASC (THISCHR)           if Innercode < 0 then                Innercode = Innercode + &h10000           End if           Hight8 = (in Nercode and &HFF00)/&hff           Low8 = Innercode and &hff           strreturn = strreturn & "%" & Hex (Hight 8) & "%" & Hex (LOW8)      End If Next urlencoding = Strreturnend Function