📄 admin_teacher_del.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>已成功删除用户-<%=WebName%></title>
</head>
<body>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<!--#include file="inc/checksqlIn.Asp" -->
<%
if(Request.QueryString("userid") <> "") then deluser__asan_Num = Request.QueryString("userid")
%>
<%
set deluser = Server.CreateObject("ADODB.Command")
deluser.ActiveConnection = MM_master_STRING
deluser.CommandText = "DELETE FROM userinfo WHERE studentnum='" + Replace(deluser__asan_num, "'", "''") + "' "
deluser.CommandType = 1
deluser.CommandTimeout = 0
deluser.Prepared = true
deluser.Execute()
%>
</p>
<div align="center"><font color="#FF0000">已成功删除用户 </font> </div>
<!--#include file="inc/bot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -