newpasss.asp

查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
number=session("number")
passwd=session("Passwd")
sql="select * from admin1 where number='"&number&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
response.redirect "index.asp"
response.end
end if
number1=request("number1")
jpass=Request("jpass")
pass=Request("pass")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM admin1 where number='"&number1&"'"
rs.open sql, conn, 1,3

if not rs.eof and rs("passwd")=jpass Then
'if number<>"admin" then
  rs("passwd")=pass
  rs.Update
  response.write "密码修改成功"
'else
'response.write "管理员密码,系统设为不可更改!"
'end if
Else
response.write "原密码错误"
end if
%>
<!--#include file="bottom.asp"-->