⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 select_delete_ad.asp

📁 动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务
💻 ASP
字号:
<!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->

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

'===权限校验===

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

sql="select * from user_role where userid=" + cstr(session("userid")) + " and group_id=" + request("group_id")
rs.open sql,conn,0,1
if rs.eof then
	result=0 '无删除权限
		else
				if instr(rs("role_property"),"c")<>0 then
					result=1 '有删除权限
						else
							result=0 '无删除权限
				end if
end if
rs.close

if instr(session("global_access"),"I")<>0 then result=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>
<% if result=1 then %>
</p>
<form name="" method="post" action="get_delete_ad.asp">
<p><b><img src="../../images/iico.gif" width="15" height="15" align="absmiddle"> 
<span class="px14">请选择需要删除的广告条<font color="#FF0000">(只能删除已停止播放的广告)</font>:</span></b></p>
<table width="373" border="0" cellspacing="1" cellpadding="3" class="px14" bgcolor="#000000">
<tr bgcolor="#000099"> 
<td width="148"> 
<div align="center"><font color="#FFFFFF">广 告 条</font></div>
</td>
<td width="160"> 
<div align="center"><font color="#FFFFFF">缩 图</font></div>
</td>
<td width="43"> 
<div align="center"><font color="#FFFFFF">删除</font></div>
</td>
</tr>

<%
sql="select * from ad_info where group_id=" + request("group_id") + " and status=0 order by ad_id Desc"
rs.open sql,conn,0,1
do while not rs.eof
%>
<tr bgcolor="#eeeeee"> 
<td width="148" class="pt9"><%=rs("title")%></td>
<td width="160" class="pt9" align="center"> 
<%
select case rs("interface_type")
	case 1
		response.write "<a href=" & rs("link_url") & " target=_blank><img src=" & rs("pic_url") & " width=150 height=40 border=0></a>"
	case 2
		response.write "Flash广告"
end select
%>
</td>
<td width="43" class="pt9"> 
<div align="center"> 
<input type="checkbox" name="ad_id" value="<%=rs("ad_id")%>">
</div>
</td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
<p>
<input type="submit" name="Submit" value="删 除">
</p>
</form>

<p> 
<% else %>
</p>
<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>

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

</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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