为了显示文章摘要,如何在ASP中将网页的代码中所有的<>符号去掉
比如:<DIValign=center>英博电气电能质量技术交流会武汉站现场</DIV>变成:英博电气电能质量技术交流会武汉站现场对asp语法一窍不通,请给全代码,谢谢!...
比如:<DIV align=center>英博电气电能质量技术交流会武汉站现场</DIV>
变成:英博电气电能质量技术交流会武汉站现场
对asp语法一窍不通,请给全代码,谢谢!
我qq:1132740974
我现在用jQuery的text方法在客户端解决了这个问题 展开
变成:英博电气电能质量技术交流会武汉站现场
对asp语法一窍不通,请给全代码,谢谢!
我qq:1132740974
我现在用jQuery的text方法在客户端解决了这个问题 展开
3个回答
展开全部
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个字符进行输出
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个字符进行输出
展开全部
清附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
'删除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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
len(Server.HtmlEncode(trim(rs5("title")))式一下,不行再说
你有q吗?我给你一个函数(是不是出"?")
你有q吗?我给你一个函数(是不是出"?")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询