初学者的一个关于文本显示问题。

主题：初学者的一个关于文本显示问题。

zoucaihuo [专家分：0] 发布于 2006-06-24 10:14:00

我用dreamweaver作了一个简单的新闻系统。可以在新闻显示页里面显示来的新闻内容很乱。后来我通过插入-HTML-文本对像-已编排格试设置之后就不换行，一段是多长他就多长。[em18][em18][em18][em18]

还请高手指点。谢谢

本帖地址： http://bbs.pfan.cn/post/177416.html

回复列表（共12个回复）

沙发

wangsdong [专家分：21390] 发布于 2006-06-24 10:41:00

你将数据库中新闻内容某一条记录的字段内容写成以下：
qqqqqqqqqq<br>wwwwwwwwwwww<br>eeeeee
再看看输出是不是很乱。

板凳

zoucaihuo [专家分：0] 发布于 2006-06-24 10:59:00

不可以让他自动换行吗？因为一般加新闻都有是从别的地方复制过来的。

3 楼

wangsdong [专家分：21390] 发布于 2006-06-24 11:07:00

我不是让他换行，我想验证这个能否实现换行，如果行，就有办法实现从别的地方复制过来的新闻，同样的显示在你的网页上。

4 楼

zoucaihuo [专家分：0] 发布于 2006-06-24 11:21:00

可以换行的。

5 楼

wangsdong [专家分：21390] 发布于 2006-06-24 11:22:00

内容提交前用这个函数
Function HTMLEncode(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&")
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, CHR(39), "'")
        fString = Replace(fString, CHR(32), " ")
        fString = Replace(fString, CHR(34), """)
        fString = Replace(fString, CHR(13), "")
        fString = Replace(fString, CHR(10), "<br/>")
        HTMLEncode = fString
    End If
End Function
显示的时候再把内容转换过来就可以了
Function HTMLChange(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, &, "CHR(38)")
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
                  ......
        HTMLEncode = fString
    End If
End Function

6 楼

zoucaihuo [专家分：0] 发布于 2006-06-24 11:47:00

不知把这段程序加到何处。这是javascript程序吗？我把他复制过去，调式总提示缺少对像。不知为何。怎么办。

7 楼

zoucaihuo [专家分：0] 发布于 2006-06-24 11:48:00

我是加到新闻显示页面里面。

8 楼

wangsdong [专家分：21390] 发布于 2006-06-24 11:54:00

这是asp代码，加到后台添加新闻的网页中去，
Function HTMLEncode(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&")
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, CHR(39), "'")
        fString = Replace(fString, CHR(32), " ")
        fString = Replace(fString, CHR(34), """)
        fString = Replace(fString, CHR(13), "")
        fString = Replace(fString, CHR(10), "<br/>")
        HTMLEncode = fString
    End If
End Function

news=HTMLEncode(request.form("textarea"))
……

9 楼

zoucaihuo [专家分：0] 发布于 2006-06-24 11:55:00

我是这样加进去的。先定义函数HTMLEncode.
<script language="javaScript">
Function HTMLEncode(fString)
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&")
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, CHR(39), "'")
        fString = Replace(fString, CHR(32), " ")
        fString = Replace(fString, CHR(34), """)
        fString = Replace(fString, CHR(13), "")
        fString = Replace(fString, CHR(10), "<br/>")
        HTMLEncode = fString
    End If
End Function
</script>

然后调用这个函数
<td class="style25" align="left"><div align="justify" class="style25"><%=[color=000080]HTMLEncode((Recordset1.Fields.Item("news")))%[/color]></div></td>

10 楼

wangsdong [专家分：21390] 发布于 2006-06-24 12:15:00

这是asp代码
加在添加向数据库中添加新闻的那个网页中。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：初学者的一个关于文本显示问题。

回复列表（共12个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：初学者的一个关于文本显示问题。

回复列表 （共12个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共12个回复）