Tsys1.1使用经验(汇集中)
Tsys1.1正式版使用经验(Tsys使用手记)
1.如何去掉资源标题日期？
答：打开updateSite目录下的page01.asp，找到
" strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "]" & Rs("Title") & "
" & vbCrLf "
修改为" strHtml=strHtml&"·" & Rs("Title") & "
" & vbCrLf "
其实也就是去掉了取当前系统日期的代码" [" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "] "
2.如何增加页面资源更新时的栏目？
答：呵呵，其实这个N简单的。找到updateSite目录下的page01.asp，增加如下代码：
" Function update01()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
Dim Tclass,strHtml
Set Tclass=New Tkl_TemplateClass
strHtml=""
Dim Rs,Sql
Sql="select Top 8 Title,FilePath,AddTime From view_NewsInfo where Class In (34" & AllChildClass(34) & ") order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "]" & Rs("Title") & "
" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing "
注意，Function update01() 这里，是按照数字顺序排列下来的。如果有相同的数字，页面资源更新时就会报错。如果你增加了或者删除了相应的资源更新代码，别忘 了同时也要修改下page01.asp中的
" select Case Request("Work")
Case "update01" :
update01()
updateOk()
Case "All" :
update01()
update02()
update03()
update04()
update05()
update06()
update07()
update08()
updateOk()
End select "代码。
3.看了第2条后，有点疑问。那么page02.asp、page03.asp、page04.asp有什么用呢？
答：请看资源更新页面，即manage目录下的updatepage.asp文件。该页面上有4个更新选项。而这4个更新选项所 控制的正是page01.asp、page02.asp、page03.asp和page04.asp。
4.如何更换Tsys的编辑器？
答：有2种方法。
第一，更换为ewebeditor编辑器。详细请看：http://bbs.tsyschina.com/forum_posts.asp?TID=232&PN=1
第二，请看：http://bbs.tsyschina.com/forum_posts.asp?TID=707&PN=1
5.如何修改静态页面生成格式？
答：一般我觉得不用修改。但如果你想把原来2004/0730/****.htm的格式改成20040730/****.htm 的话，请找到Manage/Include目录下的createFile_Fun.asp文件。先找到生成文件逻辑存放路径那一 段的
" tPath = Directory & "/" & Year(AddTime) & "/" & create_id(AddTime)&"/"&NewsId & Def_FileExtension " 代码。
将其修改为：
" tPath = Directory & "/" & Year(AddTime) & create_id(AddTime)&"/"&NewsId & Def_FileExtension "
然后再找到生成文件物理存放路径那一段的
" tPath = Server.MapPath(Directory)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If
tPath=tPath & "/" & Year(AddTime)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If
tPath=tPath & "/" & create_id(AddTime)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If "代码。
将其修改为：
" tPath = Server.MapPath(Directory)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If
tPath=tPath & "/" & Year(AddTime) & create_id(AddTime)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If "
6.页面资源更新的时候出现：
"Microsoft VBScript 运行时错误 错误 '800a0035'
文件未找到
/tsys/manage/Include/Tkl_TemplateClass.asp，行 82 "
提示，该如何解决？
答：出现这个提示的原因，主要是因为没有找到指定更新文件，因而无法更新所造成的。请找到updatesite目录下的page 01.asp文件。找到" TemplateFilePath=Server.MapPath("../../../default.htm") "代码。请确认其路径下有default.htm这个文件。每个资源栏目更新时可以灵活制定其更新页面。其修改方法也就是修改上 面所提到的这行代码。但必须保证代码中所涉及到的目录和文件都存在。否则更新时只会报错！
7.如何制作Tsys的模板？Tsys页面如何更新？
答：请参考http://bbs.tsyschina.com/forum_posts.asp?TID=1025&PN=1
标题限制字数可更改颜色+最新专题功能
TSYS官方下载地址：
http://www.tsyschina.com/Down/user/tsyssp.rar
3、在每个page0*.asp的更新加…
例子：蓝色是注意的 红色加的 紫色是更改的
'//修改举例
4、限制字数方法
StrClass.CutStr(Rs("Title"),5) （这种可以在后面加…三个点）
left(Rs("Title"),5) <这 种没有…三个点>
意思：是从右边开始截取几个字符
说明：更新后在News_Add.asp里加了一项可以添颜色的表单
添加方法 直接添颜色的值 如 #FF0000 或者red 等等
自动生成分类文件夹
功能：在设置分类列表的时候，可以自动生成分类文件夹。
加这段代码本来是为了自己方便，如果大家觉得有用的话也可以加上。
在Class_Mdy.asp文件480行和553行处 也就是 Rs("Directory")=Request("Directory")后面加：
TSYS生成资源内部链接
最近好多人对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
引用
最后要说说tsys～不过也非常遗憾 2.0刚刚退出测试版 作者就好像人间蒸发一样 消失了！不过对于一个"免费开源，没有版权的CMS来说我们也没有什么可要求的！抛开强大，但可能不成熟（我没用过）的2.0不谈！单说1.1版！从1.1就可以说他是ASPCMS中的老大了！在TSYS的各个版本中均没有出现过重大的安全漏洞 而且对于目前1.1来说 已经是很完善成熟的了！下边我们说说tsys的功能！tsys和一般的CMS不一样！他的功能并非由本身而定！而是根据使用者的能力而定！使用者越厉害 TSYS本身也可以变的更厉害！因为TSYS可以说是一个核心！而其他的东西和功能均需要使用者自己搞定！从这点来说！TSYS的功能可以说是无限的！但这也决定了TSYS不会流行起来！说白了只有高手使用TSYS才能把TSYS的优点发挥的淋漓尽致！对于一般的站长来说TSYS恐怕是个令人头疼的CMS～但这不能否定TSYS的优秀！不得不承认TSYS是真正的"老大"！
1.如何去掉资源标题日期？
答：打开updateSite目录下的page01.asp，找到
" strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "]" & Rs("Title") & "
" & vbCrLf "
修改为" strHtml=strHtml&"·" & Rs("Title") & "
" & vbCrLf "
其实也就是去掉了取当前系统日期的代码" [" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "] "
2.如何增加页面资源更新时的栏目？
答：呵呵，其实这个N简单的。找到updateSite目录下的page01.asp，增加如下代码：
" Function update01()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
Dim Tclass,strHtml
Set Tclass=New Tkl_TemplateClass
strHtml=""
Dim Rs,Sql
Sql="select Top 8 Title,FilePath,AddTime From view_NewsInfo where Class In (34" & AllChildClass(34) & ") order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "]" & Rs("Title") & "
" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing "
注意，Function update01() 这里，是按照数字顺序排列下来的。如果有相同的数字，页面资源更新时就会报错。如果你增加了或者删除了相应的资源更新代码，别忘 了同时也要修改下page01.asp中的
" select Case Request("Work")
Case "update01" :
update01()
updateOk()
Case "All" :
update01()
update02()
update03()
update04()
update05()
update06()
update07()
update08()
updateOk()
End select "代码。
3.看了第2条后，有点疑问。那么page02.asp、page03.asp、page04.asp有什么用呢？
答：请看资源更新页面，即manage目录下的updatepage.asp文件。该页面上有4个更新选项。而这4个更新选项所 控制的正是page01.asp、page02.asp、page03.asp和page04.asp。
4.如何更换Tsys的编辑器？
答：有2种方法。
第一，更换为ewebeditor编辑器。详细请看：http://bbs.tsyschina.com/forum_posts.asp?TID=232&PN=1
第二，请看：http://bbs.tsyschina.com/forum_posts.asp?TID=707&PN=1
5.如何修改静态页面生成格式？
答：一般我觉得不用修改。但如果你想把原来2004/0730/****.htm的格式改成20040730/****.htm 的话，请找到Manage/Include目录下的createFile_Fun.asp文件。先找到生成文件逻辑存放路径那一 段的
" tPath = Directory & "/" & Year(AddTime) & "/" & create_id(AddTime)&"/"&NewsId & Def_FileExtension " 代码。
将其修改为：
" tPath = Directory & "/" & Year(AddTime) & create_id(AddTime)&"/"&NewsId & Def_FileExtension "
然后再找到生成文件物理存放路径那一段的
" tPath = Server.MapPath(Directory)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If
tPath=tPath & "/" & Year(AddTime)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If
tPath=tPath & "/" & create_id(AddTime)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If "代码。
将其修改为：
" tPath = Server.MapPath(Directory)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If
tPath=tPath & "/" & Year(AddTime) & create_id(AddTime)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：
" & tPath & "路径不存在,请核对。"
Response.End
End If
End If "
6.页面资源更新的时候出现：
"Microsoft VBScript 运行时错误 错误 '800a0035'
文件未找到
/tsys/manage/Include/Tkl_TemplateClass.asp，行 82 "
提示，该如何解决？
答：出现这个提示的原因，主要是因为没有找到指定更新文件，因而无法更新所造成的。请找到updatesite目录下的page 01.asp文件。找到" TemplateFilePath=Server.MapPath("../../../default.htm") "代码。请确认其路径下有default.htm这个文件。每个资源栏目更新时可以灵活制定其更新页面。其修改方法也就是修改上 面所提到的这行代码。但必须保证代码中所涉及到的目录和文件都存在。否则更新时只会报错！
7.如何制作Tsys的模板？Tsys页面如何更新？
答：请参考http://bbs.tsyschina.com/forum_posts.asp?TID=1025&PN=1
标题限制字数可更改颜色+最新专题功能
TSYS官方下载地址：
http://www.tsyschina.com/Down/user/tsyssp.rar
3、在每个page0*.asp的更新加…
例子：蓝色是注意的 红色加的 紫色是更改的
'//修改举例
Function update01()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath(\"更新文件路径\")
Dim Tclass,strHtml
Set Tclass=New Tkl_TemplateClass
strHtml=\"\"
Dim Rs,Sql
Sql=\"select Top 6 Title,Color,ClassTitle2,ClassUrl,FilePath,AddTime From view_NewsInfo where Class In (64\" & AllChildClass(64) & \") order By Id DESC\"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&\"·[\" & Rs(\"ClassTitle2\") & \"]\" & left(Rs(\"Title\"),10) & \"
\" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
With Tclass
.OpenTemplate(TemplateFilePath)
.StartElement=\"\"
.EndElement=\"\"
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set Tclass=Nothing
End Function
Dim TemplateFilePath
TemplateFilePath=Server.MapPath(\"更新文件路径\")
Dim Tclass,strHtml
Set Tclass=New Tkl_TemplateClass
strHtml=\"\"
Dim Rs,Sql
Sql=\"select Top 6 Title,Color,ClassTitle2,ClassUrl,FilePath,AddTime From view_NewsInfo where Class In (64\" & AllChildClass(64) & \") order By Id DESC\"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&\"·[\" & Rs(\"ClassTitle2\") & \"]\" & left(Rs(\"Title\"),10) & \"
\" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
With Tclass
.OpenTemplate(TemplateFilePath)
.StartElement=\"\"
.EndElement=\"\"
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set Tclass=Nothing
End Function
4、限制字数方法
StrClass.CutStr(Rs("Title"),5) （这种可以在后面加…三个点）
left(Rs("Title"),5) <这 种没有…三个点>
意思：是从右边开始截取几个字符
说明：更新后在News_Add.asp里加了一项可以添颜色的表单
添加方法 直接添颜色的值 如 #FF0000 或者red 等等
自动生成分类文件夹
功能：在设置分类列表的时候，可以自动生成分类文件夹。
加这段代码本来是为了自己方便，如果大家觉得有用的话也可以加上。
在Class_Mdy.asp文件480行和553行处 也就是 Rs("Directory")=Request("Directory")后面加：
Dim Fso
Set Fso = Server.createObject(Def_FsoObjectStr)
If Not Fso.FolderExists(Server.Mappath(Request(\"Directory\"))) Then
Fso.createFolder(Server.Mappath(Request(\"Directory\")))
End If
Set Fso=Nothing
Set Fso = Server.createObject(Def_FsoObjectStr)
If Not Fso.FolderExists(Server.Mappath(Request(\"Directory\"))) Then
Fso.createFolder(Server.Mappath(Request(\"Directory\")))
End If
Set Fso=Nothing
TSYS生成资源内部链接
'////////////////////////////////////////
'//生成资源内部链接
Function UrlName(arrContent)
Dim UrlContent,RsUrl
UrlContent=arrContent
If UrlContent<>\"\" Then
Set RsUrl=Conn.Execute(\"select Title,LinkUrl From LinkList order By Id Desc\")
While Not RsUrl.Eof
UrlContent=Replace(UrlContent,RsUrl(\"Title\"),\"\"&RsUrl(\"Title\")&\" \")
RsUrl.MoveNext
Wend
RsUrl.Close
Set RsUrl=Nothing
End If
UrlName=UrlContent
End Function
大家看到上面的了没..是将某个关键词替换为一个含连接地址的关键词…'//生成资源内部链接
Function UrlName(arrContent)
Dim UrlContent,RsUrl
UrlContent=arrContent
If UrlContent<>\"\" Then
Set RsUrl=Conn.Execute(\"select Title,LinkUrl From LinkList order By Id Desc\")
While Not RsUrl.Eof
UrlContent=Replace(UrlContent,RsUrl(\"Title\"),\"\"&RsUrl(\"Title\")&\" \")
RsUrl.MoveNext
Wend
RsUrl.Close
Set RsUrl=Nothing
End If
UrlName=UrlContent
End Function
