📄 get_ad_setting_condition.asp

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

💻 ASP

字号:

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

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

sql="select * from ad_info where group_id=" + request("group_id")
rs.open sql,conn,0,1


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

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


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

do while not rs.eof

	cmd("@ad_id")=rs("ad_id")

	cmd("@is_show_limit")=cint(request("is_show_limit"&cstr(rs("ad_id"))))
	if request("is_show_limit"&cstr(rs("ad_id")))="1" then
		cmd("@show_limit")=clng(request("show_limit"&cstr(rs("ad_id"))))
			else
				cmd("@show_limit")=0
	end if

	cmd("@is_hit_limit")=cint(request("is_hit_limit"&cstr(rs("ad_id"))))
	if request("is_hit_limit"&cstr(rs("ad_id")))="1" then
		cmd("@hit_limit")=clng(request("hit_limit"&cstr(rs("ad_id"))))
			else
				cmd("@hit_limit")=0
	end if
	
	cmd.execute
	
	if cmd("@result")=0 then
		result=0		
		exit do
			else
				result=1
	end if

	rs.movenext
	
loop
rs.close



set rs=nothing
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>计划设置完成！[<a href=ad_setting_summary.asp?group_id=" & request("group_id") & ">返回</a>]</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 + -