答辩要用的代码,求帮忙翻译分析一下

发布网友发布时间：2024-10-22 06:28

共1个回答

热心网友时间：2024-11-03 04:22

修改密码的ASP文件NEWPASS.ASP
<%if Session.Contents("master")="master"
 '包含CONN.ASP数据库参数文件
<%
dim user, pass '定义变量USER，PASS
user=Request("user") '读入用户名具体数值
pass=Request("pass") '读入密码具体数值
pass1=Request("pass1") '读入验证密码具体数值
if user<>"" and pass<>"" Then '判断，如果用户名，密码均不为空
Set rs = Server.CreateObject("ADODB.Recordset") '连接数据库
sql = "SELECT * FROM 管理员 where 用户='"&user&"' and 密码='"&pass&"'" '从管理员表中选取用户和密码与输入相同的记录
rs.open sql, conn, 1,3 '打开游标记录
if rs.eof then '判断如果是结果集最末尾的记录
response.write "<script>alert('用户密码错误.');location.replace('newpass.asp')</script>" '提示密码错误，返回修改密码NEWPASS.ASP界面
response.end '结束
end if '判断结束
rs.MoveFirst '如果不是结果集最末尾的记录
rs("用户")=user '
rs("密码")=pass1 '
rs.Update '以USER值赋予用户,PASS1值赋予密码，更新记录
response.write "<script>alert('密码修改成功.');location.replace('admin.asp')</script>" '提示修改成功,返回控制台主界面ADMIN.ASP
Else
%>

'文件后面缺少判断USER,PASS有空值时候的处理语句
'QQ:2408963