📄 get_add_group.asp

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

💻 ASP

字号:

<!--#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_group"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@userid",3)
cmd.Parameters.Append cmd.CreateParameter("@group_name",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("@result",16,2)

cmd("@userid")=session("userid")
cmd("@group_name")=request("group_name")
cmd("@comment")=request("comment")
cmd("@ad_width")=clng(request("ad_width"))
cmd("@ad_height")=clng(request("ad_height"))

cmd.execute
result=cmd("@result")
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 + -