user_save.asp
来自「核心惊云下载系统」· ASP 代码 · 共 56 行
ASP
56 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>程.序:惊.云</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
if request("JyDownDo")="搜索用户名" then
response.redirect "user_list.asp?k="&request.form("k")&""
response.end
end if
if request("JyDownID")="" then
response.write("<script>alert('错误:拜托~ 先选个用户再操作好不好!');history.go(-1)</script>")
response.end
end if
%>
<%Admin="UserAdmin"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_user.asp"-->
<%
if request("JyDownDo")="删除" then
conn.execute("delete from userinfo where id in("&request("JyDownID")&")")
conn.close
set conn=nothing
response.redirect "user_list.asp?dj="&request("dj")&"&page="&request("page")&"&k="&request("k")&""
response.end
elseif request("JyDownDo")="锁定" then
conn.execute("update userinfo set lock=1 where id in("&request("JyDownID")&")")
conn.close
set conn=nothing
response.redirect "user_list.asp?dj="&request("dj")&"&page="&request("page")&"&k="&request("k")&""
response.end
elseif request("JyDownDo")="激活" then
conn.execute("update userinfo set lock=0 where id in("&request("JyDownID")&")")
conn.close
set conn=nothing
response.redirect "user_list.asp?dj="&request("dj")&"&page="&request("page")&"&k="&request("k")&""
response.end
elseif request("JyDownDo")="等级" then
if request("newdj")="" then
response.write("<script>alert('错误:拜托~ 先选个级别好不好!');history.go(-1)</script>")
conn.close
set conn=nothing
response.end
end if
conn.execute("update userinfo set dj="&request("newdj")&" where id in("&request("JyDownID")&")")
conn.close
set conn=nothing
response.redirect "user_list.asp?dj="&request("dj")&"&page="&request("page")&"&k="&request("k")&""
response.end
end if
%>
</body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?