<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_cache.asp
'* 最后更新 2011-01-07 by 56770.kingdge
'*****************************************
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_data.inc"
CurrentId = 0
CurrentUrl = "admin_cache.asp"
LB_Head()
LB_Menu()
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
If OutSubmit = 1 Then CheckOutSubmit()
Select case request("action")
	   Case "cacheupdate" : cacheupdate()
	   Case Else
	             cache()
End Select
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub Cacheupdate
		Dim admin_flag
		admin_flag=",12.1,"
		If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
				adminflag()
		Else
				CurrentId = 0
				CurrentUrl = "admin_data.asp"
				BackType = CheckNum(request("BackType"),0)
				Application.Contents.RemoveAll
				Conn.Execute("delete from Lebi_Event where e_type = 0")
				m_t=Lang_Menu(22)
				m_s="·"& Lang_Data(1)
				If BackType = 0 Then
						m_u="javascript:history.back();"
				ElseIf BackType = 2 Then
						m_u="?"
				Else
						m_s = m_s & "<script>top.document.getElementById(""ajax_cache"").innerHTML=""<a href=\""admin_data.asp?action=cacheupdate\"" onmouseover=\""parent.menu.disp(7);\"" onClick=\""top.document.getElementById('topTitle').innerHTML='"& Lang_Menu(23) &"';\"" title=\"""& Lang_Menu(22) &"\"" target=\""right\"">"& Lang_Menu(21) &"</a>"";</script>"
'						m_u="javascript:window.parent.location.reload('manage.asp');"
						m_u="admin.asp"
				End If
				m_time="2"
				Call Up_mes(m_t,m_s,0,m_u,0,0,m_time,1)
		End If
End Sub
Function UpC(ByVal AppCount)
		Dim i
		For i = 0 to AppCount+10
			Application.Lock
			Application.Contents.Remove(Application.Contents.key(i))
			Application.unLock
		Next
End Function

Sub cache
		admin_flag=",12.1,"
		If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
				adminflag()
		Else
%>
				<table width="100%" border="0" cellspacing="0" cellpadding="0" id="cache" class="classtable">
				<form method="post" action="?">
				<tr>
				  <td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_update.gif" title=" <%=Lang_sys(33)%> " align="absmiddle"><input type="hidden" name="BackType" value="2"><input type="hidden" name="action" value="cacheupdate"></td>
				  <td class="classhead" align="right">
				  <%=QuickMenu("","admin_language.asp|"& Lang_Menu(149) &"")%>
				</td>
				 </tr>
				<tr>
				<td class="classtop" colspan="2" height="30"><%=Lang_Menu(22)%></td>
				</tr>
				<tr class="classrow">
				<td height="50" colspan="2" class="classrow">
				<%=Lang_Data(2)%><br />
				<%=Replace(Lang_Data(3),"[num]","<FONT COLOR='#FF0033'>"& Application.Contents.Count &"</FONT>")%></td>
				</tr>
				</form>
				</table>
				<script>tdshow("cache");</script>
<%
		end If
End Sub
%>