数据库存录入时用:
<%
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>标记,也就是没有转换成功。
如何解决此问题呢?
<%
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>标记,也就是没有转换成功。
如何解决此问题呢?
解决方案 »
- DataReport1在sstab显示问题
- VB控件刷新不明白,请帮忙!(带有源文件下载)
- vb6实现多线程的问题
- 【问】如何动态载入窗体?
- 如何判断sqlserver是否安装以及服务是否启动
- 本人刚刚接触VB,问一个关于工程中窗体的创建问题
- 奇怪 我将文本文件存在access表的一个memo字段,用datagrid,和richbox读取,几次后,文本文件都自动变成rtf文件了,怎么回事??
- 非常非常紧急高分求救****怎样能将有合并项的EXCEL表格导入ACCESS数据库中???
- 如何在vb中使用winsock传递图片和mid文件
- 关于文件的共享冲突
- 关于Polygon函数的输出
- 随机选7个号码的(7个号码为一组),选5000组,生成的随机数不能重复!这个程序怎么写!
保存的时候不存储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