📄 del.asp
字号:
<% option explicit %>
<!-- #include virtual="/admin/store/_ccwlib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能:用户管理--删除用户
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs,i
Dim uid '---管理员ID
Dim id '---primary key
call DB_Connect(strconn)
'---验证身份----
uid=session("admID")
id=getForm("id")
if not isnumeric(id) then id=0
sql="update userinfo set usr_delflag='Y' where usr_id=" & id
oConn.execute(sql)
call DB_DisConnect
response.redirect "index.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -