终于清楚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&”

相关日志

发表于:2006-01-14 12:01:43 at 12:01 分类:工作 发表评论 Tags:

发表评论

(必填)

(必填)您的电子邮箱不会被公开。

正在加载信息...

Archives