编辑“Tsys信息发布系统”

[[文件:Tsys.jpg|200px|right|thumb|Tsys信息发布系统]]
'''Tsys信息发布系统'''，是用[[ASP]]言语开发的大型信息发布系统，它所具有的独特的"信息无限分类"与"灵活的特性设置"功能,可以全面满足信息类[[网站]]不断发展壮大的过程中而随时产生的功能需求。
==Tsys信息发布系统概况==
* 授权协议：免费
* 开发语言：ASP
* 运行环境：[[Win9x]]/Me/NT/2000/XP/2003

==Tsys信息发布系统存在的版本==
* Tsys信息发布系统 V1.0 正式版.rar
* Tsys信息发布系统 V1.1 正式版.rar
* Tsys信息发布系统 V1.1 SqlServer 正式版.rar
* Tsys信息发布系统 V2.0 beta1 (access) 测试版.rar

==Tsys1.1正式版使用经验== 
<p style="text-indent:2em;">建议前请备份原文件，死定了别怪我啊~~ </p>
===如何去掉资源标题日期===
如何去掉资源标题日期?
答：打开updateSite目录下的page01.asp，找到
<pre>" strHtml=strHtml&"·
[" & StrClass.FormatMyDate(Rs("AddTime"),
"{m}/{d}") & "]<a href=""" 
& Rs("FilePath") & """ target=""_blank"">" & Rs("Title")
 & "</a><br>" & vbCrLf "</pre>
<pre>修改为" strHtml=strHtml&"·
<a href=""" & Rs("FilePath") & """ target=""_blank"">"
 & Rs("Title") & "</a><br>" & vbCrLf "
其实也就是去掉了取当前系统日期的代码
" [" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "] "
</pre>
===如何增加页面资源更新时的栏目===
如何增加页面资源更新时的栏目?答：呵呵，其实这个N简单的。找到updateSite目录下的page01.asp，增加如下[[代码]]：
<pre>
" 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}") & "]
<a href=""" & Rs("FilePath") &
 """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing "
</pre>
注意，Function update01() 这里，是按照数字顺序排列下来的。如果有相同的数字，页面资源更新时就会报错。如果你增加了或者删除了相应的资源更新代码，别忘 了同时也要修改下page01.asp中的
<pre>
" select Case Request("Work")
Case "update01" :
update01()
updateOk()
Case "All" :
update01()
update02()
update03()
update04()
update05()
update06()
update07()
update08()
updateOk()
End select "代码。
</pre>
看了第上面的条目后，有点疑问。那么page02.asp、page03.asp、page04.asp有什么用呢？
答：请看资源更新页面，即manage目录下的updatepage.asp文件。该页面上有4个更新选项。而这4个更新选项所 控制的正是page01.asp、page02.asp、page03.asp和page04.asp。

===如何更换Tsys的编辑器===
如何更换Tsys的编辑器？
答：有2种方法。
*第一，更换为ewebeditor编辑器。详细请看：<nowiki>http://bbs.tsyschina.com/forum_posts.asp?TID=232&PN=1</nowiki>
*第二，请看：<nowiki>http://bbs.tsyschina.com/forum_posts.asp?TID=707&PN=1</nowiki>
===如何修改静态页面生成格式===
如何修改静态页面生成格式？
答：一般我觉得不用修改。但如果你想把原来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 "

然后再找到生成文件物理存放路径那一段的
<pre>
" tPath = Server.MapPath(Directory)
If Not Fso.FolderExists(tPath) Then
Fso.createFolder(tPath)
If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then
Response.Write "执行错误：<br><b>" & tPath & "</b>路径不存在,请核对。"
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 "执行错误：<br><b>" & tPath & "</b>路径不存在,请核对。"
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 "执行错误：<br><b>" & tPath & "</b>路径不存在,请核对。"
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 "执行错误：<br><b>" & tPath & "</b>路径不存在,请核对。"
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 "执行错误：<br><b>" & tPath & "</b>路径不存在,请核对。"
Response.End
End If
End If "
</pre>
===页面资源更新===
页面资源更新的时候出现
"Microsoft VBScript 运行时错误 错误 '800a0035' 

文件未找到 

/tsys/manage/Include/Tkl_TemplateClass.asp，行 82 "

提示，该如何解决？

答：出现这个提示的原因，主要是因为没有找到指定更新文件，因而无法更新所造成的。请找到updatesite目录下的page 01.asp文件。找到" TemplateFilePath=Server.MapPath("../../../default.htm") "代码。请确认其路径下有default.htm这个文件。每个资源栏目更新时可以灵活制定其更新页面。其修改方法也就是修改上 面所提到的这行代码。但必须保证代码中所涉及到的目录和文件都存在。否则更新时只会报错！

==相关条目==
*[[动易CMS]]
*[[帝国CMS]]
*[[DedeCMS]]
*[[PHPCMS]]
*[[PHP168]]
*[[PowerEasy]]
*[[SupeSite]]
*[[Tun2]]
*[[木易下载]]
*[[杰奇]]
*[[OECMS]]
*[[Ok3w新闻发布系统]]

==参考来源==
*http://www.adjie.com/thread-1992-1-1.html
*http://www.onlinedown.net/soft/17652.htm

[[category:CMS|T]]
[[category:建站程序|T]]
[[category:网站程序|T]]