大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一般可以通过2种方法来修改,1、修改巴士飞扬列表插件的额源代码,找到巴士飞扬的列表插件的文件夹,找到include.asp文件,Const busfly_randomsort_INTCUTLEN=32,把32改成你对于的标题字数就可以了。2通过css来控制,可以设置的标题的div长度,超出部分直接隐藏就可以了。更多问题可以参考zblog仿站乐园的,希望对你有帮助。
专注于为中小企业提供网站建设、成都网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业新田免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
新浪的问题了~那就是~~可是我在新浪BLOG上发文章的时间很正常啊~
是不是你没有写标题?或者真的超过了2万?也许可能是你的服务器有问题吧~~~~这个就~~~很难说哦
如果纯粹算字符的话,2000字的文章才2K不到,30M是30*1024K,15万篇左右的文章
可以使用zblog的插件进行修改,好像有个什么列表插件可以修改文章标题字数限制的。
要不就修改程序,看下面:
打开 function 目录里的 c_system_base.asp 文件,找到其中的 BlogReBuild_Previous() 函数,替换为下面的代码,一切OK。我在代码里设置的是超过30个字符就截断,变化为29个字符和“...”,如果你要修改,直接改函数里的数字就可以了
Function BlogReBuild_Previous()
'plugin node
For Each sAction_Plugin_BlogReBuild_Previous_Begin in Action_Plugin_BlogReBuild_Previous_Begin
If Not IsEmpty(sAction_Plugin_BlogReBuild_Previous_Begin) Then Call Execute(sAction_Plugin_BlogReBuild_Previous_Begin)
If bAction_Plugin_BlogReBuild_Previous_Begin=True Then Exit Function
Next
Dim i
Dim objRS
Dim objStream
Dim objArticle
Dim ShowTitle
'Previous
Dim strPrevious
Set objRS=objConn.Execute("SELECT [log_ID] FROM [blog_Article] WHERE ([log_ID]0) AND ([log_Level]1) ORDER BY [log_PostTime] DESC")
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to ZC_PREVIOUS_COUNT
Set objArticle=New TArticle
If objArticle.LoadInfoByID(objRS("log_ID")) Then
if len(objArticle.Title)30 then
showtitle=left(objArticle.Title,29)" ..."
else
showtitle=objArticle.Title
end if
strPrevious=strPrevious "lia href=""" objArticle.Url """ title=""" objArticle.HtmlTitle """span class=""article-date""[" Right("0" Month(objArticle.PostTime),2) "/" Right("0" Day(objArticle.PostTime),2) "]/span" showtitle "/a/li"
End If
Set objArticle=Nothing
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
objRS.close
strPrevious=TransferHTML(strPrevious,"[no-asp]")
Call SaveToFile(BlogPath "/include/previous.asp",strPrevious,"utf-8",True)
BlogReBuild_Previous=True
End Function