UC知道asp中自定义了HTMLEncode导致无法显示的问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 14:42:27
<%
Function HTMLEncode (fString)
fString = replace(fString, ">",">")
fString = replace(fString, "<","<")
fString = Replace(fSrting, CHR(32), " ")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
End Function
%>
<%=HTMLEncode (Recordset1.Fields.Item("g_content").Value)%>
我用SQLServer做的数据库，在页面中加入了以上代码，但是很奇怪，页面上关于g_content的记录就无法显示！！
我是按照书上的步骤来的书名是《DreamweaverMX2004 从基础到实践》，书上用的是ACCESS数据库，对g_content用的是：备注来定义的，我在sqlserver中试了几种定义又vchar（8000），ntext，text都是相同的现象，就是显示不出g_content的记录，把这个HTMLEncode删掉就能显示了，但是就没有限制文本编辑排版格式的效果了。
Function HTMLEncode (fString)
fString = replace(fString, ">",">")
fString = replace(fString, "<","<")
fString = Replace(fSrting, CHR(32), " ")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
End Function
%>
<%=HTMLEncode (Recordset1.Fields.Item("g_content").Value)%>
我用SQLServer做的数据库，在页面中加入了以上代码，但是很奇怪，页面上关于g_content的记录就无法显示！！
我是按照书上的步骤来的书名是《DreamweaverMX2004 从基础到实践》，书上用的是ACCESS数据库，对g_content用的是：备注来定义的，我在sqlserver中试了几种定义又vchar（8000），ntext，text都是相同的现象，就是显示不出g_content的记录，把这个HTMLEncode删掉就能显示了，但是就没有限制文本编辑排版格式的效果了。
用这个函数，如果还不行，发消息问我。
<%
Function FormatHTML(fString)
If fString<>"" Then
fString = trim(fString)
fString = replace(fString, ";", "；") '分号过滤
fString = replace(fString, "--", "——") '--过滤
fString = replace(fString, "%20", "") '特殊字符过滤
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