从此长大‘s Blog◇Welcome to My Blog◇

Tsys1.1正式版使用经验   [ 日期: 2005-05-14 1:11:41 AM | 作者:admin | 来源:Original ||]
注意：我并没有把所有的东西都尝试过更改，作这个收集只为了方便大家的查找
建议前请备份原文件，死定了别怪我啊~~
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
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

_xyz