chkpurview.asp

这是去年开发的中移鼎讯手机进销存系统 大家

<%
'1、判断用户Session是否真实有效。
'2、权限判断。
Dim UserName
Dim GetUserID			'用户ID号
Dim GetUserName			'用户名
Dim GetUserGID			'组ID
Dim GetUserGPower		'组的权限指数
Dim GetUserPower		'用户的级别
Dim GetCityID			'市ID
Dim GetCountyID			'县ID
Dim GetUserType			'分销点类型  0：县级分销点； 1:市级分销点
Dim GetUserUnit			'单位
'Dim GetUserProSave


Dim RsGetUser,SqlGetUser
'Dim ComeUrl,cUrl
'ComeUrl=lcase(trim(Request.ServerVariables("HTTP_REFERER")))
'if ComeUrl="" then
'	Response.write "<br><p align=center><font color='red'>对不起，为了系统安全，返回登陆页。</font></p>"
'	Response.end
'end if

UserName=replace(Session("UserName"),"'","")
if UserName="" then
	Response.Redirect "../Login.asp"
end if
'//////////////////////////////////
ConnectionDatabase		'打开数据库
'//////////////////////////////////
'取出T_UserGroup.UserGPower(组的权限指数)，T_User.UserPower(用户的级别)

SqlGetUser = "SELECT T_User.*,T_UserGroup.* FROM T_User Inner JOIN T_UserGroup on T_User.UserGID=T_UserGroup.UserGID WHERE T_User.UserName = '"& UserName &"' and T_User.UserIsCheck=1;"
Call Sql_Open(RsGetUser,SqlGetUser,Conn,1,1)

If RsGetUser.Bof And RsGetUser.Eof Then
	Call Rs_End(RsGetUser)
	Call CONN_End(Conn)
	Response.Redirect "../Login.asp"
Else
	GetUserID		= RsGetUser("UserID")			'用户ID号
	GetUserName		= RsGetUser("UserName")			'用户名
	GetUserGID		= RsGetUser("UserGID")			'组ID
	GetUserGPower	= RsGetUser("UserGPower")		'组权限		'9999
	GetUserPower	= RsGetUser("UserPower")		'用户权限	'A
	GetCityID		= RsGetUser("CityID")			'市
	GetCountyID		= RsGetUser("CountyID")			'县
	GetUserUnit		= RsGetUser("UserUnit")				'单位
	if GetUserGPower =9 and GetCountyID=0 then
		GetUserType = 1				'市级分销点		
	else
		GetUserType = 0				'县级分销点		
	end if

End If
Call Rs_End(RsGetUser)

%>