
<%
Dim MemName,PassWordm,MemID,RsMemObj,Urlm,MemIntegral,mGroupID,confimsn
set confimsn=conn.execute("select domain,Sitelock from config")
if Request.ServerVariables("SERVER_PORT")<>"80" then
	Urlm = "http://"&Request.ServerVariables("LOCAL_ADDR")& ":" & Request.ServerVariables("SERVER_PORT")& Request.ServerVariables("URL")&"?"&request.QueryString
else
	Urlm = "http://"&Request.ServerVariables("LOCAL_ADDR")& Request.ServerVariables("URL")&"?"&request.QueryString
end if
MemName = Session("MemName")
PassWordm = Session("MemPassWord")
MemID = Session("MemID")
mGroupID = Session("GroupID")
set RsMemObj = Server.CreateObject ("ADODB.RecordSet")
RsMemObj.Source="select * from Members where MemName='"& MemName &"' and password='"&PassWordm&"'"
RsMemObj.Open RsMemObj.Source,Conn,1,1
if not RsMemObj.EOF then
      if RsMemObj("Lock")=1 then
         Response.Write("<script>alert(""没有浏览权限，原因：您已经被锁定\n请与系统管理员联系"");location=""javascript:history.back()"";</script>")  
         Response.End
      end if
else
   RsMemObj.Close
   set RsMemObj = nothing
   if session("Name")="" or session("MemPassWord")="" then
	   Response.redirect""&confimsn("domain")&"/Users/UserLogin.asp?UrlAddress=" & Urlm
   end if
   	  Response.redirect""&confimsn("domain")&"/Users/UserLogin.asp?UrlAddress=" & Urlm
end if
%>