<%
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 :  wrgzs@126.com www.lhdnw.com/wrgzs

%>