UC知道asp 去除格式显示部分内容...
来源：百度知道 编辑：UC知道 时间：2024/07/07 04:33:42
在数据库中存入的是含超文本的内容，现需要实现不带格式的显示开始的一部分内容,以纯文本格式显示,就像百度的搜索结果一样,预览部分内容,一个链接,点击查看全部,内容.
<%=server.HTMLEncode (rs("content"))%>这样可以显示内容为代码格式,
<%=Left(rs("content"),50)%>这样能控制显示开始的部分内容,
我要的是综合这两个功能,而且要过滤掉其中的html标签.
如:
<FONT color=#ff0000><STRONG> <DIV class=quote><FONT color=#ff0000><STRONG>测试...</STRONG></FONT><FONT color=#000000>.</FONT></DIV></STRONG></FONT>
我要它的结果是:
测试...
谁有好办法,要尽可能详细,最好有实例或代码.
答案好可以加分!
<%=server.HTMLEncode (rs("content"))%>这样可以显示内容为代码格式,
<%=Left(rs("content"),50)%>这样能控制显示开始的部分内容,
我要的是综合这两个功能,而且要过滤掉其中的html标签.
如:
<FONT color=#ff0000><STRONG> <DIV class=quote><FONT color=#ff0000><STRONG>测试...</STRONG></FONT><FONT color=#000000>.</FONT></DIV></STRONG></FONT>
我要它的结果是:
测试...
谁有好办法,要尽可能详细,最好有实例或代码.
答案好可以加分!
<%
'将以网页形式保存的文章内容转换为普通格式，并取其前50个字符
content=replace(rs("content"),"<br>",chr(13))
content=replace(content," "," ")
content=replace(content,"<","")
content=replace(content,">","")
content=replace(content,"TABLE","")
content=replace(content,"TBODY","")
content=replace(content,"TR","")
content=replace(content,"TD","")
content=replace(content,"FONT","")
content=replace(content,"/FONT","")
content=replace(content,"style=","")
content=replace(content,"src=","")
content=replace(content,"align=","")
content=replace(content,"border=","")
content=replace(content,"