后台增加两个超级管理员的方法（无错版）

function health_name1(hnn)
dim ti,tnum,tdim,hn
health_name1=false
hn=hnn
tdim=split(web_dim(3),":")
tnum=ubound(tdim)
for ti=0 to tnum
if instr(hn,tdim(ti))>0 then
erase tdim
exit function
end if
next
erase tdim
health_name1=true
end function

sub admin_header(t1,t2)
  if session(session_for&"admines")<>web_dim(3) then
    if popedom_formated(session(session_for&"popedom"),popedom_num,0)=0 or admins=true then
      call format_redirect("admin.asp?action=main&error=popedom")
    end if
  end if
  call admin_title(1)
  call admin_td(tit)
end sub

sub admin_header(t1,t2)
if health_name1(session(session_for&"admines"))=true then
if popedom_formated(session(session_for&"popedom"),popedom_num,0)=0 or admins=true then
call format_redirect("admin.asp?action=main&error=popedom")
end if
end if
call admin_title(1)
call admin_td(tit)
end sub

<tr>
<td>超级管理员：</td>
<td><input type=text name=web_dim_3 value='<%response.write web_dim(3)%>' size=20 maxlength=20></td>
<td class=gray><%call admin_read("","超级管理员","拥有最高权限可进行核心管理，多个关键字请用“:”（小写的冒号）格开")%></td>
</tr>

if format_power(f_power,2)=1 then
    if username=web_dim(3) then
      if login_username<>username then
        call admin_msg("您没有编辑的超级管理员的权限！","?pro="&pro&"&power="&power,1)
        exit sub
      end if
    else
      if login_username=username then
        call admin_msg("您没有编辑的自身信息的权限！","?pro="&pro&"&power="&power,1)
        exit sub
      end if
    end if
  end if

if format_power(f_power,2)=1 then
if health_name1(session(session_for&"admines"))<>true then
if login_username<>username and health_name1(username)<>true then
call admin_msg("您没有编辑其他超级管理员的权限！","?pro="&pro&"&power="&power,1)
exit sub
end if
else
if login_username<>username then
call admin_msg("您没有编辑其他管理员信息的权限！","?pro="&pro&"&power="&power,1)
exit sub
end if
end if
end if
      if login_username=username then
        call admin_msg("您没有编辑自身信息的权限！","?pro="&pro&"&power="&power,1)
        exit sub
  end if

<%
  call menu_type()
  if cstr(login_username)=cstr(web_dim(3)) then
%>

<%
call menu_type()
if health_name1(session(session_for&"admines"))<>true then
%>