字符转换问题

sdsyzzz 2009-10-22 06:52:20

我现在在asp页面有一个字符转换函数，如下：
<%
Function HTMLEncode(fString)
If Not IsNull(fString) And fString <> "" Then
fString = Replace(fString, "&", "&")
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
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), " ")
HTMLEncode = fString
End If
End Function%>
我有一个上传页面，将数据提交到后台数据库（sql2005），在数据库里面添加"内容"后不能显示出加粗后的效果,请问应该如何修改，使得我能显示出加粗以后的效果？另外请问各位在数据库里更改表中内容后，怎样保存？（除了关闭数据库以外）

...全文

121 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

number123456 2009-10-23

打赏
举报

fString = Replace(fString, ">", ">")
fString = Replace(fString, " <", "<")
把这个去掉，或换成指定的来处理，否则的话会将所有的HTML标记都失效了，
你保存前是……
而保存后是>strong< …… >/strong<
这样当然不会显示加粗了，

sdsyzzz 2009-10-23

打赏
举报

在显示的时候用啊，这个代码就在显示页面里面写的！

风中的那一缕头发 2009-10-23

打赏
举报

先把和转换成其它标记，等其它字符转换后，再转换回来。

<%

  Function HTMLEncode(fString)

  If Not IsNull(fString) And fString <> "" Then

fString = Replace(fString, "<strong>", "@strong@")

fString = Replace(fString, "</strong>", "@/strong@")

fString = Replace(fString, "&", "&")

fString = Replace(fString, ">", ">")

fString = Replace(fString, " <", "<")

fString = Replace(fString, Chr(32), " ")

fString = Replace(fString, Chr(34), """)

fString = Replace(fString, Chr(39), "'")

fString = Replace(fString, Chr(13), "")

fString = Replace(fString, Chr(10) & Chr(10), " </P> <P>")

fString = Replace(fString, Chr(10), " <br/>")

fString = Replace(fString, "@strong@", "<strong>")

fString = Replace(fString, "@/strong@", "</strong>")

HTMLEncode = fString

End If

End Function%>