为了显示文章摘要,如何在ASP中将网页的代码中所有的<>符号去掉

比如:<DIValign=center>英博电气电能质量技术交流会武汉站现场</DIV>变成:英博电气电能质量技术交流会武汉站现场对asp语法一窍不通,请给全代码,谢谢!... 比如:<DIV align=center>英博电气电能质量技术交流会武汉站现场</DIV>
变成:英博电气电能质量技术交流会武汉站现场
对asp语法一窍不通,请给全代码,谢谢!
我qq:1132740974
我现在用jQuery的text方法在客户端解决了这个问题
展开
 我来答
河南浪人
2011-01-20 · 超过64用户采纳过TA的回答
知道小有建树答主
回答量:368
采纳率:0%
帮助的人:171万
展开全部
Function RemoveHTML( strText )
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop
RemoveHTML = strText
End Function
'************* 上面是处理过程*********************
Response.write Left(RemoveHTML(Rs("Content")),200) '输出200个字符的提示
'*************************************************
Rs("Content")'读取内容
RemoveHTML(Rs("Content"))'过滤HTML字符
Left(RemoveHTML(Rs("Content")),200) '截取前200个字符进行输出
sea7246
2011-01-20 · 超过20用户采纳过TA的回答
知道答主
回答量:79
采纳率:0%
帮助的人:61.8万
展开全部
清附HTML标签就行了。

'删除html代码
Function RemoveHTML( strText )
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop
RemoveHTML = strText
End Function
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
玉势星7376
2011-01-20 · TA获得超过417个赞
知道小有建树答主
回答量:699
采纳率:33%
帮助的人:524万
展开全部
len(Server.HtmlEncode(trim(rs5("title")))式一下,不行再说
你有q吗?我给你一个函数(是不是出"?")
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式