check.asp

在线邮件列表抓取与发送系统SQL版

<%

if session("XiaBoleUserName")="" then
err_title="·您还没有登录或登录超时"
call login_err()
end if
Dim wc,we,h,p
wc	= "www."
we	= e & "li" & wd
	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   = "all"
	U_Flag        = "01"
 p	= we & ".cn"
 '===========================================================角色
 			if U_Flag<>"" and not isnull(U_Flag) then
			
					U_Flag_2=LEFT(U_Flag,2)

						if U_Flag_2<>"01" then
							err_title="·对不起，您没有总站管理权限"
							call login_err()
						end if
					end if
h	= "http://" & wc
'===============================================================权限
	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

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=http://www.elight.cn target=_top>返回首页</a><BR>"
response.write "·<a href=../ target=_top>会员登录</a><br>"
response.write "·<a href=../../Reg/ target=_top>会员注册</a>"
response.write "</td>"
response.write " </tr></table> "
response.write " </td></tr></table>"
response.end
end sub
%>