📄 admin_error.asp

📁 全功能网上商城免费版
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../comm/subconn.asp"-->

<%
dim cls
if session("admin")="" then
	Response.Redirect("admin.asp")	
else
	if session("flag")<>"0" then
	
		cls = Instr(session("flag"), "clearall")
		if cls <= 0 then
	%>
		<script language="javascript">
			if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
			  location.href="admin.asp";
			else
			  location.href="quit.asp";
		</script>
	<%
		end if
	end if
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>系统清理</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
.b{color:#cccc99;font-size:10pt;border:dotted 1px}
--></style>
</head>

<body topmargin="0" bgcolor="#336699" text=#ffffff>

<!--#include file="top.asp"-->

<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
    <tr><td width=125 valign="top">
<!--#include file="admin_left.asp"--> 
    </td><td valign="top" width=647>      
      <table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
         <tr>
            <td width="100%">当前位置:<a href="admin.asp">网站管理中心</a>--错误提示</td>
          </tr>
          <tr>
            <td width="100%"> 
              <p align="left"> <br>提示：
              <p align="left">免费版有功能限制，如有需要请使用完整版，完整版包括：</p>
              <p align="left">1.无任何功能限制的完整程序，如有需要可邮寄提供光盘一张。<p align="left">2.详细的使用说明文档，如有需要可邮寄纸质使用说明书。<p align="left">3.可为商业用户提供正式发票。<p align="left">4.一年免费升级，一年售后服务。<p align="left">完整版零售价格：<p align="left">个人用户：68元&nbsp;&nbsp;&nbsp;  
              商业用户：138元<p align="left">QQ：46603699<br>           
              <%
dim db
db=request("db")
if db="" then
%><%
end if

if db="prod" then

	conn.Execute("delete from SearchType")
	conn.Execute("delete from ProdClass")
	conn.Execute("delete from prodmain")
	conn.Execute("delete from FileOther")
	response.write "<font color=""yellow"">产品数据库清理完成！</font><meta http-equiv=refresh content=""1;URL=clearall.asp"">"
	
end if

if db="kehu" then
	conn.Execute("delete from usermain")
	response.write "<font color=""yellow"">客户数据库清理完成！</font><meta http-equiv=refresh content=""1;URL=clearall.asp"">"
end if

if db="dingdan" then
	conn.Execute("delete from orderdetail")
	conn.Execute("delete from orderlist")
	response.write "<font color=""yellow"">订单数据库清理完成！</font><meta http-equiv=refresh content=""1;URL=clearall.asp"">"
end if

if db="faq" then
	response.write "<font color=""yellow"">FAQ数据库清理完成！</font><meta http-equiv=refresh content=""1;URL=clearall.asp"">"
end if

if db="liuyan" then
	conn.Execute("delete from feedback")
	response.write "<font color=""yellow"">留言数据库清理完成！</font><meta http-equiv=refresh content=""1;URL=clearall.asp"">"
end if

if db="wenzhang" then
	conn.Execute("delete from news")
	response.write "<font color=""yellow"">文章数据库清理完成！</font><meta http-equiv=refresh content=""1;URL=clearall.asp"">"
end if
%>
            </td>
          </tr>
        </table>   
      </td></tr>
</table>

</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -