📄 deleteuser.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../fn/function.asp"-->
<!--#include file="seeadmin.asp"-->
<%
call gadmin
%>
<%Response.Buffer="True"%>
<html>
<head>
<title>删除成员</title>
</head>
<body>
<%
strsql1="select koyee_admin from koyee_admin where id="&Request("id")
set rs=conn.execute(strsql1)
koyee_user=rs("koyee_admin")
rs.close
set rs=nothing
strsql="Delete From koyee_admin where id="&Request("id")
dim number
conn.Execute strsql,number
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="删除管理员["& koyee_user &"]"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
If number=0 Then
call ErroeMsg("删除失败，找不到记录")
Else
call Okmsg("删除成功","admin_user.asp")
End If
'
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -