deluser.asp
来自「网佳网络办公系统(以下简称OA)是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 32 行
ASP
32 行
<%
if Session("ljl_liujinlu")="" or Session("ljl_grad")="" then%>
<script language=vbscript>
MsgBox "错误:非法用户!"
location.href = "login.asp"
</script>
<%end if%>
<!--#include file="bkconn.asp"-->
<%
if request.querystring("id")="" then
response.write "没有正确的ID号"
else
uid=clng(request.querystring("id"))
end if
Set rs=server.createobject("adodb.recordset")
SQL="select * from user where id=" &uid
rs.open sql,conn,1,3
do while not rs.eof
conn.Execute(SQL)
rs.delete
rs.update
rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
<script language=vbscript>
MsgBox "系统提示:删除成功,请返回!"
location.href = "useradd.asp"
</script>
<html></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?