重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一般可以通过2种方法来修改,1、修改巴士飞扬列表插件的额源代码,找到巴士飞扬的列表插件的文件夹,找到include.asp文件,Const busfly_randomsort_INTCUTLEN=32,把32改成你对于的标题字数就可以了。2通过css来控制,可以设置的标题的div长度,超出部分直接隐藏就可以了。更多问题可以参考zblog仿站乐园的,希望对你有帮助。
创新互联公司专注于开平企业网站建设,自适应网站建设,成都商城网站开发。开平网站建设公司,为开平等地区提供建站服务。全流程按需制作,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
可以使用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
那你直接把所有模板都修改成你想要的标题,锁死模板不就得了呗。