Função de conversão de texto UTF-8 para sistemas legados

Em ASP, um simples conversor que fiz no meu serviço para converter código UTF-8 para os caracteres mais utilizados (como em um texto) para caracteres corretos. Isto é muito útil quando temos sites totalmente em UTF-8 e apenas algum componente não consiga ler os caracteres. Este código pode provavelmente ser migrado para outra linguagem:


function UTF8_ANSI(x)
    ' Check if do you are using the codepage 1252 or this script doesn't works properly.
    ' Verifique se você está usando o código de página 1252 ou este não funcionará corretamente.
    ' <.%@LANGUAGE="VBSCRIPT" CODEP A G E = "1252" %.>
    Cod = second(now()) + minute(now())
    x=replace(x,chr(226)&chr(128)&chr(156),chr(34))
    x=replace(x,chr(226)&chr(128)&chr(157),chr(34))
    x=replace(x,chr(226)&chr(128)&chr(147),chr(150))
    for ife = 1 to 191 : x=replace(x,chr(195)&chr(ife),chr(ife+64)) : next
    UTF8_ANSI=x
end function

Com isto será possível codificar os caracteres corretamente.