chg_password.asp

来自「学生信息注册系统」· ASP 代码 · 共 41 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="top.asp"-->
<div align=center>
<%
  if Session("user")="" then
   Response.Write("对不起，您没有权限查看此页，请")
%>
  <a href="admin_login.asp">登录</a>
<%
   Response.Write("后查看")
%>
<p>
<!--#include file="down.asp"-->
<%
   Response.End
  end if
%>
</div>
<%
  ch_pw=md5(Request.form("chg_password"),16)
%>
<%
   ch_num=Session("ch_num")
%>
<%
  cs="Select * from login where usernum='"+ch_num+"'"
  set rs=Server.CreateObject("Adodb.Recordset")
  rs.open cs,conn,1,3
%>
<%
  if not (rs.eof or rs.bof) then%><%
  rs("userpassword")=ch_pw
  rs.update
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
%>
<%end if%>
<%Response.Write("密码修改成功！")%><!--#include file="down.asp"-->