📄 admin_student_lock.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
'=========================================================
%>
<%response.buffer=false%>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<!--#include file="inc/checksqlIn.Asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="5,6,7"
MM_authFailedURL="login.asp?error=3"
MM_grantAccess=false
If session("QYABC_userid") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
if(Request.QueryString("userid") <> "") then passuser__asa_Num = Request.QueryString("userid")
%>
<% '判断是否已指定操作的用户编号，
if Request.QueryString("userid")="" then
%><br><br>
<p align="center">
<a href="javascript:history.back(-1)"><font color="#FF0000">温馨提示：你还没有选中操作的用户,点击这里返回！</font></a>
</p>
<%
else'判断是否已指定操作的用户编号，
%>
<%
set passuser = Server.CreateObject("ADODB.Command")
passuser.ActiveConnection = MM_master_STRING
passuser.CommandText = "UPDATE userinfo SET Authority ='2' WHERE userid in(" + Replace(passuser__asa_num, "'", "''") + ") "
passuser.CommandType = 1
passuser.CommandTimeout = 0
passuser.Prepared = true
passuser.Execute()
%>
<%
Dim userinfo__MMColParam
userinfo__MMColParam = "1"
If (Request.QueryString("userid") <> "") Then
userinfo__MMColParam = Request.QueryString("userid")
End If
%>
<%
'Dim userinfo
'Dim userinfo_numRows
'
'Set userinfo = Server.CreateObject("ADODB.Recordset")
'userinfo.ActiveConnection = MM_master_STRING
'userinfo.Source = "SELECT studentnum, studentname, MasterClass FROM userinfo WHERE studentnum = '" + Replace(userinfo__MMColParam, "'", "''") + "'"
'userinfo.CursorType = 0
'userinfo.CursorLocation = 2
'userinfo.LockType = 1
'userinfo.Open()
'
'userinfo_numRows = 0
%>
<%
dim asanhandle_content,asanteachername,asanteachernum,asanhappen_ip
asanhandle_content="锁定通过学号为"+(userinfo__MMColParam)+"的学生!"
asanteachername=session("QYABC_username")
asanteachernum=session("QYABC_userid")
asanhappen_ip=Request.ServerVariables("Remote_Addr")
%>
<%
set hanellog = Server.CreateObject("ADODB.Command")
hanellog.ActiveConnection = MM_master_STRING
hanellog.CommandText = "INSERT INTO doitlog (handle_content, teachername, userid, happen_ip) VALUES ('"&asanhandle_content&"','"&asanteachername&"','"&asanteachernum&"','"&asanhappen_ip&"' ) "
hanellog.CommandType = 1
hanellog.CommandTimeout = 0
hanellog.Prepared = true
hanellog.Execute()
%>
<%
'userinfo.Close()
'Set userinfo = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="1;url=javascript:window.history.go(-1);">
<title>锁定学生-<%=WebName%></title>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center">已成功锁定<%= passuser__asa_Num %></p>
</body>
</html>
<% end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -