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) & \"

实现了自定义输出样式．．
比如我图文的样式：

\" & Rs(\"Title\") & \"
\" & StrClass.CutStr(Rs(\"ShortContent\"),200)

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

说到特性．．．应该提下嵌入．．．
在页面更新的上面．．
嵌入也提供了一种更新模式．还是通过．．
但是于特性不同的是．．

并不格式化．．也就是说适合放置广告代码．．
比如首页的banner广告．．
定义了
然后在嵌入里面编辑(可视化，这以代码为例子)

当然你也可以插入flash
看出来和特性的区别吗？？
特性是在page01这样的文件中定义好了输出方式．．．而这个没有．．  
嵌入可以同时更新多点．．．
好了。．自己体会一下吧．．．