手把手教你TSYS建站(页 1) - 澳洲网页设计 - 澳洲中文网澳大利亚论坛,澳大利亚华人论坛,澳大利亚留学论坛,澳大利亚中文论坛,

2005-11-4 19:09 城市童话

手把手教你TSYS建站

献给第一次使用TSYS系统的新手~~呵呵~~

TSYS作为开源、免费软件，但是官方却一直没有一个比较正式的教程提供给刚接触的新手~~网络上有网友也就是寒蝉（在落伍吧）制作了一个入门的电子书籍给新接触的朋友，今天我写的这个帖子是那种日记式的教学，相信可以很快的帮助新接触TSYS的朋友上手

TSYS应用要求使用者对HTML有一定的了解~~目前TSYS最新版本为2.0beta1，而且网络上有不少TSYS加强板，这使用的是官方发布的TSYS1.1正式版，

1。建好你的页面模版。实际上就是建好一个静态的页面，页面板块，形式全是自己定义的，也就可以用TSYS建出形式各样的页面，这也是和其他一些建站系统有所区别的，建议添加上必要的内容，举例说明：
<html>
<head>
<style>
a:link  {font:9pt/12pt 宋体, MS Song; color:red}
a:visited  {font:9pt/12pt 宋体, MS Song; color:#4e4e4e}
</style>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=gb2312">
<title>从此长大</title>
</head>
<body bgcolor="white">
<table width="400" cellpadding="3" cellspacing="5">
  <tr>
<td width="400" colspan="2">
<a href=http://www.31u.net>从此长大演示页面</a>
</td>
  </tr>
</table>
<table width="400" cellpadding="3" cellspacing="5">
  <tr>
<td width="400" colspan="2">
<font id="LID1"
style="COLOR: black; FONT: 9pt/12pt 宋体, MS Song"><hr color="#C0C0C0" noshade>
<p id="LID2">请尝试以下操作:</p><ul>
   <li id="list1">如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。<BR>
   </li>
   <li id="list2">打开主页，然后查找指向您感兴趣信息的链接。 </li>
   <li id="list3">单击后退按钮，尝试其他链接。 </li>
   <li ID="list4">单击搜索，寻找 Internet 上的信息</li>
</ul>
</td>
  </tr>
</table>
</body>
</html>

2。在需要更新的地方使用标签（标签支持中文），如上例子，我要在“单击搜索，寻找 Internet 上的信息”这个地方替换为以后的“国内新闻”这个栏目~~就可以更改为
<html>
<head>
<style>
a:link  {font:9pt/12pt 宋体, MS Song; color:red}
a:visited  {font:9pt/12pt 宋体, MS Song; color:#4e4e4e}
</style>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=gb2312">
<title>从此长大</title>
</head>
<body bgcolor="white">
<table width="400" cellpadding="3" cellspacing="5">
  <tr>
<td width="400" colspan="2">
<a href=http://www.31u.net>从此长大演示页面</a>
</td>
  </tr>
</table>
<table width="400" cellpadding="3" cellspacing="5">
  <tr>
[color=Red][/color]
<td width="400" colspan="2">
<font id="LID1"
style="COLOR: black; FONT: 9pt/12pt 宋体, MS Song"><hr color="#C0C0C0" noshade>
<p id="LID2">请尝试以下操作:</p><ul>
   <li id="list1">如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。<BR>
   </li>
   <li id="list2">打开主页，然后查找指向您感兴趣信息的链接。 </li>
   <li id="list3">单击后退按钮，尝试其他链接。 </li>
   <li ID="list4">单击搜索，寻找 Internet 上的信息</li>
</ul>
</td>
[color=Red][/color]
  </tr>
</table>
</body>
</html>

3。在TSYS后台添加“国内新闻”这个频道，可以看到它有个ID号，等会用的上的

4。在Tsys\Manage\UpdateSite中有系统自带的page01.asp......等4个用于游戏演示站的更新文件~~我们选择其中一个page01.asp,修改其中的代码为

<%Option Explicit%>








<%
'////////////////////////////////////////////////////////////////////
'//本页：
'//生成index.htm首页内容
'////////////////////////////////////////////////////////////////////

Dim SysAdmin
Set SysAdmin=New SYSProedom_Class
If Not CBool(SysAdmin.Logined) Then
Response.Write "<script>top.location='login.asp'</script>"
End If

If Not SysAdmin.UpdatePage Then
Response.Write("<script>alert(""<操作失败>\n你的权限不足"& Def_SoftCopyright_Script &""");window.history.back();</script>")
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("<script>alert(""<操作成功>\n页面更新成功"& Def_SoftCopyright_Script &""");window.history.back();</script>")
Response.End()
End Function

'//国内新闻
Function Update01()
Dim TemplateFilePath
      TemplateFilePath=Server.MapPath[color=Green]("../../../index.htm") [/color]
[color=Blue]'////////////////////////////////////////////////////////////////////
'//../../../index.htm
'//以上路径，名称一定要设对，否则会报错
'////////////////////////////////////////////////////////////////////[/color]
Dim TClass,strHtml
Set TClass=New Tkl_TemplateClass
      strHtml=""
Dim Rs,Sql
      Sql="Select Top [color=Blue]8[/color] Title,FilePath,AddTime From view_NewsInfo Where Class In ([color=Red]34[/color]" & AllChildClass([color=Red]34[/color]) & ") Order By Id DESC"
[color=Blue]'////////////////////////////////////////////////////////////////////
'//红色的部分改为刚添加频道时系统给的ID号~~
'//蓝色的部分为要显示的新闻条数~~
'////////////////////////////////////////////////////////////////////[/color]

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

With TClass
      .OpenTemplate(TemplateFilePath)
      .StartElement[color=Red]=""[/color]
      .EndElement[color=Red]=""[/color]
[color=Blue]'////////////////////////////////////////////////////////////////////
'//改为和你使用的标签一致
'////////////////////////////////////////////////////////////////////[/color]
      .Value=strHtml
      .ReplaceTemplate()
      .Save()
End With
Set TClass=Nothing
End Function
%>

4。OK了~~在tsys后台“资源管理”里添加文章~~因为只是用了1.1正式版演示的后台，所以在添加文章时记得选“国内新闻”，然后在“站点更新”“页面资源更新”的第一个里选择全部更新~~现在去你刚建的网页刷新下~~是不是显示了刚才的文章？~

2006-3-5 01:57 1361109

支持!!!!!!!!!!!

2006-4-8 03:03 zwj75

Save()澳洲论坛,澳洲留学移民,澳洲大学,新西兰留学,澳洲旅游,新西兰旅游,新西兰论坛,新西兰技术移民,永久居留权,澳洲签证,新西兰签证,澳洲技术移民,澳洲地图,澳洲华人论坛,新西兰大使馆,澳洲航空公司,新西兰南岛W`EyX#Ug
End With
|x_/SKB-\澳洲论坛,澳洲留学移民,澳洲大学排行,新西兰留学移民,澳洲旅游,新西兰旅游,新西兰论坛,新西兰技术移民,永久居留权,澳洲大学 Set TClass=Nothing纽澳资讯网;]-q2Y[%@

页: [1]

查看完整版本: 手把手教你TSYS建站