📄 save_admin.asp

📁 商城源码程序(上海数字商城整站) 功能列表：商品管理

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%call time_out()%>
<%
if instr(session("proview"),"s2")=0  then
response.Write "<script language=javascript>alert('您无权操作!');window.location.href='index.asp';</script>"
response.end
end if%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
action=trim(Request("action"))
aid=trim(Request("aid"))
select case action
case "add"
sql="select * From sys_admin"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("admin_name")=trim(Request("admin_name"))
rs("admin_pass")=md5(trim(Request("admin_pass")))
rs("proview")=trim(request("s1"))&trim(request("s2"))&trim(request("s3"))&trim(request("s4"))&trim(request("s5"))
rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('添加成功!');document.location.href='addadmin.asp';</script>"

case "edit"
sql="select * From sys_admin where aid="&aid
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs("admin_name")=trim(Request("admin_name"))
if trim(request("admin_pass"))<>"" then
rs("admin_pass")=md5(trim(Request("admin_pass")))
end if
rs("proview")=trim(request("s1"))&trim(request("s2"))&trim(request("s3"))&trim(request("s4"))&trim(request("s5"))
rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('修改成功!');document.location.href='manage_admin.asp';</script>"

case "del"
conn.execute("delete from sys_admin where aid="&aid)
response.redirect("manage_admin.asp")
end select%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -