在线等。不知道哪位老大能帮我作一下详细的解释说明呢。
这段代码是用来检测后台管理员登录的,我不知道这样描述是否合适,因为小弟刚刚接触ASP不久,而现在又急需要用这个作一个网站。公司要的比较急。所以还请各位大虾们帮帮小弟的忙。最好能给我作一下详细的解释。
因为这段代码中涉及到一个是管理员,一个是栏目管理员的权限,我也不是太懂。尤其是是对Session(会话)对象不是太了解。我还想把这段代码改改,变成只要一个管理员的检测就OK了。小弟在这儿恳求各位务必帮帮小弟的忙。谢了,可以的话最好留下QQ或者MSN,以便日后进行交流。帮我解决了立刻结帖,分数更不是问题。拜托了。
<%
hxStudioAdminName =Session("hxStudioAdminName")
hxStudioAdminDj =Session("hxStudioAdminDj")
hxStudioAdminAdmin =Session("hxStudioAdminAdmin")
hxType =session("hxType")
if hxStudioAdminName="" or hxStudioAdminDj="" or hxStudioAdminAdmin="" then
hxStudioAdminDj=0
end if
if hxStudioAdminDj=4 then
hxStudioCheckAdmin="ok"
hxStudioCheckAdminAll="ok"
elseif hxStudioAdminDj=1 then
if Admin<>"" then
if hxStudioAdminAdmin<>"" then
tempAdmin=split(hxStudioAdminAdmin, ",")
for i = 0 to ubound(tempAdmin)
if trim(tempAdmin(i))=trim(Admin) then
hxStudioCheckAdmin="ok"
exit for
end if
next
end if
else
hxStudioCheckAdmin="ok"
end if
else
response.write("<li>您没有进入本页面的权限,本次操作已被记录!<br><li>本页面为<b><font color=#FF0000>[栏目管理员]</font></b>等级以上用户专用,请先<a href=admin.asp target=_top><b><font color=#FF0000>登陆</font></b></a>后进入.")
response.end
end if
if hxStudioCheckAdmin<>"ok" then
response.write("<li>您没有进入本页面的权限!")
response.end
end if
function CheckAdmin(TAdmin,Admin)
CheckAdmin=false
if hxStudioAdminDj=4 then
CheckAdmin=true
else
if Admin<>"" then
tempAdmin=split(Admin,",")
for i = 0 to ubound(tempAdmin)
if trim(tempAdmin(i))=trim(TAdmin) then
CheckAdmin=true
exit for
end if
next
end if
end if
end function
%>