📄 refreshdata.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<!--#include file="Inc/Cl_Function_Article.asp"-->
<!--#include file="Inc/Cl_Function_Soft.asp"-->
<!--#include file="Inc/Cl_Function_Photo.asp"-->
<!--#include file="Inc/Cl_Function_Movie.asp"-->
<!--#include file="Inc/Cl_Function_Product.asp"-->
<%
Dim ChannelID
ChannelID = 0
Cl.Name="ReFreshData"
If Not Cl.ObjIsEmpty() Then
if Cl.Value="Yes" Then
'Response.write "更新中……"
Rem 每日要更新的数据。
Rem 更新Js
RefreshJs(0)
Rem
'RefreshClassMenuJs
Rem End
End if
Cl.DelCahe("ReFreshData")
End if
Dim sUrl
sUrl=Request.ServerVariables("PATH_INFO")
If sUrl="" Or InStr(LCase(sUrl), "refreshdata.asp")>0 then
sUrl=InstallDir & "Index.asp"
End if
CloseAllObj
Response.redirect(sUrl)
'Response.write "<meta http-equiv=refresh content=""1; url="&surl&""">"
'==================================================
'CreateLive CMS Version 4.0
' Powered by Aspoo.Net
'
'邮箱: support@aspoo.cn Info@aspoo.cn
'QQ: 3315263 596197794
'网站: www.aspoo.cn www.aspoo.com
'论坛: bbs.aspoo.cn bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -