整站TDK设置
创新互联建站专注于南芬企业网站建设,响应式网站设计,成都做商城网站。南芬网站建设公司,为南芬等地区提供建站服务。全流程按需定制,专业设计,全程项目跟踪,创新互联建站专业和态度为您提供的服务
(1)页面标题(Title):显示在浏览器的标签栏和windows操作系统的任务栏上。
(2)页面关键词(Keywords):以便用户通过搜索引擎能搜到本网站的词汇,代表了网站的市场定位,不要使用任何关键词超过三次。
(3)页面描述(Descrition):最好不要超过76个字,描述最好带上核心关键词一至二次。
2.栏目TDK设置
3.分类TDK设置
4.内容管理TDK设置
(1)内容管理里面,添加文章,图片,招聘,下载文档,都会有单独的TDK设置。
一般可以通过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