求一个函数，急！！！
俺对ASP不熟悉，领导要我做我们单位滴网站，现在遇到了一个问题，求一个用于把新闻内容中的<table> <img>等项目都去掉，只留下文字的函数，请高手多多指点，最好能给小弟一个源函数，谢谢了 问题点数：20、回复次数：12Top
1 楼ghost11a（）回复于 2005-08-02 15:55:32 得分 0
各位大哥，说说话吧，俺都快急死了Top
2 楼tigerwen01（小虎）回复于 2005-08-02 15:56:19 得分 0
自己写一个，使用Replace()函数Top
3 楼ghaihua（晨昕）回复于 2005-08-02 16:00:05 得分 0
function ReplaceTbImg(str)
str = replace(str,"<table>","")
str = replace(str,"<img>","")
end function
eg:Astr="dsfsdfasasdf<img>asdfsdfdsfas<table>sdfasdfas"
Response.write(ReplaceTbImg(Astr))Top
4 楼ghost11a（）回复于 2005-08-02 16:11:17 得分 0
谢谢，不过，被替换的字符串中有的是<table width='100'> 有的是<table width='200'>或者是<img ...>那怎么办咧？怎么才能把所有的< >中的内容全部替换掉啊？Top
5 楼fangq（jack）回复于 2005-08-02 16:11:39 得分 0
function ReplaceTbImg(str)
str = replace(str,"<table>","")
str = replace(str,"</table>","")
str = replace(str,"<td>","")
str = replace(str,"</td>","")
str = replace(str,"</tr>","")
str = replace(str,"<tr>","")
str = replace(str,"<img>","")
str = replace(str,"</img>","")
end functionTop
6 楼fangq（jack）回复于 2005-08-02 16:19:45 得分 0
function Rep(s)
set re=New regexp
re.pattern="(\<table)(.+)(\<\/table\])"
s=re.replace(s,"<b>$2</b>")
re.pattern="(\<tr)(.+)(\<\/tr\>)"
s=re.replace(s,"<b>$2</b>")
re.pattern="(\<td)(.+)(\<\/td\>)"
s=re.replace(s,"<b>$2</b>")
re.pattern="(\<img)(.+)(\<\/img\>)"
s=re.replace(s,"<b>$2</b>")
Rep=s
end functionTop
7 楼fangq（jack）回复于 2005-08-02 17:37:19 得分 0
我自写的，你参照一下
Dim str
str="[table width=100]www.ctrip.com[/table]"
response.write(Rep(str))
function Rep(s)
set re=New regexp
re.pattern="(\[table)(.+)(\])(.+)(\[\/table\])"
s=re.replace(s,"$4")
Rep=s
end function
%>Top
8 楼ghost11a（）回复于 2005-08-02 18:55:16 得分 0
还是不太懂啊，大哥Top
9 楼syre（神仙）回复于 2005-08-02 18:59:29 得分 0
不懂不要紧
慢慢来
去看看正则表达式的东西Top
10 楼ghost11a（）回复于 2005-08-02 19:08:17 得分 0
就是字符串里面有双引号""就替换不了，单引号''就可以Top
11 楼ghost11a（）回复于 2005-08-02 19:10:20 得分 0
$4是表示什么意思呢？Top
12 楼ghost11a（）回复于 2005-08-02 19:10:45 得分 0
能给我一个比较全的函数吗？Top
