ASP截取输出内容...

[hzz34177356]

求个截取ASP输出字符截取函数
博客里面文章如果包含有如图片,超连接这类标签,如果只是简单的照字符数量截取,如果刚好把标签结尾截掉了,会导致整个页面的CSS乱套哦...

我看到ZBLOG可以让HTML标签完全显示...麻烦给个这类函数谢谢了...

[一把编程的菜刀]

str="<p> <font>aaaaaa </font><font>bbbb </font> </p>"
  Set objRegExp=New RegExp 
  Set Reg=New RegExp
objRegExp.IgnoreCase=true
objRegExp.Global=true
objRegExp.Pattern="(<[^>\/]*>)([^<]+)(<\/[^>]+>)"
Reg.IgnoreCase=false
Reg.Global=false
set Matches=objRegExp.Execute(str)
set objRegExp=nothing
num=7'设定截取7个数字
if Matches.Count<>0 then
For Each Match in Matches
if num>0 then
Reg.Pattern="(<[^>\/]*>)"&Match.SubMatches(1)&"(<\/[^>]+>)"
str=Reg.replace(str,"$1"&left(Match.SubMatches(1),num)&"$2")
num=num-len(trim(Match.SubMatches(1)))
response.Write num
end if
next
end if
set Reg=nothing
response.Write str

我给一种思路，以前别人问我的一个问题，也是给的这个思路，和你的问题一样的

[hzz34177356]

有没有实例???

[Msxindl_Com]

加上<xmp>不就行了.原汁原味地输出.

<%
dim str
str="博客里面文章如果包含有如<a href='xx.asp'>图片</a>,超连接这类标签,如果只是简单的照字符数量截取,如果刚好把标签结尾截掉了,会导致整个页"
str=left(str,31)
response.write("<xmp>"&str&"</xmp>")
%>

[调皮的蟠桃]

学习了!!!

[lzj34]

<xmp>就行了

[hzz34177356]

[Quote=引用 3 楼 liaitan 的回复:]
加上 <xmp>不就行了.原汁原味地输出.

HTML code<%dimstr
str="博客里面文章如果包含有如<a href='xx.asp'>图片</a>,超连接这类标签,如果只是简单的照字符数量截取,如果刚好把标签结尾截掉了,会导致整个页"str=left(str,31)
response.write("<xmp>"&str&"</xmp>")%>
[/Quote]

...
可是如果能够正常包含的代码不都被处理掉了嘛?
我想让能显示的HTML代码正常显示,不完整的在用xmp输出,有没有相关函数?