数据库存录入时用:
<%
Function gfGetHtm2(str)
str=replace(str,vbcrlf,"<br>")
gfGetHtm2=str
End Function
%>
数据库中读出时用:<%
Function gfGetHtml(str)
str=replace(str,"<br>",vbcrlf)
gfGetHtml=str
End Function 
%>
将数据在文本框中读出再保存一次的话,所有换行格式消失。
检查发现数据库中文本无<br>标记,也就是没有转换成功。
如何解决此问题呢?

解决方案 »

  1.   

    是不是AJAX会改变这个呢,怎么没高手帮忙的?
      

  2.   

    文本框中不是vbcrlf的,自动取消了.你是单行文本框吗?
      

  3.   

    你的目的是什么?
    保存的时候不存储HTML代码,显示的时候输出HTML代码?
    如果是这样,你的程序作得又不够干净,因为如果代码中有“<br>”,那么就指不定还有很么“<B><A href...>”之类的。
    你只做这个处理毫无疑义。
    如果没有“<br>”,那么就需要 gfGetHtm2 的多余操作。
    在输出来说,你的gfGetHtml最好这样用:Function gfGetHtml(str) 
    gfGetHtml=replace(str,"<br>",vbcrlf)
    End Function因为你的函数有可能会改变原来提取的变量值
    如果你需要多步操作,最好定义一个局部变量来使用,如:
    Function gfGetHtml(str)
    dim tempstr
    tempstr=str
    tempstr=replace(tempstr,"<br>",vbcrlf)
    tempstr=replace(tempstr,"<b>",vbcrlf)
    ...
    gfGetHtml=tempstr
    End Function