admin.asp

来自「依悠广告管理系统 V1.1 使用帮助 V1.1 更新情况(2008.03.」· ASP 代码 · 共 76 行

ASP
76
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "chk.asp" -->
<!--#include file = "class.asp"-->
<%
Dim T
Sub head
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<title><%=T%> - 管理页面 - 依悠广告管理系统 V1.1</title>
<link href="images/style.css" type="text/css" rel="stylesheet" />
</head>
<body>
<div id="content">
<div id="menu">
<a href="?menu=ADadd">添加广告</a>
<a href="?menu=list">广告管理</a> 
<a href="?menu=MA">修改密码</a> 
<a href="?menu=help">使用帮助</a> 
<a href="javascript:history.go(-1)">返回上层</a>
<a href="login.asp?menu=out">退出管理</a>
<a href="http://www.yiuu.net/" target="_blank">问题反馈</a>
</div>
<br />
<%
End Sub
Select case menu
	case ""
		T = "广告管理"
		head 
		list
	case "ADadd"
		T = "添加广告"
		head 
		ADadd
	case "ADadde"
		ADadde		
	case "list"
		T = "广告管理"
		head 
		list
	case "del"
		ADdel
	case "ADedite"
		ADedite
	case "ADedit"
		T = "广告编辑"
		head 
		ADedit
	case "dy"
		T = "广告预览"
		head
		list
		dy
	case "help"
		T = "使用帮助"
		head
		help
	case "MA"
		T = "修改密码"
		head
		MA
	case "MAsave"
		MAsave	
End Select
%>	
</div>
</body>
</html>
<%
Set Rs = Nothing
conn.close:Set conn = Nothing
%>	

⌨️ 快捷键说明

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