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 %>