大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一般可以通过2种方法来修改,1、修改巴士飞扬列表插件的额源代码,找到巴士飞扬的列表插件的文件夹,找到include.asp文件,Const busfly_randomsort_INTCUTLEN=32,把32改成你对于的标题字数就可以了。2通过css来控制,可以设置的标题的div长度,超出部分直接隐藏就可以了。更多问题可以参考zblog仿站乐园的,希望对你有帮助。
创新互联建站自2013年起,先为鼓楼等服务建站,鼓楼等地企业,进行企业商务咨询服务。为鼓楼企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
博客首页字数显示设置:
登陆博客----管理博客----(左下角)BLOG信息设置----BLOG基本信息----BLOG特殊设置----文章摘要显示字数----有300、500、1000、20000的选择,自己选定其中一项----确定
登入之后你点击管理博客--BLOG信息设置--BLOG基本信息 就可以了
可以使用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