check.asp

程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息

<%

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

if Session("XiaBoleWebMasterNumberID")="" then

set rs = conn.Execute("select * from WebMaster where UserNumberID='"& Session("XiaBoleUserNumberID") &"'")
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('对不起，没有找到属于您的管理权限！');window.location.href='javascript:history.go(-1)';</script>"
response.End
else
Session("XiaBoleWebMasterNumberID")     = Trim(rs("WebMasterNumberID"))
end if

end if

set rs = conn.Execute("select top 1 WebMasterNumberID from WebMaster where WebMasterNumberID='"& Session("XiaBoleWebMasterNumberID")  &"'")
if rs.eof and rs.bof 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

    set rs = conn.Execute("select * from WebMaster where UserNumberID='"& Session("XiaBoleUserNumberID") &"'")
	
    U_Purview   = rs("Purview")
	U_Flag        = rs("Flag")
	rs.close
 
 '===========================================================角色
 			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
'===============================================================权限
	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

if session("XiaBoleUserName") <> "admin" Then

if InStr(Ucase(Request.ServerVariables("QUERY_STRING")),"MAKKING") > 0 Then

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; 操作信息</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""><img src=""images/save_err.gif"" width=""100"" height=""98""> </td>"
response.write " </tr><tr>"
response.write " <td height=""40"" align=""left"" bgcolor=""ffffff"">"
Response.Write("·对不起，您为测试管理员，没有管理权限<br>")
Response.Write("·<a href=javascript:history.go(-1)>点这里返回上一页</a>")
response.write "</td>"
response.write " </tr></table> "
response.write " </td></tr></table>"
response.end

End if
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
%>