<!--#include file="../include/conn.asp"-->
<!--#include file="seeion.asp" -->
<%
'website:http://www.angelasp.com
' Angel工作室技术开发团队:QQ:815657032、QQ：709047174
' Copyright (C) Angel工作室 (http://www.angelasp.com).  All rights reserved
Dim user_password,user_password2,book_email,ID

book_password=request.form("password")
book_password2=request.form("password2")
book_email=request.form("book_email")
ID=request.QueryString("ID")

If Trim(ID)="" Then 
response.Write("<script language=javascript>alert('管理员ID号不对');history.go(-1)</script>") 
response.end 
End If 
if Trim(book_password)<>""  then 
if Trim(book_password)<>Trim(book_password2) then 
Response.Write "<script>alert('密码输入不一致！请重新输入！');history.go(-1);</script>" 
response.end
end If
end If

set rs=server.createobject("adodb.recordset")
sql="select * from Admin where id="&ID
rs.open sql,conn,1,3
If Trim(user_password)<>"" Then 
rs("book_password")=book_password
End If
rs("book_addtime")=now()
rs("book_email")=book_email
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('恭喜你管理员！修改成功！');window.location.href='adminlist.asp';</script>" 
%>