终于清楚TSYS的首页更新原理

终于研究明白TSYS的首页更新原理,
现在所以问题都清楚了,下一步可以大举进攻了.打入列强!! [shuai]

嘿，以后建站，不管是什么样子的，只要有TSYS一切搞定！[lol]



Ⅳ、Updatepage里的文件详细讲解

    TSYS的资源特性可以说是这个系统的精髓所在，利用好这个功能，可以随心所欲的制作出风格多变的页面内容，在官方提供下载的文件里的几个page.asp文件都是很好的例子了，只要稍微修改一下一般就完全可以满足大部分站长的需要了。：）
举例说明如下：
top.location='login.asp'"
End If
If Not SysAdmin.UpdatePage Then
Response.Write("alert(""\n你的权限不足"& 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 "All" :
Update01()
UpdateOk()

End Select
'//更新成功提示
Function UpdateOk()
Response.Write("alert(""\n页面更新成功"& Def_SoftCopyright_Script &""");window.history.back();")
Response.End()
End Function
'//新闻栏目更新举例
Function Update01()
Dim TemplateFilePath
TemplateFilePath=Server.
MapPath
("../../index.htm") '//这里的MapPath是你要更新的文件路径
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"
'//view_NewsInfo是显示所有新闻的查询。在这里Top 10是你要更新的资源条数，(34" & AllChildClass(34) & ")是要更新的资源栏目ID
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof

strHtml
=strHtml&"

相关文章

采用TSYS创建门户新闻网TSYS资源特性的效率提高重置TSYS系统中的所有"生成的文件"成"未生成文件"TSYS中生成静态页时溢出: 'CInt'TSYS SQL1.1 版的全面修改及调试记录TSYS同时生成静态分类为TSYS SQL版增加"内部链接"TSYS文件上传安全补丁为TSYS增加RSS输出

标签：tsys 发布于：2006-01-14 12:01:43