check.asp

适用于网络/信息企业

<%

if Session("Eboer_CRM_Employee_ID")="" then
err_title="·您还没有登录或登录超时"
call login_err()
end if


'=========================================管理权限

	Dim uriStr,rArr,fileName

    uriStr = Request.ServerVariables("PATH_INFO")
	if(InStrRev(uriStr,"/") >0) then
		fileName = Replace(uriStr,Left(uriStr,InStrRev(uriStr,"/")),"")
	end if
	
	dim U_Purview,Purview_1,Purview_2,Purview_3
	dim U_Flag,U_Flag_1,U_Flag_2,U_Flag_3

    U_Purview		= Session("Eboer_CRM_Purview")
	U_Flag			= Session("Eboer_CRM_Employee_Flag")

'===============================================================权限
	if U_Purview<>"" and not isnull(U_Purview) then

			Purview_1=split(U_Purview, ",")
			for i = 0 to ubound(Purview_1)
				Purview_2=Purview_1(i)
					if LCase(trim(Purview_2)) ="all" then
					Purview_3 = "ok"
					else
							if Ucase(trim(Purview_2)) = Ucase(Trim(fileName)) then
							Purview_3 = "ok"
							end if
					end if
			next
			if Purview_3<>"ok" then
				err_title="·对不起，您没有管理本页的权限"
				call login_err()
			end if

	else
			err_title="·对不起，您没有管理本页的权限"
			call login_err()
	end if


'=========================================区域管理
Dim SQL_City,City_1,Max,Citys

IF Session("Eboer_CRM_Employee_Purview") <> "" Then

		City_1 = split(Session("Eboer_CRM_Employee_Purview"), ",")
		
		City_2 = len(City_1(0))/3
		
		City_3 = len(City_1(0))
				
		Max    = ubound(City_1)
				
		IF Max = 0 Then
				
				Citys = " City like '"& Session("Eboer_CRM_Employee_Purview") &"%'"
				
				Citys_ = " NumberID like '"& Session("Eboer_CRM_Employee_Purview") &"%'"
				
		Else
				
				for i  = 0 to Max
				
				IF Trim(City_1(i)) <> "" Then
				
						IF i < Max Then
				
						Citys = Citys & "City like '"& City_1(i) &"%' or "
						
						Citys_ = Citys_ & "NumberID like '"& City_1(i) &"%' or "
						
						Else
						
						Citys = Citys & "City like '"& City_1(i) &"%' "
						
						Citys_ = Citys_ & "NumberID like '"& City_1(i) &"%' "
						
						
						End IF
				
				End IF
					
				Next
				
		End IF

		SQL_City  = "("& Citys &")"
		
		SQL_City_  = "("& Citys_ &")"

End IF 

if isNull(SQL_City) or SQL_City = "" then

	SQL_City = " Buyer_Info.ID > 0 "
	
end if

if isNull(SQL_City_) or SQL_City_ = "" then

	SQL_City_ = " LagID = 0 "
	
end if

Session("Eboer_CRM_SQL_City_") = SQL_City_
Session("Eboer_CRM_City_2")    = City_2
Session("Eboer_CRM_City_3")    = City_3



'Response.Write(SQL_City_)
'Response.End()

sub login_err()
response.write " <link href=Images/Admin.css rel=stylesheet type=text/css>"
response.write " <table width=""98%"" height=""40""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""> <tr>"
response.write " <tr>"
response.write " <td><table width=""100%""  border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" bgcolor=""#D8D8D8""> <tr>"
response.write " <td height=""30"" align=""left"" bgcolor=""ffffff""><table width=""100%"" height=""100%""  border=""0"" cellpadding=""3"" cellspacing=""0"">"
response.write " <td width=""5%"" bgcolor=""eeeeee"" align=""center""><img src=""Images/1.gif"" width=""13"" height=""12""></td><td bgcolor=""eeeeee"" width=""95%""><span class=""style2"">管理中心 &gt;&gt;&gt; Error</span></td></tr>"
response.write " </table></td>"
response.write " </tr></table></td></tr></table>"
response.write " <table width=""98%"" height=""90%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#D8D8D8"">"
response.write " <tr>"
response.write " <td valign=""top"" bgcolor=""ffffff""><p>&nbsp;</p><br>"
response.write " <table width=""50%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr>"
response.write " <td align=""left"" bgcolor=""ffffff""> </td>"
response.write " </tr><tr>"
response.write " <td height=""40"" align=""left"" bgcolor=""ffffff"">"
response.write " "&err_title&"<br>"
response.write "·<a href=javascript:history.go(-1)>点这里返回上一页</a><BR>"
response.write "·<a href=../ target=_top>会员登录</a><br>"
response.write "</td>"
response.write " </tr></table> "
response.write " </td></tr></table>"
response.end
end sub
%>