文章正文

100分求教！怎样格式化从数据库中备注字段里的文本？读出来的不分段啊！

类型：转载责任编辑：asp.net 日期：2007/05/23

热门软件下载：

我写了一个ASP页面做新闻系统，数据库是Access，新闻内容是备注类型。可我读取出来的是没有段落的，尽管写入的时候是有格式的，有什么快捷的办法解决吗？代码如下：（我这里用replace把空格换成了段落标记，但没有空格怎么办？）
<%
Sql=""
Sql="select title,content,times from news where id="&id
Rs.open Sql,Conn,1,1
content=rs(1)
%>
<center>
 <%=Rs("title")%>

</center>

<%=Rs("times")%>

    <%=Rs("content")%>
<%content=replace(content," ","")
response.Write(content)%>

网友回答：

发表者：mouse_2004

<pre>content</pre>

发表者：wch0410

发表者：devilzone

<%= replace(replace(replace(replace(Rs("content"),"<","&lt"),">","&gt")," "," "),chr(13)," ")%>

发表者：davery

<textarea name="" cols="10" rows="55" readonly="readonly" wrap="virtual"><%=objrs("body")%></textarea>

<pre>content</pre>

发表者：bluemoon0001

<%= replace(Rs("content"),chr(13)&chr(10),"     ")%>

发表者：l3300

<%= replace(Rs("content"),vbcrlf," ")%>

发表者：IQ250

同上，呵呵

发表者：dreammoci

给你两段，我自己写的，可是相换的。
function displaystr(str)
str=RTrim(str)
if not isnull(str) then
str = replace(str, ">", ">")
str = replace(str, "<", "<")
str = Replace(str, CHR(32), " ")
str = Replace(str, CHR(9), " ")
str = Replace(str, " ", " ")
str = Replace(str, CHR(34), """)
str = Replace(str, CHR(39), "'")
str = Replace(str, vbCr, "")
str = Replace(str, vbLf, " ")
str = Replace(str, vbCrLf, " ")
str = replace(str,"-","−")
displaystr = str
else
displaystr="---"
end if
end function

function displaystr1(str)
str=RTrim(str)
if not isnull(str) then
str = replace(str, ">", ">")
str = replace(str, "<", "<")
str = Replace(str, " ", CHR(32))
str = Replace(str, " ", CHR(9))
str = Replace(str, " ", " ")
str = Replace(str, "%20", CHR(34))
str = Replace(str, "'", CHR(39))
str = Replace(str, "", vbCr)
str = Replace(str, " ", vbLf)
str = Replace(str, " ", vbCrLf)
str = replace(str,"−","-")
displaystr1 = str
else
displaystr1="---"
end if
end function

有些你不想转的就平掉，然后调用就好了。

热门推荐笔记本： IBM笔记本

笔记本相关：

IT技术文章：