check for logged in user - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

check for logged in user - Postet den 27 May 2009 (1525 Views)

dongough

Starting Member

Innlegg: 6

Hi

Can anyone assist with the correct code for this please (I'm new to ASP and not really sure what I'm doing)

I want to allow only logged in forum members to access another non-forum part of the website. It's all in the same directory as the forum code.
If they are logged in, they can access the other page/s, if they are not logged in, they are redirected to the forum login page

The response.redirect & response.write each appear to work fine. I'm just lost finding the right code to check the members login status

Thanks




<%

select case Request.Form("Method_Type")
case "login"
if strLoginStatus = 0 then
Response.Redirect "default.asp"

Else

Response.Write "<html>" & vbNewline & _
"<head>" & vbNewline & _
"<script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
"" & vbNewLine & _
"</script>" & vbNewLine & _
"</head>" & vbNewline & _
"<frameset rows=""100%"" border=""0"">" & vbNewline & _
"<frame name=""members"" src=""a welcome page"" marginwidth=""0"" marginheight=""0"" scrolling=""auto"" frameborder=""0"">" & vbNewline & _
"</frameset>" & vbNewline & _
"<body>" & vbNewline & _
"</body>" & vbNewline & _
"</html>" & vbNewline
End if
End select
%>

<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" />

Sist redigert av

Postet den 27 May 2009

Carefree

Advanced Member

Innlegg: 4224

4224

Use mLev.

Code:


if mLev > 0 then ' Logged in
  ' Allow access
else
  Response.Redirect ....
end if

Postet den 28 May 2009

dongough

Starting Member

Innlegg: 6

Hi

Many thanks for that, I've set it up as you suggest however there still appears to be a problem

The code seems to be unable to read the member level. Whether I am logged in to the Forum or not, the code alwasys responds as if the mlev=0. I hvae tested this by changing the code to read mlev = 0, mlev = 1, mlev = 2, mlev = 3, ect & based on the test results I have determined that the code cannot see the correct member level when I am logged in.
Is there an error in my code somewhere, some extra code needed, or a missing include?
Regards
Don







<%
if mlev > 0 then
Response.Write "<html>" & vbNewline & _
"<head>" & vbNewline & _
"<script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
"" & vbNewLine & _
"</script>" & vbNewLine & _
"</head>" & vbNewline & _
"<frameset rows=""100%"" border=""0"">" & vbNewline & _
"<frame name=""members"" src=""my welcome page"" marginwidth=""0"" marginheight=""0"" scrolling=""auto"" frameborder=""0"">" & vbNewline & _
"</frameset>" & vbNewline & _
"<body>" & vbNewline & _
"</body>" & vbNewline & _
"</html>" & vbNewline
else
Response.Redirect "default.asp"
End if
%>

Postet den 29 May 2009

Shaggy

Support Moderator

Innlegg: 6780

6780

You'll need to call the chkUser function in order to assign a value to the mlev function. Have a look in inc_header.asp to see how it's done.

Search is your friend “I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Postet den 29 May 2009

dongough

Starting Member

Innlegg: 6

Many thanks

I'll give it a go

Postet den 02 Jun 2009

dongough

Starting Member

Innlegg: 6

All sorted & running

Thanks for your help

Don