求助，截取文章内容

caor1987

怎样能做到象门户站博客首页显示文章的一部分,而不影响html样式。

[[i] 本帖最后由 caor1987 于 2010-4-18 16:52 编辑 ]

waterisi

过滤掉html标记
然后截取文字

iaw2001200

HtmlEncode

caor1987

原帖由 [i]waterisi 于 2010-4-18 20:29 发表
过滤掉html标记
然后截取文字

都说了不影响html样式，你过滤了那样式不就没了。
期待高人出手。。。。

caor1987

顶起来！

wangsdong

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

复制代码

mailangel123

门户站好像都不是截取来做的，他们后台新闻有文章摘要这一块。
你看看常用的cms就知道了。

wj1320

原帖由 [i]wangsdong 于 2010-4-22 12:36 发表

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

这个怎么用啊
嘿嘿

caor1987

原帖由 [i]wangsdong 于 2010-4-22 12:36 发表

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

不对，这样还是会截掉html标签。