www.gusucode.com > 运动用品商城网站系统源代码程序 > stat/Admin_Clear.asp

    <!--#include file="inc_config.asp"-->
<!--#include file="inc_Lang_admin.asp"-->
<!--#include file="style/style_all.asp"-->
<!--#include file="inc_admin_functions.asp"-->
<!--#include file="inc_conn.asp"-->

<%
siteid = Request("siteid")
if siteid="" then siteid=CFG_DefaultSite

theurl	= "http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))

tTitle = Lang_Admin_Me & "-" & Lang_Clear

Response.Write replace(Style_Header,"$Title",tTitle)
Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_Admin_Me)

Response.Write replace(Style_MainTop,"$MainName",Lang_Clear)
Response.Write "<table width=""90%"" align=""center""><tr><td>"

if Request("ok")="YES" then
  conn.execute ("update [site] set S_StartTime=#1900-1-1#,S_TodayDate=#1900-1-1# where site_id=" & siteid)
  conn.execute ("delete * from BigSite where site_id=" & siteid)
  conn.execute ("delete * from Client where site_id=" & siteid)
  conn.execute ("delete * from Origin_Page where site_id=" & siteid)
  conn.execute ("delete * from Online where site_id=" & siteid)
  conn.execute ("delete * from [View] where site_id=" & siteid)
  Response.Write Lang_Clear_2
elseif Request("ok")="YES2" then
  conn.execute ("delete * from BigSite where site_id=" & siteid)
  conn.execute ("delete * from Client where site_id=" & siteid)
  conn.execute ("delete * from Origin_Page where site_id=" & siteid)
  conn.execute ("delete * from Online where site_id=" & siteid)
  Response.Write Lang_Clear_2
else
  Response.Write Lang_Clear_0
  Response.Write "<br><br>[<a class=""a1"" href=""Admin_Clear.asp?siteid="&siteid&"&ok=YES"">"&Lang_Clear_1a&"</a>]"
  Response.Write "<br>[<a class=""a1"" href=""Admin_Clear.asp?siteid="&siteid&"&ok=YES2"">"&Lang_Clear_1b&"</a>]"
end if

Response.Write "</td></tr></table>"
Response.Write Style_MainBottom

Response.Write Style_Bottom

Function finddir(filepath)
	finddir=left(filepath,instrRev(filepath,"/"))
end Function

%>