isadmin.asp

Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel

<%
'*****************************************************
' Author       : Jianfeng Hua
' Date         : 2004.8.11
' File         : IsUser.asp
' Description  : Checks User Session
'*****************************************************
%>
<%
	if Session("Session_User")="" then				'如果用户Session不存在
	response.write "<script language=javascript>"	'JavaScript
	response.write"alert('你尚未登陆或者发呆时间过长！');"	'警告
	response.write"location.href='/index.asp';"		'返回首页
	response.write "</script>"						'JavaScript结束
	response.end									'终止解析，执行JavaScript
	else
		set ros=conn.execute( "select * from [User] where UserID="&Session("Session_User") )  '否则根据Session值查询数据库
		if not ( ros.bof or ros.eof ) then	'如果数据不为空
		User_ID=ros("UserID")			'获得用户ID
		User_Name=ros("UserName")		'获得用户名
		User_Section=ros("UserSection")	'获得用户部门
		User_Admin=ros("IsAdmin")		'获得用户管理员标识
		end if
		ros.close					
		set ros=nothing
		if User_Admin <> 1 then			'如果当前用户不是管理员
			response.write "<script language=javascript>"        'JavaScript	
			response.write"alert('你不是管理员，没有权限！');"   '警告
			response.write"location.href='/index.asp';"   
			response.write "</script>"                    'JavaScript结束                   
			response.end                                  '终止解析，执行JavaScript
		end if 
	end if
%>