文本输出时如何保留html标签效果（超级连接等）

来源：百度知道编辑：UC知道时间：2024/06/04 05:15:27

转换代码为：
<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
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), " ")
fString = Replace(fString, CHR(10), " ")

HTMLcode = fString
End if
End Function
%>

输出的文本没有html效果，如果整段删除原来的文章空格又不见了，要手工添加，工作量巨大

我想保留输出文章后的超连接效果和原来文章的空格效果，怎么改？
原来输入的是普通文本模式，如果带HTML标签，经过此代码转换后输出的依然是普通的HTML

在你的代码中，fString = replace(fString, ">", ">") 是实体字符的替换，这个功能一般是在需要直接输出html字符时使用，与你的需求完全相反，
建议将下面两行代码删除再看看效果：
fString = replace(fString, ">", ">") ，
fString = replace(fString, "<", "<")

要用这个

<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
'fString = replace(fString, ">", ">")
'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), "<

文本输出时如何保留html标签效果（超级连接等） flash 文本输入怎么会带html标签? asp如何读取带html文本使保持原代码,文本输出 response.write中怎样输出html标签 struts中html:text标签输出问题输出数据时，如何过滤html代码怎样用EL表达式或标准标签输出HTML标记？ html标签中如何使用js变量文本文档如何转换成HTML文件??? 如何调用在线html文本编辑器