⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 deluser.asp

📁 ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFANSHI:BINDIYI@163.COM
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Cookies.asp"-->
<html>


<body>
<%
dim user_id
user_id=request.QueryString("user_id")
conn.execute("delete  From user where user_id=" & user_id )
sql="delete From indict where pub_id="& user_id
conn.execute(sql)
sql="delete From messageboard where user_id="& user_id
conn.execute(sql)
sql="delete From user_order where user_id='"& user_id &"'"
conn.execute(sql)


Set rs =Server.CreateObject("ADODB.Recordset")
sql="select username from user where user_id="& user_id
rs.open sql,conn,1
if not rs.EOF and not rs.bof then
username=rs(0)
else
username=""
end if

sql="delete From info where username='"& username &"'"
conn.execute(sql)
rs.close
set rs=nothing
closedb

response.write "<li> 删除用户成功。"
response.write "<meta http-equiv=refresh content=""1;URL=user_manage.asp"">"


%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -