手把手教你TSYS建站

小monkey

手把手教你TSYS建站
献给第一次使用TSYS系统的新手~~呵呵~~
TSYS作为开源、免费软件，但是官方却一直没有一个比较正式的教程提供给刚接触的新手~~网络上有网友也就是寒蝉（在落伍吧）制作了一个入门的电子书籍给新接触的朋友，今天我写的这个帖子是那种日记式的教学，相信可以很快的帮助新接触TSYS的朋友上手
TSYS应用要求使用者对HTML有一定的了解~~目前TSYS最新版本为2.0beta1，而且网络上有不少TSYS加强板，这使用的是官方发布的TSYS1.1正式版，
1。建好你的页面模版。实际上就是建好一个静态的页面，页面板块，形式全是自己定义的，也就可以用TSYS建出形式各样的页面，这也是和其他一些建站系统有所区别的，建议添加上必要的内容，举例说明：
a:link  {font:9pt/12pt 宋体, MS Song; color:red}
a:visited  {font:9pt/12pt 宋体, MS Song; color:#4e4e4e}
从此长大
  
   
   从此长大演示页面
   
  
  
   
   
    请尝试以下操作:
      如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。
      
      打开主页，然后查找指向您感兴趣信息的链接。
      单击后退按钮，尝试其他链接。     
      单击搜索，寻找 Internet 上的信息
   
   
  
2。在需要更新的地方使用标签（标签支持中文），如上例子，我要在“单击搜索，寻找 Internet 上的信息”这个地方替换为以后的“国内新闻”这个栏目~~就可以更改为
a:link  {font:9pt/12pt 宋体, MS Song; color:red}
a:visited  {font:9pt/12pt 宋体, MS Song; color:#4e4e4e}
从此长大
  
   
   从此长大演示页面
   
  
  
[color="#ff0000"]
   
   
    请尝试以下操作:
      如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。
      
      打开主页，然后查找指向您感兴趣信息的链接。
      单击后退按钮，尝试其他链接。     
      单击搜索，寻找 Internet 上的信息
   
   
[color="#ff0000"]
  
3。在TSYS后台添加“国内新闻”这个频道，可以看到它有个ID号，等会用的上的
4。在TsysManageUpdateSite中有系统自带的page01.asp......等4个用于游戏演示站的更新文件~~我们选择其中一个page01.asp,修改其中的代码为
top.location='login.asp'"
End If
If Not SysAdmin.UpdatePage Then
    Response.Write("alert(""
你的权限不足"& Def_SoftCopyright_Script &""");window.history.back();")
    Response.End()
End If
Call UpdateAdminTime()
Dim Conn
Set Conn = Server.CreateObject("Adodb.Connection")
    Conn.Open ConnStr
Dim StrClass
Set StrClass = New Tkl_StringClass
Select Case Request("Work")
    Case "Update01" :
        Update01()
        UpdateOk()
    Case "All" :
        Update01()
        UpdateOk()
End Select
'//更新成功提示
Function UpdateOk()
    Response.Write("alert(""
页面更新成功"& Def_SoftCopyright_Script &""");window.history.back();")
    Response.End()
End Function
'//国内新闻
Function Update01()
    Dim TemplateFilePath
        TemplateFilePath=Server.MapPath[color="#008000"]("../../../index.htm")   
[color="#0000ff"]'////////////////////////////////////////////////////////////////////
'//../../../index.htm
'//以上路径，名称一定要设对，否则会报错
'////////////////////////////////////////////////////////////////////
    Dim TClass,strHtml
    Set TClass=New Tkl_TemplateClass
        strHtml=""
    Dim Rs,Sql
        Sql="Select Top [color="#0000ff"]8 Title,FilePath,AddTime From view_NewsInfo Where Class In ([color="#ff0000"]34" & AllChildClass([color="#ff0000"]34) & ") Order By Id DESC"
[color="#0000ff"]'////////////////////////////////////////////////////////////////////
'//红色的部分改为刚添加频道时系统给的ID号~~
'//蓝色的部分为要显示的新闻条数~~
'////////////////////////////////////////////////////////////////////
    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
    With TClass
        .OpenTemplate(TemplateFilePath)
        .StartElement[color="#ff0000"]=""
        .EndElement[color="#ff0000"]=""
[color="#0000ff"]'////////////////////////////////////////////////////////////////////
'//改为和你使用的标签一致
'////////////////////////////////////////////////////////////////////
        .Value=strHtml
        .ReplaceTemplate()
        .Save()
    End With
    Set TClass=Nothing
End Function
%>
4。OK了~~在tsys后台“资源管理”里添加文章~~因为只是用了1.1正式版演示的后台，所以在添加文章时记得选“国内新闻”，然后在“站点更新”“页面资源更新”的第一个里选择全部更新~~现在去你刚建的网页刷新下~~是不是显示了刚才的文章？~

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/6233/showart_22796.html