Question

asp网站发布内容时截取前100个字做摘要，同时去除里面的html代码怎么实现？

asp网站发布内容，内容文本框为content，我想实现填写完content之后点击一下鼠标就能自动截取content字段的前100个字填入info文本框，请问下怎么实现？

Answer 1

可以分两步进行：
step1：去除HTML

Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function

step2：截取字符串
（这里使用 自定义函数Strsub，主要是为了截取字符串后在结尾处加省略号，如果不需要省略号也可以使用left 或 right MID）
Function Strsub(str,lennum,s)
If Not IsNull(str) Then
Dim p_num,x
Dim i
If strlen(str)<=lennum Then
Strsub=str
Else
p_num=0
x=0
Do While Not p_num > lennum-2
x=x+1
If Asc(Mid(str,x,1))<0 Then
p_num=Int(p_num) + 2
Else
p_num=Int(p_num) + 1
End If
Strsub=Left(Trim(str),x)&s //截取后定义超出部分内容的显示方式
Loop
End If
Else
Strsub="Null"
End If
End Function

'Strsub
'函数功能：字符串截取.
'参数意义：str --- 要截取的字符串. lennum--截取的字符数. s--结尾字符
'调用
<%=Function Strsub( strText ,100, "...")%>

记得一定要先清除HTML，再截取，否则会把HTML代码也当字符串了