文本内容的输出---------解决马上给分

littleflowerfox 2004-12-03 09:49:52
我用的是Oracle数据库,我想把数据库中一个大文本型的字段内容显示出来,
我用<%rs("NR")%>输出后,发现原来的段落都没有区分开,空格也没有了,

我应该怎样写,才能让结果与原来录入是的格式一样呢--------要区分开段落,包括每一段开始的空格


...全文
30 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xczhouyang 2004-12-03
function HTMLEncode(fString)
'过滤HTML代码
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString
end if
end function
用这个函数转化一下
回复
meizz 2004-12-03
HTML标签的转换
<%
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &"    "
Case chr(13) : coder = coder &"<br>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
%>
<%= coder(rs("NR")) %>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-03 09:49
社区公告
暂无公告