Se innerHTML contiver espaços e retornos de carro, será considerado o final do parágrafo, causando erros de execução do programa. A solução é substituir espaços e retornos de carro durante a saída para facilitar as chamadas js.
O código é o seguinte:
Copie o código do código da seguinte forma:
Função SubstituirEx(strOri,replStr)
Definir regEx=Novo RegExp
regEx.Global = Verdadeiro
regEx.MultiLine = Verdadeiro
regEx.Pattern="/r/n"
regEx.IgnoreCase = Verdadeiro
SubstituirEx=regEx.Replace(strOri,replStr)
Função final
shuoming = substituir(rs("shuoming")," "," ")
shuoming=SubstituirEx(shuoming,"<br>")
Desta forma, não haverá erros na saída após a substituição! Quando eu estava processando, eu poderia usar a função replace para substituir espaços, mas substituir retornos de carro e feeds de linha nunca funcionou. !