<%@language=vbscript codepage=936 %>
<%path="../basedata"%>
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call Legalpower%>
<!--#include file="../conn/conn_admin.asp"-->
<%
'<!--#include file="md5.asp"-->
dim id,u,pwd,pwd1,rs,sqltext
id=request.querystring("id")
u=request.form("uid")
if not idboolean(id) then response.write msgok("斕準楊紱酕＃＃","http://www.456vv.com"):response.end

if u=session("AdminName") then
pwd=md5(md5(request.form("pwd")))
pwd1=md5(md5(request.form("pwd1")))

	set rs=server.createobject("adodb.recordset")
	sqltext="select * from admin where Admin_id="&id&" and Admin_User='"&u&"'"
	rs.open sqltext,conn_admin,1,3
	if not rs.eof then
	if rs("Admin_Pass")=pwd then
	'載陔奪燴埜躇鎢善杅擂踱
	rs("Admin_Pass")=pwd1
	rs.update
	rs.close
	set rs=nothing
	conn_admin.close
	set conn_admin=nothing
	response.redirect "Manage_Admin.asp"
	else
	rs.close
	set rs=nothing
	conn_admin.close
	set conn_admin=nothing
	response.write errorback("斕腔埻躇鎢衄渣＃＃")
	end if
	else
	response.write errorback("堤渣")
	end if
else
response.write errorback("斕祥夔党蜊鍚俋珨跺蚚誧躇鎢＃＃")
end if
%>
