modipwd.asp

来自「统架构：ASP+ACCESS 版本系列：个人版 开发时间：2005年12月2」· ASP 代码 · 共 50 行

<%Option Explicit%>

<!--#include file="md5.asp"-->
<%
If session("admin")="ok" Then
   response.write"<script language='javascript'>"
   response.write"alert('系统现在处于登录状态，需要修改密码请先退出系统！');"
   response.write"location.href='main.asp';"
   response.write"</script>"
Else
Dim UserName,UserPwd,UserPwd1,UserPwd2
UserName=trim(request.form("UserName"))
UserPwd=trim(request.form("UserPwd"))
UserPwd1=trim(request.form("UserPwd1"))
UserPwd2=trim(request.form("UserPwd2"))
  If UserName="" Or UserPwd="" Or UserPwd1="" Or UserPwd2="" Then
   response.write"<script language='javascript'>"
   response.write"alert('系统检测到有非法参数输入，无法完成操作！');"
   response.write"location.href='index.asp';"
   response.write"</script>"
  End If
%>
<!--#include file="conn.asp"-->
<%

Dim objRS,strSQL
set objRS=Server.CreateObject("ADODB.Recordset")
strSQL="select * from admin where UserName='"&UserName&"' and UserPwd='"&md5(UserPwd)&"'"
objRS.Open strSQL,objConn,1,3

  If objRS.RecordCount>0 Then
   objRS("UserPwd")=UserPwd1
   objRS.Update
   objRS.Close
   objConn.Close
   response.write"<script language='javascript'>"
   response.write"alert('密码修改成功，请返回！');"
   response.write"location.href='index.asp';"
   response.write"</script>"
  Else
   objRS.Close
   objConn.Close
   response.write"<script language='javascript'>"
   response.write"alert('用户名或密码错误！');"
   response.write"location.href='index.asp';"
   response.write"</script>"
  End If
End If
%>