password_process.asp

来自「一个很好的asp cms管理系统」· ASP 代码 · 共 44 行

<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
'	修改密码处理页面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/DBControl.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<%
Dim Cfg, Db, FLib, Admin
Set Cfg = New Config
Set Db = New DBControl
Set FLib = New FunctionLib
Set Admin = New Manager

If Not Admin.Logined Then
    FLib.Alert "对不起，你已经超时或未登录","./",1
    Response.End
End If

If Not Admin.CheckPopedom("TSYS_GROUP1_PWD") Then
    FLib.Alert "权限不足", "BACK", 0
    Response.End
End If
Db.Open()
Dim NewPassword,NewPassword_con
NewPassword     = FLib.SafeSql(Request.Form("NewPassword"))
NewPassword_con = FLib.SafeSql(Request.Form("NewPassword_con"))
IF NewPassword="" OR NewPassword_con="" Then
	FLib.Alert "密码有误","BACK",0
	Response.End
End If
IF NewPassword<>NewPassword_con Then
	FLib.Alert "密码有误","BACK",0
	Response.End
End If

%>