PjBlog 预览bug 修改

      原来一直发现设置了日志预览的字符数或预览行数，但总感觉有错误，不能正常显示，趁着正在整理磁盘碎片，分析了一下他的代码。
    在日志的原代码里，分段是用"<br  />"表示的，他用来读取行数的代码段为：
'*************************************
'切割内容 - 按行分割
'*************************************
Function SplitLines(byVal Content,byVal ContentNums)
 Dim ts,i,l
 ContentNums=int(ContentNums)
 If IsNull(Content) Then Exit Function
 i=1
 ts = 0
 For i=1 to Len(Content)
      l=Lcase(Mid(Content,i,5))
       If l="<br/>" Then
          ts=ts+1
       End If
      l=Lcase(Mid(Content,i,4))
       If l="<br>" Then
          ts=ts+1
       End If
   l=Lcase(Mid(Content,i,3))
      If l="<p>" Then
         ts=ts+1
      End If
 If ts>ContentNums Then Exit For
 Next
 If ts>ContentNums Then
     Content=Left(Content,i-1)
 End If
 SplitLines=Content
End Function

在 If l="<br/>" Then  中，他少了一个空格，可能问题就出在这了。把他加上一个空格，测试一下，呵呵，果然没问题了。另外，考虑到有的分段是用"</p>"结束的，所以也加了一个判断条件下去了。改后的代码：

'*************************************
'切割内容 - 按行分割
'*************************************
Function SplitLines(byVal Content,byVal ContentNums)
 Dim ts,i,l
 ContentNums=int(ContentNums)
 If IsNull(Content) Then Exit Function
 i=1
 ts = 0
 For i=1 to Len(Content)
      l=Lcase(Mid(Content,i,5))
       If l="<br />" Then
          ts=ts+1
       End If
      l=Lcase(Mid(Content,i,4))
       If l="<br>" Then
          ts=ts+1
       End If
      l=Lcase(Mid(Content,i,4))
       If l="</p>" Then
          ts=ts+1
       End If
   l=Lcase(Mid(Content,i,3))
      If l="<p>" Then
         ts=ts+1
      End If
 If ts>ContentNums Then Exit For
 Next
 If ts>ContentNums Then
     Content=Left(Content,i-1)
 End If
 SplitLines=Content
End Function

[本日志由 随风 于 2006-05-20 13:48:24 编辑]
文章来自: 本站原创
引用通告地址: http://www.fenglog.com/blog/trackback.asp?tbID=44
Tags: PjBlogPjBlog bugbug