asp读取文章前100字.

来源：百度知道 编辑：UC知道 时间：2024/05/25 13:22:20
如:内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容...more

怎样做?
还取出线文字的,有时文章中有<br/></p><img....>等等.如果按下边的方法,好像不行哦!

谢谢大家的支持!

可以先将html代码全部屏蔽 然后再取值：
<%
Function ClearHTML(strHTML,hideHtml)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
if hideHtml="html" then
objRegExp.Pattern = "<.+?>"
end if
if hideHtml=" " then
objRegExp.Pattern = " "
end if

Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
ClearHTML=strHTML
Set objRegExp = Nothing
End Function

Dim Str
Str="<p>    中新社北京十月二十九日电<br>     北京时

间二十九日十八时零一分，“嫦娥一号”卫星成功实施第三次变轨，这也是该卫星入轨后的第二次近地点

变轨。<br>    当日十七时五十六分，北京航天飞行控制中心向“嫦娥一号”卫星

发出指令，开始实施本次变轨，卫星发动机点火五分钟后，该中心接收的数据表明，卫星变轨成功。

</p>"

Response.write&