📄 get_delete_ad.asp

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

💻 ASP

字号:

<%@ LANGUAGE = VBScript.Encode %><!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->

<%
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="get_delete_ad"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@userid",3)
cmd.Parameters.Append cmd.CreateParameter("@ad_id",200,,50)
cmd.Parameters.Append cmd.CreateParameter("@result",16,2)


cmd("@userid")=session("userid")

ad_id=split(request("ad_id"),",")
for i=0 to UBound(ad_id)
	cmd("@ad_id")=clng(ad_id(i))
	cmd.execute
	if cmd("@result")=0 then
		result=0		
		exit for
			else
				result=1
	end if
next



set cmd=nothing
conn.close
set conn=nothing

%>



<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>
<table width="221" border="0" cellspacing="1" cellpadding="2">
<tr>
<td class="px14">
<%
if result=1 then
	response.write "<img src=../../images/right.gif width=20 height=17 align=absmiddle> <b>组别删除完成！</b>"
		else
			response.write "<img src=../../images/wrong.gif width=16 height=17 align=absmiddle> <b>权限不足，无法完成操作！</b>"
end if
%>
</td>
</tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>

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

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -