📄 user_pwd_modi.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/md5.asp"-->
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<!--#include file="Connections/ftp.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="7,5,1,6,4"
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 check_user__MMColParam
check_user__MMColParam = "1"
If (session("QYABC_userid") <> "") Then
check_user__MMColParam = session("QYABC_userid")
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改密码-<%=WebName%></title>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" valign="top"><table width="97%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><a href="user_search.asp">查找用户</a><a href="sms_index.asp"></a><a href="admin_exercise_subject_add.asp"></a><a href="admin_news_index.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="user_student_list.asp">学生列表</a><a href="sms_mysend_list.asp"></a><a href="admin_exercise_subject_mylist.asp"></a><a href="admin_news_index.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="user_teacher_list.asp">教师列表</a><a href="sms_write.asp"></a><a href="admin_exercise_content_add.asp"></a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="user_sort_list.asp"><font color="#FF0000">按类列表</font></a></td>
</tr>
<tr>
<td align="center"><a href="admin_exercise_content_mylist.asp"></a><a href="user_our_class.asp" target="_self">查看本班同学信息</a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="user_all_list.asp" target="_self">查看系统全部用户</a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_add.asp"></a></td>
</tr>
</table></td>
<td width="84%" align="center" valign="middle"><p>
<%
dim act,UserName,OldPassword,NewPassword,reNewPassword
act = Request.form("act")
if act = "update" then
OldPassword = Request.form("OldPassword")
NewPassword = Request.form("NewPassword")
reNewPassword = Request.form("reNewPassword")
if len(OldPassword)<1 or len(NewPassword)<1 or len(reNewPassword)<1 then
alert("表单没有填写完整")
end if
if trim(NewPassword)<>trim(reNewPassword) then
alert("密码与确认密码不一样")
end if
Dim check_user
Dim check_user_numRows
Set check_user = Server.CreateObject("ADODB.Recordset")
check_user.ActiveConnection = MM_master_STRING
check_user.Source = "SELECT studentnum,Paskk FROM userinfo WHERE userid = " + Replace(check_user__MMColParam, "'", "''") + ""
check_user.CursorType = 0
check_user.CursorLocation = 2
check_user.LockType = 1
check_user.Open()
if check_user.eof and check_user.bof then
alert("用户名不存在")
else
dbname = check_user("studentnum")
dbpassword = check_user("Paskk")
end if
check_user.Close()
Set check_user = Nothing
cdbpassword = left(dbpassword,2) & md5(left(dbpassword,2) & OldPassword)
if trim(cdbpassword) <> trim(dbpassword) then
alert("旧密码错误!")
else
rndstr = MyRandc(2)
newdbpassword = rndstr & md5(rndstr & NewPassword)
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_master_STRING
Command1.CommandText = "update userinfo set Paskk = '"& newdbpassword &"' where userid=" + Replace(check_user__MMColParam, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
set Command7 = Server.CreateObject("ADODB.Command")
Command7.ActiveConnection = MM_ftp_STRING
Command7.CommandText = "update User_accounts set Password = '"& newdbpassword &"' where User='" + Replace(dbname, "'", "''") + "'"
Command7.CommandType = 1
Command7.CommandTimeout = 0
Command7.Prepared = true
Command7.Execute()
Response.Redirect "user_pwd_modi_success.asp"
end if
end if
function alert(x)
response.write "<script language='JavaScript'>alert('"& replace(x,"""","\""") &"');history.go(-1);</script>"
response.end
end function
function MyRandc(n)
thechr = ""
for i=1 to n
Randomize timer
zNum = cint(25*Rnd)
if zNum mod 2 = 0 then
zNum = zNum + 97
else
zNum = zNum + 65
end if
thechr = thechr & chr(zNum)
next
MyRandc = thechr
end function
%>
</p>
<form method="post" name="form" autocomplete="off">
<input type="hidden" name="act" value="update">
<div align="center">
<center>
<table width="58%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr bgcolor="#FFEC80">
<td colspan="2" color:#FFFFFF;"><strong><span class="style1">修改</span><span class="style1">密码</span></strong></td>
</tr>
<tr>
<td width="27%" align="left"> 旧密码：</td>
<td width="73%"><input class="input" type="password" maxlength=20 name="OldPassword" size="25" value="" />
<font color="#FF0000">*</font> 必须输入旧密码</td>
</tr>
<tr>
<td width="27%" align="left"> 新密码：</td>
<td width="73%"><input class="input" type="password" name="NewPassword" size="25" value="" />
<font color="#FF0000">*</font> 输入新密码</td>
</tr>
<tr>
<td width="27%" align="left"> 确认密码：</td>
<td width="73%"><input class="input" type="password" name="reNewPassword" size="25" value="" />
<font color="#FF0000">*</font> 再次输入新密码</td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td><div align="right">
<input type="submit" name="Submit" value="修改密码">
</div></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</form></td>
</tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -