📄 admin_adv.asp

📁 全功能网上商城免费版
💻 ASP
字号:
<!--#include file="admin_conn.asp"-->

<%
action=request("action")

dim cls
if session("admin")="" then
	Response.Redirect("admin.asp")	
else
	if session("flag")<>"0" then
	
		cls = Instr(session("flag"), "adv")
		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

'判断是否支持fso
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>
<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;}
tr {color: #FFFFFF;}
--></style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')  e.checked = form.chkall.checked; 
   }
  }
//-->
</SCRIPT>
</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 + -