asp html内容 取一段,[ASP] 部分截取内容的文字 (去html)

内容例子：

在一次讨论会上，一位著名的演说家没讲一句开场白，手里却高举着一张20美元的钞票。 面对会议室里的200个人，他问：“谁要这20美元？”一只只手举了起来。他接着说：“我打算把这20美元送给你们中的一位，但在这之前，请准许我做一件事。”他说着将钞票揉成一团，然后问：“谁还要？”仍有人举起手来。 他又说：“那么，假如我这样做又会怎么样呢？”他把钞票扔到地上，又踏上一只脚，并且用脚碾它。尔后他拾起钞票，钞票已变得又脏又皱。 “现在谁还要？”还是有人举起手来。 “朋友们，你们已经上了一堂很有意义的课。无论我如何对待那张钞票，你们还是想要它，因为它并没贬值，它依旧值20美元。人生路上，我们会无数次被自己的决定或碰到的逆境击倒、欺凌甚至碾得粉身碎骨。我们觉得自己似乎一文不值。但无论发生什么，或将要发生什么，在上帝的眼中，你们永远不会丧失价值。在他看来，肮脏或洁净，衣着齐整或不齐整，你们依然是无价之宝。” 温馨提示：生命的价值不依赖我们的所作所为，也不仰仗我们结交的人物，而是取决于我们本身！我们是独特的――永远不要忘记这一点！

只能显示内容的前50个字, 单用left()函数会把版面搞乱。

所以要先去掉html标记

过滤例子：

Function Replacehtml(Textstr)

Dim Str,re

Str = Textstr

Set re = new RegExp

re.IgnoreCase =True

re.Global = True

re.Pattern = "]*)>"

Str = re.Replace(Str, "")

Set Re = Nothing

Replacehtml = Str

End Function

%>

这样如果直接截取不区分中英文的话，可用Left

例子：

content = "这儿是你上面的那些内容"

content = Replacehtml(content)

response.write Left(content,5)

if Len(content)>5 Then response.write "..."

%>

如果区分中英文则可看看这个Function

例子：

'**************************************************

'函数名：gotTopic

'作 用：截字符串，汉字一个算两个字符，英文算一个字符

'参 数：Str ----原字符串

' StrLen ----截取长度

'返回值：截取后的字符串

'**************************************************

Function gotTopic(Str,StrLen)

If Str="" Then

gotTopic=""

Exit Function

End If

Dim l,t,c, i

Str=Replace(Replace(Replace(Replace(Str," ","

"),""",chr(34)),">",">"),"

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,"

"," "),chr(34),"""),">",">"),"

End Function

%>

这个时候调用就可以了

content = "这儿是你上面的那些内容"

'注意先后关系，是先格式化HTML代码再截取

response.write gotTopic(Replacehtml(content),5)

%>