<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%Response.Buffer = True
|
Server.ScriptTimeOut=240000
|
'On Error Resume Next
|
%>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include virtual="/inc/function.asp"-->
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">
|
<title>记录中..</title>
|
</head>
|
<%
|
'-------------------------------------------------------------记录客户评价
|
OA_User_ID=session("adminID")
|
if session("admin_execLevel")="2" then OA_User_ID = SafeRequest(trim(request.form("OA_User_ID")))
|
Old_Pass = SafeRequest(trim(request.form("Old_Pass")))
|
New_Pass = SafeRequest(trim(request.form("New_Pass")))
|
New_Pass_2 = SafeRequest(trim(request.form("New_Pass_2")))
|
if OA_User_ID="" or Old_Pass="" or New_Pass="" or New_Pass_2="" then
|
Response.Redirect "AdminUser_EditPass.gds?userID="&OA_User_ID&"&SystemMessageType=4&SMT=1"
|
Response.End()
|
end if
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
If session("admin_execLevel")<>"2" then
|
sql="select OA_User_ID from OA_User where OA_User_ID='"&OA_User_ID&"' and pwdcompare('"&Old_Pass&"',OA_Pass,0)=1"
|
'sql="select OA_User_ID from OA_User where OA_User_ID='"&OA_User_ID&"' and OA_Pass='"&Old_Pass&"'"
|
rs.open sql,objConn,1,1
|
if rs.Eof then
|
Response.Redirect "AdminUser_EditPass.gds?userID="&OA_User_ID&"&SystemMessageType=4&SMT=2"
|
Response.End()
|
end if
|
rs.close()
|
End if
|
|
if New_Pass<>New_Pass_2 then
|
Response.Redirect "AdminUser_EditPass.gds?userID="&OA_User_ID&"&SystemMessageType=4&SMT=3"
|
Response.End()
|
end if
|
|
sql="update OA_User set OA_Pass=pwdencrypt('"&New_Pass&"') where OA_User_ID="&OA_User_ID
|
objConn.Execute sql
|
|
session("admin")=""
|
session("adminID")=""
|
session("admin_Power")=""
|
session("admin_execLevel")=""
|
Response.Redirect "/login.gds?LoginSuccess=密码修改完成,请重新登陆"
|
Response.End%>
|
