isuser.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") )		'提取用户数据
		if not ( ros.bof or ros.eof ) then						'如果数据存在
		User_ID=ros("UserID")						
		User_Name=ros("UserName")
		User_Section=ros("UserSection")
		User_Admin=ros("IsAdmin")								'读取用户数据
		end if
		ros.close												
		set ros=nothing
	end if
%>