<textarea>(在线到6点)

Public Function ConvertString(ByVal str As String) As String
        str = str.Replace(" ", " ")
        str = str.Replace(Microsoft.VisualBasic.vbCrLf, "<br>")
        Return str
    End Function存的时候转一下，输出的时候直接response.write 到页面上就可以了