Question

一个带有html代码的字符串，如何截取才能正确显示？

最近在写一个博客平台，想在博客列表上显示每个博客正文的前200字，但是如果前200字包含某些html代码，比如<img src="……，而代码的后面部分则在200字后，这样截取以后的代码显示在博客列表上就会产生错误，使博客列表显示变形，如何才能截取这些文本（最好能保留这些图片）而又不影响到列表的显示呢？示例页面是这个:
http://www.apoclast.org
回答很不错可是这样被截取的其他部分也无法正常显示了……期待强人出现

Answer 1

我有一个方法可以去掉任何<>的内容
function NoHTML(str) '去Html语言
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
'格式化如下
re.Pattern="(\<.[^\<]*\>)" '<***>格式过滤
str=re.replace(str," ")
re.Pattern="(\<.[^\<]*\/\>)" '<***/>格式过滤
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)" '</***>格式过滤
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
可以去掉全部的HTML语言

希望能给你一点帮助!直接调用RESPONSE.WRITE NOHTML(内容)