ASP怎么把GBK字符换为UTF8字符

Function GBtoUTF8(szInput)  Dim wch, uch, szRet  Dim x  Dim nAsc, nAsc2, nAsc3   '如果输入参数为空，则退出函数  If szInput = "" Then  GBtoUTF8= szInput  Exit Function  End If   '开始转换  For x = 1 To Len(szInput)  wch = Mid(szInput, x, 1)  nAsc = AscW(wch)   If nAsc < 0 Then nAsc = nAsc + 65536   If (nAsc And &HFF80) = 0 Then  szRet = szRet & wch  Else If (nAsc And &HF000) = 0 Then  uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)  szRet = szRet & uch Else uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _  Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _  Hex(nAsc And &H3F Or &H80) szRet = szRet & uch End If End If Next  GBtoUTF8= szRet End Function