xuanke_checkright.asp

功能简述 为解决学生自主选课的所带来的繁琐工作问题,特开发网上在线学课系统. 学生:网上选课 重选. 老师:网上在线填报课程信息 管理员:参数设置,帐号管理,学科管理等

<%
Function FanHui(str,URL)'返回函数
response.write "<script language=JavaScript>" & chr(13) & "alert('"&str&"');"&"window.location.href = '"&URL&"'"&" </script>"
end Function

Function WinClose(str,URL)'返回且刷新函数
response.write "<script language=JavaScript>" & chr(13) & "alert('"&str&"');"&"window.opener.location.href= '"&URL&"';window.close()"&"</script>"
response.end
end Function


sub CheckLogin()'一般用户访问权限判断函数
	if session("XZW_xsID")="" or IsNull(session("XZW_xsID")) then
		if session("XZW_glyID")="" or IsNull(session("XZW_glyID")) then'由于超级管理员于其他管理员的session名称不同
			str=errmsg+"对不起，您还没有登陆，请先登陆!"
			URL="login.asp"
			call FanHui(str,URL)'返回函数
			response.end
		end if
	end if
end sub

sub CheckglyLogin()'一般用户访问权限判断函数
	if session("XZW_glyID")="" or IsNull(session("XZW_glyID")) then
			str=errmsg+"对不起，您还没有登陆，请先登陆!"
			URL="login.asp"
			call FanHui(str,URL)'返回函数
			response.end
	end if
end sub

sub CheckLoginWClose()'一般用户访问权限判断函数且关闭窗口
if session("XZWID")="" or IsNull(session("XZWID")) or session("XZWQuanXian")="" or IsNull(session("XZWQuanXian")) then
	if session("XZWQuanXian_admin")<>55 then
		response.write "<script language=JavaScript>" & chr(13) & "alert('您没有登录！只有登录后才能留言！');"&"window.close()"&"</script>"
		response.end
	end if
end if
end sub


'仅限个人研究用，请勿它用  午日工作室 保留所有版权
'午日工作室专注于中小学校园网站建设及学校教学、教务管理等有关系统平台的开发与定制，现已经成功投入使用的有：网上选课系统、ftp网络空间实时开通平台、研究性学习平台等。同时也继续接企事业单位网站建设制作、中小型软件定制、软件平台集成等业务具体可联系 午日工作室 qq 386805832  e-mail :  [e-mail] www.lhdnw.com/wrgzs

%>