📄 admin_adv.asp

📁 主要特色功能如下： 1．注册与否均可购物（同类程序中大多要求注册才能购物）

💻 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%"> 
     
<%
   		response.write "免费版不能进行滚动广告管理，欢迎您使用正式版。"
		response.write "<meta http-equiv=refresh content=""2;URL=admin_error.asp"">"
%>
     
     
	 </td></tr></table>   

	</td></tr>

	</table>
	</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -