refreshdata.asp

来自「正版创力4.1SQL商业版!!!ASP版。」· ASP 代码 · 共 44 行

<!--#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
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>