谁有办法把标签给屏蔽了?? - ASP技术论坛

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 谁有办法把标签给屏蔽了??

标题：谁有办法把标签给屏蔽了??

只看楼主

guyer

等　级：新手上路
威　望：5
帖　子：451
专家分：0
注　册：2007-1-19

楼主

问题点数：0 回复次数：10

谁有办法把标签给屏蔽了??

我从编辑器里用left 截取一段文字. 发现居然把里面的标签截取了一半,
哪位大哥帮我想个办法,能把标签给去掉.

搜索更多相关主题的帖子: 办法　

2007-04-29 13:34

lq7350684

等　级：贵宾
威　望：20
帖　子：5089
专家分：98
注　册：2006-11-6

第 2 楼

得分:0

用replace替换.

2007-04-29 13:41

guyer

等　级：新手上路
威　望：5
帖　子：451
专家分：0
注　册：2007-1-19

第 3 楼

得分:0

怎么替换?
有N 多的标签啊!

http://www./

2007-04-29 13:43

lq7350684

等　级：贵宾
威　望：20
帖　子：5089
专家分：98
注　册：2006-11-6

第 4 楼

得分:0

那你去问问偶老师吧.

2007-04-29 13:44

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 5 楼

得分:0

用正则
试试这个：
[QUOTE]Function Stringhtml(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, ">", ">")
str = replace(str, "<", "<")
If str="" Then str="..."
Stringhtml=str
End Function[/QUOTE]

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2007-04-29 14:36

guyer

等　级：新手上路
威　望：5
帖　子：451
专家分：0
注　册：2007-1-19

第 6 楼

得分:0

我试下谢谢

http://www./

2007-04-29 15:52

guyer

等　级：新手上路
威　望：5
帖　子：451
专家分：0
注　册：2007-1-19

第 7 楼

得分:0

以下是引用阳光白雪在2007-4-29 14:36:57的发言：
用正则
试试这个：

Function Stringhtml(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, ">", ">")
str = replace(str, "<", "<")
If str="" Then str="..."
Stringhtml=str
End Function

这个是不是转换好了以后在存数据库?

我想要的是在数据库提取吃来的转换.

我也不知道为什么, 第一次提交的时候是没有问题的,

但是修改的时候就出现问题了. 因为在编辑框中就出现了标签..