| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 440 人关注过本帖
标题:如何过滤掉这样的代码....
只看楼主 加入收藏
某人
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-2
收藏
 问题点数:0 回复次数:9 
如何过滤掉这样的代码....
后台提交到数据库的时候,把这些代码(<FONT face=宋体 size=2>)也提交上去了,,在index页面输出数据的时,<FONT face=宋体 size=2> 这一断代码全部已空位输出来, 能不能把这些代码给去掉,直接显示 平湖吴昊建材经

<FONT face=宋体 size=2>平湖吴昊建材经
搜索更多相关主题的帖子: 代码 
2007-06-26 16:01
恒天
Rank: 1
等 级:新手上路
威 望:2
帖 子:165
专家分:0
注 册:2007-6-1
收藏
得分:0 
要想完全正确显示有2种方法
第一种就是不转义存入数据库,然后不转义输出到页面
第二种就是转义存入数据库,然后转义输出到页面
2007-06-26 16:04
某人
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-2
收藏
得分:0 
上面的高手,能不能给个例子,或者这方面的教程给我看看,我是菜鸟刚学.很多不懂,谢谢.
2007-06-26 16:08
guyer
Rank: 2
等 级:新手上路
威 望:5
帖 子:451
专家分:0
注 册:2007-1-19
收藏
得分:0 
你用的是编辑器?
还是手动打上的代码?

http://www./
2007-06-26 16:15
恒天
Rank: 1
等 级:新手上路
威 望:2
帖 子:165
专家分:0
注 册:2007-6-1
收藏
得分:0 
以下是引用guyer在2007-6-26 16:15:09的发言:
你用的是编辑器?
还是手动打上的代码?

2007-06-26 19:10
恒天
Rank: 1
等 级:新手上路
威 望:2
帖 子:165
专家分:0
注 册:2007-6-1
收藏
得分:0 
4楼也可以帮你解决这个问题的
2007-06-26 19:11
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 

HTMLEncode(内容)


http://www./
2007-06-27 10:28
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
以下是引用hangxj在2007-6-27 10:28:46的发言:

HTMLEncode(内容)

[QUOTE]
Function HTMLEncode(reString) '转换HTML代码
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = UnCheckStr(Str)
Str = Replace(Str, "&", "&amp;")
Str = Replace(Str, ">", "&gt;")
Str = Replace(Str, "<", "&lt;")
Str = Replace(Str, CHR(32), "&nbsp;")
Str = Replace(Str, CHR(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
Str = Replace(Str, CHR(9), "&#160;&#160;&#160;&#160;")
Str = Replace(Str, CHR(34),"&quot;")
Str = Replace(Str, CHR(39),"&#39;")
Str = Replace(Str, CHR(13), "")
Str = Replace(Str, CHR(10), "<br>")
HTMLEncode = Str
End If
End Function
[/QUOTE]


http://www./
2007-06-27 10:29
恒天
Rank: 1
等 级:新手上路
威 望:2
帖 子:165
专家分:0
注 册:2007-6-1
收藏
得分:0 
8楼的这种是转义的,用着试试吧
2007-06-27 15:33
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
[QUOTE]<%
''函数作用:清除字符串中的HTML代码
Function clearHtml(str)
Dim re
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
str = re.replace(str, "")
re.Pattern = "\[(.[^\[]*)\]"
str = re.replace(str, "")
str = replace(str, ">", "&gt;")
str = replace(str, "<", "&lt;")
If str="" Then str="..."
clearHtml=str
End Function
%>[/QUOTE]

[QUOTE] 例如:clearHtml("<FONT face=宋体 size=2>平湖吴昊建材经") 输出后为:平湖吴昊建材经[/QUOTE]

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-06-27 15:40
快速回复:如何过滤掉这样的代码....
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027293 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved