韶关网站建设|韶关网站设计|韶关网站制作|韶关网页设计|韶关企业网站建设|韶关网站改版|韶关专业网站建设

2008年5月29日手把手教你TSYS建站

目前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><a href="http://www.31u.net/" target="_blank">从此长大</a></title> </head> <body bgcolor="white"> <table width="400" cellpadding="3" cellspacing="5"> <tr> <td id="tablePropsWidth2" width="400" colspan="2"> <a href=http://www.31u.net><a href="http://www.31u.net/" target="_blank">从此长大</a>演示页面</a> </td> </tr> </table> <table width="400" cellpadding="3" cellspacing="5"> <tr> <td id="tablePropsWidth2" width="400" colspan="2"> style="COLOR: black; FONT: 9pt/12pt 宋体, MS Song"><hr color="#C0C0C0" noshade> 请尝试以下操作:<ul> <li id="list1">如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。 </li> <li id="list2">打开 <script> Homepage(); </script> 主页，然后查找指向您感兴趣信息的链接。 </li> <li id="list3">单击<a href="javascript:history.back(1)">后退</a>按钮，尝试其他链接。 </li> <li ID="list4">单击搜索，寻找 Internet 上的信息</li> </ul> <h2 id="ietext" style="font:9pt/12pt 宋体, MS Song; color:black">HTTP 404 - 未找到文件 Internet Explorer </h2> </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><a href="http://www.31u.net/" target="_blank">从此长大</a></title> </head> <body bgcolor="white"> <table width="400" cellpadding="3" cellspacing="5"> <tr> <td id="tablePropsWidth2" width="400" colspan="2"> <a href=http://www.31u.net><a href="http://www.31u.net/" target="_blank">从此长大</a>演示页面</a> </td> </tr> </table> <table width="400" cellpadding="3" cellspacing="5"> <tr> <td id="tablePropsWidth2" width="400" colspan="2"> style="COLOR: black; FONT: 9pt/12pt 宋体, MS Song"><hr color="#C0C0C0" noshade> 请尝试以下操作:<ul> <li id="list1">如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。 </li> <li id="list2">打开 <script> Homepage(); </script> 主页，然后查找指向您感兴趣信息的链接。 </li> <li id="list3">单击<a href="javascript:history.back(1)">后退</a>按钮，尝试其他链接。 </li> <li ID="list4">   </li> </ul> <h2 id="ietext" style="font:9pt/12pt 宋体, MS Song; color:black">HTTP 404 - 未找到文件 Internet Explorer </h2> </td> </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 IfIf Not SysAdmin.UpdatePage Then Response.Write("<script>alert(""<操作失败>\n你的权限不足"& Def_SoftCopyright_Script &""");window.history.back();</script>") Response.End() End IfCall UpdateAdminTime()Dim Conn Set Conn = Server.CreateObject("Adodb.Connection") Conn.Open ConnStrDim StrClass Set StrClass = New Tkl_StringClassSelect 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("../../../index.htm") '//////////////////////////////////////////////////////////////////// '//../../../index.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" '//////////////////////////////////////////////////////////////////// '//红色的部分改为刚添加频道时系统给的ID号~~ '//蓝色的部分为要显示的新闻条数~~ '//////////////////////////////////////////////////////////////////// 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> " & 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。OK了~~在tsys后台“资源管理”里添加文章~~因为只是用了1.1正式版演示的后台，所以在添加文章时记得选“国内新闻”，然后在“站点更新”“页面资源更新”的第一个里选择全部更新~~现在去你刚建的网页刷新下~~是不是显示了刚才的文章？~

Tags:

韶关新月网络设计工作室

韶关网站制作技术专线：0751-8885730 13580109116（网站设计）

2008年5月29日手把手教你TSYS建站

Tags:

发布:admin | 分类:程序与界面设计 | 评论:98 | 引用:0 | 浏览:

韶关新月网络设计工作室

韶关网站制作技术专线：0751-8885730 13580109116（网站设计）

2008年5月29日手把手教你TSYS建站

Tags:

发布:admin | 分类:程序与界面设计 | 评论:98 | 引用:0 | 浏览: strBatchCount+="spn73=73,"

发布:admin | 分类:程序与界面设计 | 评论:98 | 引用:0 | 浏览: