从数据库中读取出来的文章如何控制格式,读出来的没有换行等样式
2个回答
展开全部
Function TextEncode(ByVal Str)
If Trim(Str) = "" Or IsNull(Str) Then TextEncode = "": Exit Function
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, Chr(32), " ")
Str = Replace(Str, Chr(9), " ")
Str = Replace(Str, Chr(34), """)
Str = Replace(Str, Chr(39), "'")
Str = Replace(Str, Chr(13), "")
Str = Replace(Str, Chr(10), "<br />")
TextEncode = Str
End Function
输出文章内容
Response.Write TextEncode(文章内容字段)
希望对你能有所帮助。
If Trim(Str) = "" Or IsNull(Str) Then TextEncode = "": Exit Function
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, Chr(32), " ")
Str = Replace(Str, Chr(9), " ")
Str = Replace(Str, Chr(34), """)
Str = Replace(Str, Chr(39), "'")
Str = Replace(Str, Chr(13), "")
Str = Replace(Str, Chr(10), "<br />")
TextEncode = Str
End Function
输出文章内容
Response.Write TextEncode(文章内容字段)
希望对你能有所帮助。
追问
还有要加在代码的哪个地方呀?
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-05-23
展开全部
你存这些文本的时候没有加格式么?
追问
存的时候是直接在TextBox里面写的,有格式,然后就插入到数据库表中了。有什么方法可以在存的时候就让它能在读取出来的时候格式不会变的吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询