power.asp

是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!

<%
'函数 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

'如果用户没有管理问卷的权限，则回退
if not (session("adm_power")="1" or checkAdmin("poll",session("adm_power"))) then
	Response.Write "<script language=javascript>"
	response.write "alert('抱歉，你没有管理问卷的权限！');"
   	Response.Write "history.go(-1);;"
        Response.Write "</script>"	
        response.end	
end if
%>