function ClnCode(strContent)
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "\<(\s*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\<(\s\/*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(.*)\]"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(\/.*)]"
strContent = re.Replace(strContent,"")
ClnCode = strContent
End Function这个把ubb去掉了。asp的自己改一下就好了,不过<%不好改。因为如果用Response.write 出来的东西,你也去掉了。那么文章就会完全不同了啊。
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "\<(\s*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\<(\s\/*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(.*)\]"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(\/.*)]"
strContent = re.Replace(strContent,"")
ClnCode = strContent
End Function这个把ubb去掉了。asp的自己改一下就好了,不过<%不好改。因为如果用Response.write 出来的东西,你也去掉了。那么文章就会完全不同了啊。
解决方案 »
- String.match的关于g的不同结果求教
- 构造函数Function()怎么用呀?如何理解这句话? 请大家帮看看,谢谢了
- javascript与Activex的问题
- 为什么window.captureEvents(Event.MOUSEMOVE|Event.MOUSEUP)无效?
- 这个变量到底是啥回事,不是一般的恐怖
- 如何建立一个 无限 X 无限 的二维数组??
- 各位高手帮帮忙呀。一个判断的小问题。
- 求救呀(高分):我想做一个用户可以发邮件的按钮!怎么来实现!
- 计数器问题
- 动态的换音乐的问题?
- 哪里可以找到VBA Excel的详细API?我想用javascript来调用。
- 如何根据光标所在的文本框的控制输入法的打开、关闭???
所有<% %>之间的数据全部去掉,<% %>之间需要response.write
的数据库必定有,所以在数据库里查找,比较方便。该怎么样清除?
谢谢
如
<myTag firstAttr="123"
secondAttr="456">还有re.Pattern = "\<(\s\/*.*)>"应该是\<(\s*\/.*)>要去掉<%用这个正则表达式:<%(.|\s)*%>