📄 delete_group.asp

📁 动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务

💻 ASP

字号:

<!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->

<%
Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from group_info order by group_id Desc"
rs.open sql,conn,0,1
%>



<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/ads.css" type="text/css">
</head>





<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="../../inc/top.inc" -->
<p>&nbsp;</p>


<% if instr(session("global_access"),"B")<>0 then %>

<form name="" method="post" action="get_delete_group.asp">
<p><b><img src="../../images/iico.gif" width="15" height="15" align="absmiddle"> 
</b><span class="px14"><b>请选择要删除的组别<font color="#FF0000">（删除组别会同时删除该组下所有广告以及相关信息）</font>：</b></span></p>
<table width="485" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000">
<tr bgcolor="#000099"> 
<td width="186" class="px14"> 
<div align="center"><font color="#FFFFFF">组 别 名</font></div>
</td>
<td width="239" class="px14"> 
<div align="center"><font color="#FFFFFF">备 注</font></div>
</td>
<td width="44" class="px14"> 
<div align="center"><font color="#FFFFFF">删除</font></div>
</td>
</tr>
<% do while not rs.eof %>
<tr bgcolor="#CCCCCC"> 
<td width="186" class="px14"><%=rs("group_name")%></td>
<td width="239" class="px14"><%=rs("comment")%></td>
<td width="44" class="px14"> 
<div align="center"> 
<input type="checkbox" name="group_id" value="<%=rs("group_id")%>">
</div>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p>
<input type="submit" name="Submit" value="删 除">
</p>
</form>



<% else %>

<table width="321" border="0" cellspacing="1" cellpadding="2">
<tr> 
<td class="px14"><b><font color="#FF0000">权限不足，无法进行此操作！</font></b></td>
</tr>
</table>
<% end if %>
<p>&nbsp; </p>
<p>&nbsp;</p>
<p>&nbsp;</p>

<!--#include file="../../inc/bottom.inc" -->

</body>
</html>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -