power.asp

来自「是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!」· ASP 代码 · 共 24 行

<%
'函数 checkAdmin ,判断 checkStr 是否包含在 adminStr 中
function checkAdmin(checkStr,adminStr)
	if adminStr="" or isnull(adminStr) then
		checkAdmin=false
	else
	 if instr(adminStr,"/"&checkStr&"/")<>0 then
	 	checkAdmin=true
	 else
	 	checkAdmin=false	 	
	 end if
	end if
end function

'如果用户没有管理BBS的权限，则回退
if not (session("adm_power")="1") then
	Response.Write "<script language=javascript>"
	response.write "alert('抱歉，本栏目管理 BBS 的论坛，只有超级管理员才有权限，论坛斑竹请到“育才一小”学生网站，登录，实施管理权限！');"
   	Response.Write "history.go(-1);;"
        Response.Write "</script>"	
        response.end	
end if

%>