Acento codificado

[paginad 0]

Galera, bom dia.

 

Eu tenho um sistema que usa os editores HTML para inserir uma notícia na base de dados. O problema que nao sei onde nesse editor está convertendo os acentos para os caracteres ASCII ou caracteres especiais. Tipo o acento ã está assim: (& # 2 2 7 ; ) Coloquei espaçado aqui senao iria converter.

 

O bando de dados está inteiro com essa codificação nos acentos. Preciso de uma função ou algo nativo do ASP para dar um replace nesses acentos codificados.

 

Alguem pode me ajudar nessa?

[nagaozen 1]

Algumas funções úteis relacionadas ao seu problema.

 

function unlatinize(value)
	const sChar = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÇÑÝàáâãäåèéêëìíîïòóôõöùúûüçñýÿ"
	const sRepl = "AAAAAAEEEEIIIIOOOOOUUUUCNYaaaaaaeeeeiiiiooooouuuucnyy"
	dim p
	for p = 1 to len(sChar)
		value = replace(value, mid(sChar, p, 1), mid(sRepl, p, 1))
	next
	unlatinize = value
end function

function latinEncode(value)
	dim saRepl, p
	const sChar = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÇÑÝàáâãäåèéêëìíîïòóôõöùúûüçñýÿ"
	saRepl = array("À", "Á", "Â", "Ã", "Ä", "Å", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ò", "Ó", "Ô", "Õ", "Ö", "Ù", "Ú", "Û", "Ü", "Ç", "Ñ", "Ý", "à", "á", "â", "ã", "ä", "å", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ò", "ó", "ô", "õ", "ö", "ù", "ú", "û", "ü", "ç", "ñ", "ý", "ÿ")
	for p = 1 to len(sChar)
		value = replace(value, mid(sChar, p, 1), saRepl(p - 1))
	next
	latinEncode = value
end function

function latinDecode(value)
	dim saRepl, p
	const sChar = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÇÑÝàáâãäåèéêëìíîïòóôõöùúûüçñýÿ"
	saRepl = array("À", "Á", "Â", "Ã", "Ä", "Å", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ò", "Ó", "Ô", "Õ", "Ö", "Ù", "Ú", "Û", "Ü", "Ç", "Ñ", "Ý", "à", "á", "â", "ã", "ä", "å", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ò", "ó", "ô", "õ", "ö", "ù", "ú", "û", "ü", "ç", "ñ", "ý", "ÿ")
	for p = 1 to len(sChar)
		value = replace(value, saRepl(p - 1), mid(sChar, p, 1))
	next
	latinDecode = value
end function

Espero que ajude,

 

Atenciosamente,

 

Fabio Zendhi Nagao (nagaozen)