📄 admin_teacher_pwd_modi01.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" -->
<%
' *** 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
%>
<%
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 FROM userinfo WHERE userid = " + Replace(userinfo__MMColParam, "'", "''") + ""
userinfo.CursorType = 0
userinfo.CursorLocation = 2
userinfo.LockType = 1
userinfo.Open()
userinfo_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>确认是否设置教师密码为111-<%=WebName%></title>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE2 {font-size: 100%}
-->
</style>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center" class="asatxt">你确定修改学号为<%=(userinfo.Fields.Item("studentnum").Value)%>的<%=(userinfo.Fields.Item("studentname").Value)%>密码为“111”吗?</p>
<p align="center" class="style1">当你按确定后，原密码将被设置为“111”，不可还原！</p>
<p align="center"><a href="admin_teacher_pwd_modi02.asp?userid=<%= Request.QueryString("userid") %>">确定修改为“111”请点击这里</a>
<input type="button" name="Submit2" value="返回上一页" onclick="top.location='javascript:history.back(-1)';" />
</p>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
userinfo.Close()
Set userinfo = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -