<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true Const PurviewLevel=0 %> MY动力--管理导航
<%if AdminPurview=1 or AdminPurview_Article<=3 then%>
<% end if if false then'if AdminPurview=1 or AdminPurview_Soft<=3 then %>
<% end if if false then'if AdminPurview=1 or AdminPurview_Photo<=3 then %>
<% end if if AdminPurview=1 or CheckPurview(AdminPurview_Others,"Form")=True then %>
<% end if PurviewPassed=False arrPurview(0)=CheckPurview(AdminPurview_Others,"Channel") arrPurview(1)=CheckPurview(AdminPurview_Others,"AD") arrPurview(2)=CheckPurview(AdminPurview_Others,"FriendSite") arrPurview(3)=CheckPurview(AdminPurview_Others,"Announce") arrPurview(4)=CheckPurview(AdminPurview_Others,"Vote") arrPurview(5)=CheckPurview(AdminPurview_Others,"Count") for PurviewIndex=0 to 5 if arrPurview(PurviewIndex)=True then PurviewPassed=True exit for end if next if AdminPurview=1 or PurviewPassed=True then %>
<% end if PurviewPassed=False arrPurview(0)=CheckPurview(AdminPurview_Guest,"Reply") arrPurview(1)=CheckPurview(AdminPurview_Guest,"Modify") arrPurview(2)=CheckPurview(AdminPurview_Guest,"Del") arrPurview(3)=CheckPurview(AdminPurview_Guest,"Check") for PurviewIndex=0 to 3 if arrPurview(PurviewIndex)=True then PurviewPassed=True exit for end if next if false then'if AdminPurview=1 or PurviewPassed=True then %>
<% end if PurviewPassed=False arrPurview(0)=CheckPurview(AdminPurview_Others,"User") arrPurview(1)=CheckPurview(AdminPurview_Others,"MailList") for PurviewIndex=0 to 1 if arrPurview(PurviewIndex)=True then PurviewPassed=True exit for end if next if AdminPurview=1 or PurviewPassed=True then %>
<% end if PurviewPassed=False arrPurview(0)=CheckPurview(AdminPurview_Others,"Skin") arrPurview(1)=CheckPurview(AdminPurview_Others,"Layout") for PurviewIndex=0 to 1 if arrPurview(PurviewIndex)=True then PurviewPassed=True exit for end if next if false then'if AdminPurview=1 or PurviewPassed=True then %>
<% end if if false then'if AdminPurview=1 or CheckPurview(AdminPurview_Others,"JS")=True then %>
<% end if if false then'if AdminPurview=1 or CheckPurview(AdminPurview_Others,"Database")=True then %>
<%end if if AdminPurview=1 or CheckPurview(AdminPurview_Others,"UpFile")=True then %>
<%end if%>

技术支持： 启洋科技
<% call CloseConn() %>