中科新闻网苹果沙冰的做法大全:答辩要用的代码，求帮忙翻译分析一下
来源：百度文库 编辑：中科新闻网 时间：2024/04/25 20:10:07
<!--#include file="conn.asp"-->
<%
dim 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>"
response.end
end if
rs.MoveFirst
rs("用户")=user
rs("密码")=pass1
rs.Update
response.write "<script>alert('密码修改成功.');location.replace('admin.asp')</script>"
Else
%>
修改密码的ASP文件NEWPASS.ASP
<%if Session.Contents("master")="master"
<!--#include file="conn.asp"--> '包含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