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正式版使用经验[ ]
建议前请备份原文件，死定了别怪我啊~~
如何去掉资源标题日期[ ]
如何去掉资源标题日期? 答：打开updateSite目录下的page01.asp，找到
" strHtml=strHtml&"·
[" & StrClass.FormatMyDate(Rs("AddTime"),
"{m}/{d}") & "]<a href="""
& Rs("FilePath") & """ target=""_blank"">" & Rs("Title")
& "</a><br>" & vbCrLf "
修改为" strHtml=strHtml&"·
<a href=""" & Rs("FilePath") & """ target=""_blank"">"
& Rs("Title") & "</a><br>" & vbCrLf "
其实也就是去掉了取当前系统日期的代码
" [" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "] "
如何增加页面资源更新时的栏目[ ]
如何增加页面资源更新时的栏目?答：呵呵，其实这个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}") & "]
<a href=""" & Rs("FilePath") &
""" target=""_blank"">" & Rs("Title") & "</a><br>" & 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 "代码。
看了第上面的条目后，有点疑问。那么page02.asp、page03.asp、page04.asp有什么用呢？ 答：请看资源更新页面，即manage目录下的updatepage.asp文件。该页面上有4个更新选项。而这4个更新选项所 控制的正是page01.asp、page02.asp、page03.asp和page04.asp。
如何更换Tsys的编辑器[ ]
如何更换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
如何修改静态页面生成格式[ ]
如何修改静态页面生成格式？ 答：一般我觉得不用修改。但如果你想把原来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 "执行错误：<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 "
页面资源更新[ ]
页面资源更新的时候出现 "Microsoft VBScript 运行时错误 错误 '800a0035'
文件未找到
/tsys/manage/Include/Tkl_TemplateClass.asp，行 82 "
提示，该如何解决？
答：出现这个提示的原因，主要是因为没有找到指定更新文件，因而无法更新所造成的。请找到updatesite目录下的page 01.asp文件。找到" TemplateFilePath=Server.MapPath("../../../default.htm") "代码。请确认其路径下有default.htm这个文件。每个资源栏目更新时可以灵活制定其更新页面。其修改方法也就是修改上 面所提到的这行代码。但必须保证代码中所涉及到的目录和文件都存在。否则更新时只会报错！