<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer= True
Dim ChannelID
ChannelID=0
%>
<!--#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"-->
<%
Cl.Name="ReFreshData"
If Not Cl.ObjIsEmpty() Then
	if Cl.Value="Yes" then
		Response.write "更新数据中,请稍后……"
		Rem 每日要更新的数据。
		Rem 更新Js
		RefreshJs(0)
		Rem 更新统计
		RefreshCountJs
		Rem 
		RefreshClassMenuJs
		'End   ==================================================
	End if
	Cl.DelCahe("ReFreshData")
End if
Dim sUrl
sUrl=Trim(Request("cUrl"))
if sUrl="" then sUrl=Request.ServerVariables("HTTP_REFERER")
if Instr(Lcase(sUrl),"admin_index.asp")>0 then
	sUrl=Cl.Web_Info(14) & "Admin_Index.Asp?Action=admin_main"
ElseIf sUrl="" then
	sUrl="Index.asp"
End if
CloseAllObj
Response.write "<meta HTTP-EQUIV=REFRESH CONTENT=""1; URL="&sUrl&""">"
'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.Net
'
'邮箱: aspoo@126.com		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>