<!--#Include File="../Inc/Const.Asp"-->
<!--#Include File="Inc/Class_Setting.Asp"-->
<!--#Include File="Inc/Class_Diypage.Asp"-->
<%'Call ChkLogin("login")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="X-UA-Compatible" content="IE=7">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Simple System-后台管理系统</title>
<link href="Images/Style.Css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript" src="Images/ajax.js"></script>
</head>
<body>
<%
Dim Rs,i,j
If Request("Act") = "ClsCache" Then
	Call ClsCache()
	Dim U
	Set U = New Cls_Setting
	Call U.Refresh()
	Set U = Nothing
	Set U = New Cls_Diypage
	Set Rs = DB("Select [ID] From [{pre}Diypage]",1)
	Do While Not Rs.Eof
	U.vID = Rs(0) : Call U.Rebuild()
	Rs.MoveNext
	Loop
	Rs.Close
response.Redirect("index_body.asp")	
End If
If Request("Act") = "Createindex" Then
	Call ClsCache()
	Call CreateIndex(1)
response.Redirect("index_body.asp")		
end if
%>
</body>
</html>
