📄 admin_add.asp
字号:
<!--#include file=cookies.asp-->
<!--#include file=conn.asp-->
<html><head><link href="css.css" rel="stylesheet" type="text/css">
<title>三角进销存--管理员添加</title></head>
<body>
<table width="100%" class="inputb"><tr><td align=center>管理员设置</td></tr></table>
<br>
<%
Set rs=Server.createobject("adodb.recordset")
Sql="Select * from [admin]"
rs.open Sql,conn,1,3
response.write"<form name=myform action=admin_add.asp?action=adduser method=post>"
response.write"<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff><tr bgcolor=#f1f1f1><td colspan=3 align=center>添加管理员</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center>姓名：<input name=name type=text class=inputa></td><td align=center>密码：<input name=password type=text class=inputa></td><td align=center><input name=submit type=submit class=inputb value=添加></td></tr>"
response.write"</table></form><br>"
response.write"<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff><tr bgcolor=#f1f1f1><td colspan=3 align=center>删除管理员</td></tr>"
while not rs.eof
response.write"<tr bgcolor=#f1f1f1><td align=center>编号："&rs("id")&"</td>"
response.write"<td align=center>"&rs("name")&"</td>"
response.write"<td align=center><a href=admin_add.asp?action=deluser&id="&rs("id")&">删除</a></td></tr>"
rs.movenext
wend
rs.close
select case request("action")
case "adduser"
Addadmin
case "deluser"
Deladmin
end select
Sub Addadmin()
name=trim(replace(request.form("name"),"'",""))
password=trim(replace(request.form("password"),"'",""))
if name="" or password="" then
response.end
end if
Sqlstr="Insert Into [admin] ([name],[password]) values ('"&name&"','"&password&"')"
conn.execute(sqlstr)
response.redirect"admin_add.asp"
end Sub
Sub Deladmin()
id=request("id")
if not isnumeric(id) or id="" then
response.write"参数错误！"
response.end
else
sql="delete * from [admin] where id="&id
conn.execute(sql)
response.redirect"admin_add.asp"
end if
end Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -