TURBOCMS模板帮助文档.doc

模板帮助文档kevin1. 内容页面模板常用1)代码标记(模板语言写在此标记中)-end2)Title字段输出-end3)时间字段输出-end4)内容自动输出-end5)自定义字段输出方式：首先在表单定义中定义该字段例如：责任编辑（zrbj）在模板中输出-end6)当前位置： !-%当前位置Set objAncestors = Channel.Ancestors()Response.Output 淄博信息港For each objChannel in objAncestorsResponse.Output & objChannel.Name & Nextif Channel.id67 thenResponse.Output & Channel.Name & end if%-注：其中还可以省去中间不需要输出的频道名称：if Channel.id67 thenResponse.Output & Channel.Name & end if-end7)文章来源：!-%Set colSource = Document.DocumentSourceFor each aSource in colSource Response.Output & aSource.ContentSource &  Next%-end2. 列表页面模板常用1) 当前位置： !-%当前位置Set objAncestors = Channel.Ancestors()Response.Output 淄博信息港For each objChannel in objAncestorsResponse.Output & objChannel.Name & Nextif Channel.id67 thenResponse.Output & Channel.Name & end if%-注：其中还可以省去中间不需要输出的频道名称：if Channel.id67 thenResponse.Output & Channel.Name & end if-end2)文章列表 !-%文章列表For each alink in channel.toc.alllinksResponse.Output & aLink.Title & ”Next%-注：将代码可分成3部分用于结合表格进行循环。-end3)列表时间/作者等!-%文章列表For each alink in channel.toc.alllinksset adoc=aLink.documentResponse.Output & aLink.Title & (& year(adoc(publishdate) &-& month(adoc(publishdate) &-& day(adoc(publishdate) &)Next%-注：当列表页面需要输出其他信息时的方式：1 set adoc=aLink.document（列表aLink获取document对象用于输出其他信息）2 输出时间：Response.Output & aLink.Title & (& year(adoc(publishdate) &-& month(adoc(publishdate) &-& day(adoc(publishdate) &)输出样式：【（2007-1-10）】3 输出作者：Response.Output & aLink.Title & (& adoc(“zuozhe”) &)输出样式：【（kevin）】-end3. 首页面常用1)提取某一个频道下面n条文章，top(n)方法!-%头条新闻For each aDoc in channel.top(5)Response.Output & aDoc(title) & & vbCrlfNext%-end2)提取某一个频道下面n条文章配图，top(n)方法1首先在该频道下定义图片字段：PIC（图片200150）。2!-%头条新闻For each aDoc in channel.top(5)Response.Output & vbCrlfNext%-注：用这种方式提取该频道文章列表和配图可用top方法提取，可以结合表格进行循环，每篇文章默认“头条新闻”字段选项是选中的，所以每篇文章都需要给图片字段配图，此图片才能在列表页面显示出来，否则图片则显示出错误。-end3)提取某一个频道下面n条图片新闻，imagenews (n)方法!-%图片新闻For each aDoc in channel.imagenews(1)Response.Output Response.Output & aDoc(title) & Response.Output aDoc(summary) Next%-注：用这种方式可以显示出该频段下n条图片新闻，可以结合表格进行循环，但imagenews (n)方法需要结合每篇文章“图片新闻”选项进行输出。每篇文章默认“图片新闻”选项是未选中的，如果要将图片显示出来，需要先将此选项选中即可。-end4)提取某一个频道下面所有频道前n条文章，topex(n)方法!-%set chan = System.Getchannel(/财经)For each aDoc in chan.topex(5)Response.Output & aDoc(title) & ( & year(adoc(publishdate) &-& month(adoc(publishdate) &-& day(adoc(publishdate) & ) & vbCrlfNext%-注：用这种方式可以提取出该频段下所有子频道前n条文章，可以结合表格进行循环，需要注意的是首先需要获取父频道：set chan = System.Getchannel(/财经)，这样就可以用上述代码模板输入该父频道所有子频道最新n条文章。其次需要把该附带发布模板设置到所有子频道中去，每个子频道的附带发布模板一定要相同例：/templates/shouye_news_topex13.htm生成/include/shouye_caijing.htm这个设置在所有子频道中是一样的。-end5)提取某一个频道下面所有频道前n条图片新闻，imagenewsex(n)方法!-%set chan = System.Getchannel(/财经)For each aDoc in chan .imagenewsex (5)Response.Output Response.Output & aDoc(title) & Response.Output aDoc(summary) Next%-注：使用方法与topex(n)相同。-end6)如果首页提取指定若干频道的top(x)条信息需要应用GetDocumentInChannel方法GetDocumentInChannel(x,idString,OrderBy)，返回指定频道中最新的X条文章，按照 OrderBy排序。idString是一个以逗号分开的频道ID的字符串，OrderBy为可选参数，参见 Top方法。!-%set achan1 = System.GetDocumentInChannel(1,45,46,47,48)For each adoc in achan1if adoc(wlink) then%-!-%Response.Output & adoc(Title) & %- !-%Response.Output & adoc(Title) & %- 注：上述代码是提取指定频道ID的频道中最新更新的一条信息的方法，而且结合了表格和是否wlink字段为空的判断，可以根据实际情况使用。-end7)如果显示标题需要更改颜色则需要应用titlecolor字段!-%头条新闻For each aDoc in channel.top(5)Response.Output & aDoc(title) & & vbCrlfNext%-注：只有应用titlecolor时，编辑后title颜色才能在页面中显示。-end4. 专题页面常用1.专题自身属性输出-专题Logo!-%专题页面字段:picResponse.Output %-end2.专题自身属性输出-专题Title注：在专题中输出字段用subject方法，如果专题本身需要自定义字段首先在专题中定义该字段，然后用subject方法输出。-end3.在专题页面中提取专题栏目若干条的方法!-%文章列表，栏目名称：相关报道dim iiii = 1Set objsubject = Subject.GetsubjectColumn(相关报道)For each alink in objsubject.toc.alllinksResponse.Output & aLink.Title & if ii = 8 thenexit forelseii = ii + 1end ifNext%-注：这种方式类似于频道的附带发布，但专题中没有附带发布功能，所以在专题模版中写入该代码即可。-end4.在专题页面中提取图片栏目若干条的方法 !-%dim kkdim cckk=0cc=0Set objsubject = Subject.GetsubjectColumn(图片新闻)For each alink in objsubject.toc.alllinksset adoc=alink.documentif kk=5 thenresponse.output kk=0end ifkk=kk+1%- !-%Response.Output %- 注：这种方式类似于频道的附带发布，但专题中没有附带发布功能，所以在专题模版中写入该代码即可，此代码用于显示专题图片前10幅，分2行显示。-end5.专题列表显示方法!-%文章列表Response.Output For each alink in subjectcolumn.toc.alllinksResponse.Output Response.Output & aLink.Title & ( & aLink.PublishDate & )Response.Output NextResponse.Output %-注：跟频道列表显示方法类似，只是需要用subjectcolumn方法。-end5. 常用代码集合1.多列列表 !-%Response.Output & aDoc(title) & & vbCrlf%- =2 thenResponse.Output i=0end ifnext%-end2.内容页面插画中画!-%文档字段:CONTENTdim ccdim addim nndim ttdim llcc=document.item(content)ll=Len(cc)nn=InStr(cc,。)response.output nnif document.item(isshow)=Yes thenif trim(nn) thenad=tt=Left(cc,nn)+ad+Right(cc,ll-nn)String tt=cc.substring(0,nn)+ad+cc.substring(nn+1);Response.Output ttelseResponse.Output ccend ifelseResponse.Output ccend if%-end3.循环父频道下所有子频道列表!-%for each objchan in channel.subchannels()response.output & &next%-end4.列表页文章字数限制15) thenResponse.Output & Left(aLink.Title,15) & ”ElseResponse.Output & aLink.Title & ”End ifNext%-end5.列表页文章链接到某URL中需要定义新字段：wlink，将链接地址输入此字段中!-%文章列表For each alink in channel.toc.alllinksSet adoc = aLink.document()If adoc(“wlink”)” thenResponse.Output & aLink.Title & ”ElseResponse.Output & aLink.Title & ”End ifNext%-6.输出页面里的内容块（即一行显示多条新闻）Public Function TopLine(ByVal linenumber As Long) As ADODB.RecordsetTopLine 方法，返回前几条，是一个RecordSet，取其中的 Content 字段 !-%Set aColumn = Page.GetColumn(今日视点)set rscontent = aColumn.TopLine(5)do while not rscontent.eofresponse.output rscontent(content) &rscontent.movenextloop%-end6. Tag方法使用1.Tag列表模板可分页!-%文章列表，简单列表Dim kk=1Response.Output