📄 admin_teacher_pass.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
'=========================================================
%>
<!--#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="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")
%>
<%
set passuser = Server.CreateObject("ADODB.Command")
passuser.ActiveConnection = MM_master_STRING
passuser.CommandText = "UPDATE userinfo SET Authority ='5' WHERE userid =" + 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 userid = " + 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.Fields.Item("studentnum").Value)+"在"+(userinfo.Fields.Item("MasterClass").Value)+"班的"+(userinfo.Fields.Item("studentname").Value)
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=admin_teacher_list.asp">
<title>放过-<%=WebName%></title>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center">已成功通过！</p>
<!--#include file="inc/bot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -