Tsys1.1 user experience (coming together)

Experience in using Tsys1.1 official edition (manual for Tsys)

Recently, many people are very interested in tsys. What you don't know is that tsys's asp version has already stopped development, I used PHP to re-develop a more powerful cms Based on the asp version of tsys. The name is blackhand, this version retains all the advantages of tsys, shields the disadvantages of tsys, and adds many great functions. If you are interested, you can take a look.
In addition, the asp version of tsys requires the webmaster to write asp scripts. Similarly, for flexibility, this PHP version requires the webmaster to write PHP scripts. Only in this way can the webmaster be more flexible, it can be used for other features that cms does not dare to involve or never can do. this is the true meaning of tsys!
PHP tsys browser page: Http://hi.baidu.com/see7di/blog/item/4daf1955bd555bc8b745ae93.html
PHP tsys: Http://download.csdn.net/source/3248406

Refer to tsys ~ However, I am also very sorry that the author of the 2.0 beta version just disappeared, as if it had vanished! However, for a "free open-source, copyrighted CMS, we have no requirements! Aside from being powerful, but it may be immature (I have never used it! Simply say version 1.1! From 1.1, we can say that he is the boss of ASPCMS! No major security vulnerabilities have been detected in all versions of TSYS, and it is very mature for the current version 1.1! Let's talk about the tsys function! Tsys is different from common CMS! Its function is not determined by itself! It depends on the user's ability! The more powerful the user, the more powerful the TSYS itself can be! Because TSYS is the core! Other things and functions must be handled by the user! In this regard! TSYS functions are unlimited! But this also determines that TSYS will not become popular! To put it bluntly, only a master can use TSYS to give full play to the advantages of TSYS! For average webmasters, TSYS is probably a headache CMS ~ However, this does not mean that TSYS is excellent! I have to admit that TSYS is the real "boss "!

1. How to remove the resource title date?

A: Open page01.asp in the updateSite directory and find

"StrHtml = strHtml &" · ["& StrClass. formatMyDate (Rs ("AddTime"), "{m}/{d}") & "]" & Rs ("Title ")&"
"& VbCrLf"

Change to "strHtml = strHtml &" · "& Rs (" Title ")&"
"& VbCrLf"

In fact, the code "[" & StrClass. FormatMyDate (Rs ("AddTime"), "{m}/{d}") & "]" is removed from the current system date.

2. How to add columns when page resources are updated?

A: Well, N is actually simple. Find page01.asp under the updateSite directory and add the following code:

"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"

Note that Function update01 () is arranged in numerical order. If the number is the same, an error is reported when page resources are updated. If you have added or deleted the corresponding resource update code, do not forget to modify

"Select Case Request (" Work ")
Case "update01 ":
Update01 ()
UpdateOk ()
Case "All ":
Update01 ()
Update02 ()
Update03 ()
Update04 ()
Update05 ()
Update06 ()
Update07 ()
Update08 ()
UpdateOk ()
End select "code.

3. After reading 2nd articles, I have some questions. So what is the use of page02.asp, page03.asp, and page04.asp?
A: Please refer to the resource Update page, that is, the updatepage. asp file under the manage directory. This page has four update options. The four update options control page01.asp, page02.asp, page03.asp, and page04.asp.

4. How can I change the Tsys editor?
A: There are two methods.
First, change to the ewebeditor editor. See: http://bbs.tsyschina.com/forum_posts.asp? TID = 232 & PN = 1
Second, please see: http://bbs.tsyschina.com/forum_posts.asp? TID = 707 & PN = 1

5. How do I modify the static page generation format?
A: I don't think I need to modify it. If you want to change the original 2004/0730/***. htm format to 20040730/***. htm, find the createFile_Fun.asp file in the Manage/Include directory. First, find the logical storage path of the generated file.
"TPath = Directory &"/"& Year (AddTime) &"/"& create_id (AddTime) &"/"& NewsId & Def_FileExtension" code.
Modify it:
"TPath = Directory &"/"& Year (AddTime) & create_id (AddTime) &"/"& NewsId & Def_FileExtension"
Then find the section in the physical storage path of the generated file.
"TPath = Server. MapPath (Directory)
If Not Fso. FolderExists (tPath) Then
Fso. createFolder (tPath)
If Def_createNewsFiles_ShowFolderError And Err. Number <> 0 Then
Response. Write "execution error:
"& TPath &"The path does not exist. Check the path. "
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 "execution error:
"& TPath &"The path does not exist. Check the path. "
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 "execution error:
"& TPath &"The path does not exist. Check the path. "
Response. End
End If
End If "code.
Modify it:
"TPath = Server. MapPath (Directory)
If Not Fso. FolderExists (tPath) Then
Fso. createFolder (tPath)
If Def_createNewsFiles_ShowFolderError And Err. Number <> 0 Then
Response. Write "execution error:
"& TPath &"The path does not exist. Check the path. "
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 "execution error:
"& TPath &"The path does not exist. Check the path. "
Response. End
End If
End If"

6. Page resource updates:
"Microsoft VBScript runtime error '800a0035'
File not found
/Tsys/manage/Include/Tkl_TemplateClass.asp, row 82"
Tip: how to solve this problem?
A: The cause of this prompt is that the specified Update file is not found and thus the file cannot be updated. Find the page 01. asp file under the updatesite directory. Find the "TemplateFilePath = Server. MapPath (".../../default.htm ")" code. Please confirm that the default.htm file is under it. When updating each resource column, you can flexibly define its update page. The modification method is to modify the code mentioned above. However, the directories and files involved in the Code must exist. Otherwise, only an error will be reported during the update!

7. How to Create a Tsys template? How to update the Tsys page?
A: see http://bbs.tsyschina.com/forum_posts.asp? TID = 1025 & PN = 1
Subject limit words can be changed color + latest topic function
TSYS official:
Http://www.tsyschina.com/Down/user/tsyssp.rar

3. Update and add in each page0 *. asp...
Example: blue indicates that the red and purple colors are changed.
'// Modify the example Function update01 ()
Dim TemplateFilePath
TemplateFilePath = Server. MapPath (\ "Update file path \")
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
Set Tclass = Nothing
End Function

4. Word Limit Method
StrClass. CutStr (Rs ("Title"), 5) (this can be followed... Three points)
Left (Rs ("Title"), 5) <none... Three points>
It refers to the number of characters intercepted from the right.
Note: After the update, a color-added form is added to News_Add.asp.
Add a color value for the add method, for example, # FF0000 or red.
Automatically generate category folders
Function: You can automatically generate a category folder when setting the category list.
This Code is intended for your convenience. You can add it if you find it useful.
Add Dim Fso to rows 480 and 553 of the Class_Mdy.asp file, that is, Rs ("Directory") = Request ("Directory ").
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 generates a Resource Internal Link'////////////////////////////////////////
'// Generate a Resource Internal Link
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

We can see that none of the above... is to replace a keyword with a connection address...