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 + -
显示快捷键?