截取字符串（除去HTML标记）

'*******************************************************************************************
'原型： RemoveHTMLTag(ObjReg,fString)
'创建者： Newskyline
'创建时间： 13:23 2005-6-25
'功能描述： 除去HTML标记
'输入参数： fString : 待处理的字符串
'返回值： String : 已处理的字符串
'*******************************************************************************************
Function RemoveHTMLTag(ObjReg,fString)
ObjReg.Pattern = "<[^>]+>|</[^>]+>"
fString = ObjReg.Replace(fString,"")
RemoveHTMLTag = fString
End Function


Dim aReg,aText
Set aReg = New RegExp
aReg.Global = True

aText = Request.Form("Content")
aText = RemoveHTMLTag(aReg,aText)
Response.Write( Left(aText,30) )