回wideroad() :
  就是说,在生成网页的时候,那些我输入的文本应该格式不会改变.因为在html的textarea中的文本格式是不能被区分的,所有的文字都会连起来.
不好意思,没有说明白~~

解决方案 »

  1.   

    Replace(textarea,vbcrlf,"</br>")
    把文本框里边的vbcrlf 转化为</br> 就可以在Html中显示出换行
      

  2.   

    Function HTMLEncode(ByVal reString) 
    Dim Str:Str=reString
    If Not IsNull(Str) Then
    Str = Replace(Str,"&","&amp;")
        Str = Replace(Str, ">", "&gt;")
    Str = Replace(Str, "<", "&lt;")
        Str = Replace(Str, CHR(9), "&nbsp;")
        Str = Replace(Str, CHR(39), "&#39;")
         Str = Replace(Str, CHR(34), "&quot;")
    Str = Replace(Str, CHR(13), "")
    Str = Replace(Str, CHR(10), "<br/>")
    HTMLEncode = Str
    End If
    End Function