📄 get_add_user.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_user"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@userid",3)
cmd.Parameters.Append cmd.CreateParameter("@username",200,,50)
cmd.Parameters.Append cmd.CreateParameter("@password",200,,50)
cmd.Parameters.Append cmd.CreateParameter("@comment",200,,255)
cmd.Parameters.Append cmd.CreateParameter("@result",16,2)
	
cmd("@userid")=session("userid")
cmd("@username")=request("username")
cmd("@password")=request("password1")
cmd("@comment")=request("comment")

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="486" border="0" cellspacing="1" cellpadding="2">
<tr> 
<td class="px14"> 
<%
select case result
	case "1"
		response.write "<img src=../../images/right.gif width=20 height=17 align=absmiddle> <b>用户添加成功！</b>"
	case "2"
		response.write "<img src=../../images/wrong.gif width=16 height=17 align=absmiddle> <b>用户名已存在！</b>"
	case "3"
		response.write "<img src=../../images/wrong.gif width=16 height=17 align=absmiddle> <b>权限不足，无法完成操作！</b>"
end select
%>
</td>
</tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

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

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -