📄 get_add_ad_interface1.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_add_ad_interface_1"
cmd.CommandType=&H0004
		
cmd.Parameters.Append cmd.CreateParameter("@userid",3)
cmd.Parameters.Append cmd.CreateParameter("@group_id",3)
cmd.Parameters.Append cmd.CreateParameter("@title",200,,50)
cmd.Parameters.Append cmd.CreateParameter("@comment",200,,255)
cmd.Parameters.Append cmd.CreateParameter("@ad_width",3)
cmd.Parameters.Append cmd.CreateParameter("@ad_height",3)
cmd.Parameters.Append cmd.CreateParameter("@pic_url",200,,255)
cmd.Parameters.Append cmd.CreateParameter("@link_url",200,,255)
cmd.Parameters.Append cmd.CreateParameter("@result",16,2)
		
cmd("@userid")=session("userid")
cmd("@group_id")=clng(request("group_id"))
cmd("@title")=request("title")
cmd("@comment")=request("comment")
cmd("@ad_width")=clng(request("ad_width"))
cmd("@ad_height")=clng(request("ad_height"))
cmd("@pic_url")=request("pic_url")
cmd("@link_url")=request("link_url")
	
cmd.execute
		
result=cmd("@result")



%>


<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="263" 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>
<%
set cmd=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -