ASP的换行输出
个位老大`,小弟的难处是,我本来是不知道怎样才能吧我所输的数据保留换行空格输入数据库然后在重数据库中输出来,因为我所做的是文章发布系统所以这点非常重要,但是我在网上得知了...
个位老大`,小弟的难处是,我本来是不知道怎样才能吧我所输的数据保留换行空格输入数据库然后在重数据库中输出来,因为我所做的是文章发布系统所以这点非常重要,但是我在网上得知了只要在输出的内容中加入<pre></pre>即可把所有输入的数据原封不动的输出,但是问题就出现了,我输出的数据无论是英文还是中文它都不会自己换行,因此它严重的打乱了我的网页布局,我现在非常苦恼,请个位大虾请教下,最好有视频教程。谢谢`
那么多高手都不愿意帮下小弟吗????????????? 展开
那么多高手都不愿意帮下小弟吗????????????? 展开
1个回答
展开全部
写一个函数,然后在输出的时候套用一下。
function txtfilter(str)
'把连续两个空格换成 这样做是考虑你的文本中可能还有html标记,防止把html标记中的空格也替换了
str = replace(str, " ", "&nbsp;&nbsp;")
'把所有回车换成"<br>",XHTML里你可以换成"<br />"
str = replace(str, vbCrLf, "<br>")
txtfilter = str
end function
然后在输出的时候<%=txtfilter(rs("字段"))%>就可以了。
(注意上面的&nbsp;你使用的时候把全角&换成半角的。我这里用全角的只是为了方便显示出来)
如果要屏蔽所有html代码,那么加几句:
str = replace(str, "<", "&lt;")
str = replace(str, ">", "&gt;")
一般就差不多了吧。
function txtfilter(str)
'把连续两个空格换成 这样做是考虑你的文本中可能还有html标记,防止把html标记中的空格也替换了
str = replace(str, " ", "&nbsp;&nbsp;")
'把所有回车换成"<br>",XHTML里你可以换成"<br />"
str = replace(str, vbCrLf, "<br>")
txtfilter = str
end function
然后在输出的时候<%=txtfilter(rs("字段"))%>就可以了。
(注意上面的&nbsp;你使用的时候把全角&换成半角的。我这里用全角的只是为了方便显示出来)
如果要屏蔽所有html代码,那么加几句:
str = replace(str, "<", "&lt;")
str = replace(str, ">", "&gt;")
一般就差不多了吧。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询