<% 
sub AdminEdit() 
dim Action,rsCheckAdd,rs,sql 
Action=request.QueryString("Action") 
if Action="SaveEdit" then '保存編輯管理員信息 
set rs = server.createobject("adodb.recordset") 
if Result="Add" then '創建網站管理員 
set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'") 
if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判斷此管理員名是否存在 
response.write "<script language=javascript><!-- 
alert('" & trim(Request.Form("AdminName")) & "管理員已經存在，請換一個登錄名再試試！');history.back(-1); 
// --></script>" 
response.end 
end if 
sql="select * from Ameav_Admin" 
rs.open sql,conn,1,3 
rs.addnew 
if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10 then 
response.write "<script language=javascript><!-- 
alert('管理員登錄名必填，且字符數為3-10位！');history.back(-1); 
// --></script>" 
response.end 
end if 
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then 
response.write "<script language=javascript><!-- 
alert('管理員密碼必填，且字符數為6-16位！');history.back(-1); 
// --></script>" 
response.end 
end if 
if Request.Form("Password")<>Request.Form("vPassword") then 
response.write "<script language=javascript><!-- 
alert('兩次輸入的密碼不一樣！');history.back(-1); 
// --></script>" 
response.end 
end if 
rs("AdminName")=trim(Request.Form("AdminName")) 
if Request.Form("Working")=1 then 
rs("Working")=Request.Form("Working") 
else 
rs("Working")=0 
end if 
rs("Password")=Md5(Request.Form("Password")) 
rs("UserName")=trim(Request.Form("UserName")) 
rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_ 
Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_ 
Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_ 
Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_ 
Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_ 
Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_ 
Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_ 
Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_ 
Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_ 
Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_ 
Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_ 
Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_ 
Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_ 
Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_ 
Request.Form("Purview153") 
rs("Explain")=trim(Request.Form("Explain")) 
rs("AddTime")=now() 
end if 
if Result="Modify" then '修改網站管理員 
sql="select * from Ameav_Admin where ID="&ID 
rs.open sql,conn,1,3 
rs("AdminName")=trim(Request.Form("AdminName")) 
if Request.Form("Working")=1 then 
rs("Working")=Request.Form("Working") 
else 
rs("Working")=0 
end if 
if trim(Request.Form("Password"))<>"" then 
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>20 then 
response.write "<script language=javascript><!-- 
alert('管理員密碼必填，且字符數為6-20位！');history.back(-1); 
// --></script>" 
response.end 
end if 
if Request.Form("Password")<>Request.Form("vPassword") then 
response.write "<script language=javascript><!-- 
alert('兩次輸入的密碼不一樣！');history.back(-1); 
// --></script>" 
response.end 
end if 
rs("Password")=Md5(Request.Form("Password")) 
end if 
rs("UserName")=trim(Request.Form("UserName")) 
rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_ 
Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_ 
Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_ 
Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_ 
Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_ 
Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_ 
Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_ 
Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_ 
Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_ 
Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_ 
Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_ 
Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_ 
Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_ 
Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_ 
Request.Form("Purview153") 
rs("Explain")=trim(Request.Form("Explain")) 
end if 
rs.update 
rs.close 
set rs=nothing 
response.write "<script language=javascript><!-- 
alert('成功編輯網站管理員！');changeAdminFlag('網站管理員');location.replace('AdminList.asp'); 
// --></script>" 
else '提取管理員信息 
if Result="Modify" then 
set rs = server.createobject("adodb.recordset") 
sql="select * from Ameav_Admin where ID="& ID 
rs.open sql,conn,1,1 
AdminName=rs("AdminName") 
Working=rs("Working") 
UserName=rs("UserName") 
Purview=rs("AdminPurview") 
Explain=rs("Explain") 
rs.close 
set rs=nothing 
end if 
end if 
end sub 

%>