收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1519|回复: 8

[asp] 求助,截取文章内容

[复制链接]
发表于 2010-4-18 16:49:38 | 显示全部楼层 |阅读模式
怎样能做到象门户站博客首页显示文章的一部分,而不影响html样式。

[[i] 本帖最后由 caor1987 于 2010-4-18 16:52 编辑 ]
发表于 2010-4-18 20:29:17 | 显示全部楼层
过滤掉html标记
然后截取文字
回复 支持 反对

使用道具 举报

发表于 2010-4-18 20:40:32 | 显示全部楼层
HtmlEncode
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-18 21:12:50 | 显示全部楼层
原帖由 [i]waterisi 于 2010-4-18 20:29 发表
过滤掉html标记
然后截取文字

都说了不影响html样式,你过滤了那样式不就没了。
期待高人出手。。。。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-22 12:31:27 | 显示全部楼层
顶起来!
回复 支持 反对

使用道具 举报

发表于 2010-4-22 12:36:26 | 显示全部楼层

  1. '截取字符串函数,计算一汉字等于2个英文
  2. 'str  要截取的字符串
  3. 'strlen 截取字数
  4. 'str2 截取字符串后要加的字符。如:...
  5. function gotTopic(str,strlen,str2)
  6.         if str="" or isnull(str) then
  7.                 gotTopic=""
  8.                 exit function
  9.         end if
  10.        
  11.         dim l,t,c, i
  12.         str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
  13.         l=len(str)
  14.         t=0
  15.        
  16.         for i=1 to l
  17.                 c=Abs(Asc(Mid(str,i,1)))
  18.                 if c>255 then
  19.                         t=t+2
  20.                 else
  21.                         t=t+1
  22.                 end if
  23.                
  24.                 if t>cint(strlen) then
  25.               if str2<>"" then i=i-1
  26.                         gotTopic=left(str,i-1) & str2
  27.                         exit for
  28.                 else
  29.                         gotTopic=str
  30.                 end if
  31.         next
  32.         gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
  33. end function
复制代码
回复 支持 反对

使用道具 举报

发表于 2010-4-22 16:41:25 | 显示全部楼层
门户站好像都不是截取来做的,他们后台新闻有文章摘要这一块。
你看看常用的cms就知道了。
回复 支持 反对

使用道具 举报

发表于 2010-4-23 08:23:19 | 显示全部楼层
原帖由 [i]wangsdong 于 2010-4-22 12:36 发表

'截取字符串函数,计算一汉字等于2个英文
'str  要截取的字符串
'strlen 截取字数
'str2 截取字符串后要加的字符。如:...
function gotTopic(str,strlen,str2)
        if str="" or isnull(str) then
                gotTopic=" ...

这个怎么用啊
嘿嘿
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-23 19:49:54 | 显示全部楼层
原帖由 [i]wangsdong 于 2010-4-22 12:36 发表

'截取字符串函数,计算一汉字等于2个英文
'str  要截取的字符串
'strlen 截取字数
'str2 截取字符串后要加的字符。如:...
function gotTopic(str,strlen,str2)
        if str="" or isnull(str) then
                gotTopic=" ...

不对,这样还是会截掉html标签。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( ICP05002321 )  

GMT+8, 2019-5-27 15:41 , Processed in 0.093750 second(s), 9 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表