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如何修改靜態頁面產生格式

一般可不用修改。但如果你想把原來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