咋样在网页中实现分段？

[ddaallii]

我用ACCESS数据库，可是没有分段，编一个插入的，也不行。查询出来时，根本就没有分段，只是中间有了几个空格。应该咋办？

[freezwy]

给你一个完整的处理例子。
在页面开始处<!--#include file=freezwy.asp-->
调用是这样的<%=goodidea(rst("textcolumn"))%>]
原理就是屏蔽HTML代码，转化一些标识。
----------------------------------------------
freezwy.asp
--------------------------
<%
function goodidea(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>
记住这段代码，很有用处，只要是处理稍微大一点的文本，特别是<textarea>和<input type=text >的长度大的，都可以用这个处理，避免了HTML的恶意攻击且能保证按原先的排版显示。好好看看吧，准备加分吧。

[qj3721]

这两位在的回答都很好，我试了一下，都能实现。不错。大力，就给人家加分吧！
当然，也没少了我。

[BrentIvan]

你将数据库中的内容的回车换成<br>再输出旧可以了

sText = rst("textcolumn")
sText = Replace(sText, Chr(13) & Chr(10), "<br>")
sText = Replace(sText, " ", " ")
Response.Write(sText)