问题描述请打开index.asp,后台修改页面为hxg_scgk.asp.
我把完整的程序传上来，请您在此基础上帮我修改一下，多谢！


下面就是截取后文章的部分内容，但文中有标签，如何才能去掉标签？
<P>      在DW中我用一个插件来截取部分文章内容，但是截取后，把那些标签什么都显示出来了，很不好看，就像去除HTML那样的效果，现在我想<BR>把这些标签都过滤掉，也就是说，就只显示文字，<IMG style="WIDTH: 192px; HEIGHT: 138px" height=600 src="/eWebEditor/UploadFile/201098204055477.jpg" width=796 border=0>不要把那些也标签显示出来,插入图片显示不出来，只显示代码········截取字符串的代码请看idnex.asp或记事本，应该怎么改？后台修改页面是<FONT face=Verdana>hxg-scgk.asp。</FONT>本人菜鸟，请大家帮帮忙·····谢谢！！！<BR>     在DW中我用一个插件来截取部分文章内容，但是截取后，把那些标签什么都显示出来了…

截取文章部分文字代码及调用代码：
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
gotTopic="<font style='color:#0066FF;font-size:12px;' style='line-height:18px;' >"& gotTopic &"</font>"

End Function
</SCRIPT>

调用代码：
<% =(gotTopic((Recwzxs.Fields.Item("content").Value), 300)) %>

[ 本帖最后由 tepnidh 于 2010-9-11 07:40 编辑 ]

谢谢您，能否在我用的代码中修改一下？请您帮帮我，好吗？

请您帮帮我吧！

呵~~，自己顶一下吧，期待着各位老师的帮助！

谢谢您的关注和支持！我的意思是，能不能在“截取文章部分文字代码”中做一修改，然后就不会显示标签了。

下面这段文字就是截取后文章的部分内容，但文中有标签，如何才能去掉标签？（蓝色部分就是显示的标签）

<P>      在DW中我用一个插件来截取部分文章内容，但是截取后，把那些标签什么都显示出来了，很不好看，就像去除HTML那样的效果，现在我想<BR>把这些标签都过滤掉，也就是说，就只显示文字，<IMG style="WIDTH: 192px; HEIGHT: 138px" height=600 src="/eWebEditor/UploadFile/201098204055477.jpg" width=796 border=0>不要把那些标签显示出来,插入图片显示不出来，只显示代码········本人菜鸟，请大家帮帮忙·····谢谢！<BR>     在DW中我用一个插件来截取部分文章内容，但是截取后，把那些标签什么都显示出来了…

截取文章部分文字代码及调用代码：

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
gotTopic="<font style='color:#0066FF;font-size:12px;' style='line-height:18px;' >"& gotTopic &"</font>"

End Function
</SCRIPT>

调用代码：
<% =(gotTopic((Recwzxs.Fields.Item("content").Value), 300)) %>



[ 本帖最后由 tepnidh 于 2010-9-10 10:26 编辑 ]

谢谢您，您真是高手！正是学生想要的效果！代码简单而实用！佩服！

您能否再帮学生一把，就是在上面的代码中再加上“省略号代码”？（在截取的文字后面有省略号）

ele2007老师，您好！再次表示感谢！学生实在太菜了，您写的下面这段代码是独立使用，还是与上一段代码合起来使用？如果独立使用，会出现以下错误：
错误类型：
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'DelHtml'

如果是合起来用，怎样用呢？

最后效果是：不显示标签，大于规定字数用省略号表示，另外就是能修改字体的大小，颜色及行距。请您再帮帮我吧，就差这么一点了！！！




[ 本帖最后由 tepnidh 于 2010-9-10 14:11 编辑 ]

谢谢您耐心细致地指点！感动。。。我会好好研究的！请慢用。。。

多谢，学生感激不尽！

“在数据库里新建一个字段。。主要用于保存文章的摘要。。”简单易行，的确是一个不错的办法！谢谢！