TSYS1.1资源特性和嵌入(内容替换)

最近好多人对tsys很感兴趣,其实大家不知道的是tsys的asp版本早就已经停止开发了,为了不想让如此优秀的东西被埋没所以我在tsys的asp版本的基础上使用PHP重新开发了一个功能更强的cms,名字是blackhand,这个版本保留了tsys所有的优点,另外屏蔽了tsys的缺点,还增加了诸多很棒的功能,大家如果感兴趣可以看一下.
另外,因为tsys的asp版本就要求站长会编写asp脚本,同样的,为了灵活性所以呢这个PHP版本就要求站长会写PHP脚本,只有如此才能更灵活,才能用它去做别的cms不敢涉及或永远做不到的功能.这才是tsys的真谛!
PHP版本的tsys浏览页面:http://hi.baidu.com/see7di/blog/item/4daf1955bd555bc8b745ae93.html
PHP版本的tsys下载地址:http://download.csdn.net/source/3248406

说一下TSYS1.1资源特性和嵌入

资源特性实现了专题..推荐等功能..

使用时先建立一个资源特性..也可以在特性下建立新特性..
比如我站点上的特性
首页特性
+——-热点推荐
+——-推荐文字新闻
生活频道分栏特性
+——-休闲图文
+——-生活图文
…..

建立时会有一个特性ID号…比如我的热点推荐是35…

使用方法和首页其他栏目更新机制是一样的…通过..

以我的热点推荐为例子.
‘//热点推荐
Function update03()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath(\” ../../index.htm \”)
Dim Tclass,strHtml,I
Set Tclass=New Tkl_TemplateClass
strHtml=\”\”
Dim Rs,Sql
Sql=\”select Top 5 Title,FilePath,SmallImg,ShortContent,AddTime From view_NewsInfo where Instr(‘,’+Speciality+’,’,’,35,’)<>0 order By Id DESC\”
Set Rs=Conn.ExeCute(Sql)

Tclass.OpenTemplate(TemplateFilePath)

strHtml = \”\”
For I=1 To 5
If Rs.Eof Then
Exit For
End If
strHtml = strHtml & \” ·\” & StrClass.CutStr(Rs(\”Title\”),23) & \”
\” & vbCrLf
Rs.MoveNext
Next

With Tclass
.StartElement=\” \”
.EndElement=\” \”
.Value=strHtml
.ReplaceTemplate()
End With

Rs.Close
Set Rs=Nothing

Tclass.Save()
Set Tclass=Nothing
End Function

请大家特别注意颜色标注的地方．．．．是容易出错的地方．．
·\” & StrClass.CutStr(Rs(\”Title\”),23) & \”

实现了自定义输出样式．．
比如我图文的样式：
TSYS1.1资源特性和嵌入(内容替换)-风君雪科技博客 \” & Rs(\”Title\”) & \”
\” & StrClass.CutStr(Rs(\”ShortContent\”),200)

并无固定形式．．．完全自己定义．．