Avatar billede djeclemen Nybegynder
23. juni 2002 - 03:01 Der er 3 kommentarer og
1 løsning

Hvis brugernavn "admin" så giv flere muligheder.. HEHE

Har følgende

<%@ Language=VBScript %> <%
Option Explicit
Session.Timeout = 120
Response.Expires = -1

If Request.Cookies("user") <> "" Then
  Session("loggedIn") = "Yes"
  Session("uName") = Request.Cookies("user")
End If
%>
<html>

<head>
<title>Home</title>
<script language="JavaScript" type="text/javascript">
na = navigator.appName != "Microsoft Internet Explorer"
nu = navigator.userAgent.toLowerCase();
op = (nu.indexOf("opera") != -1);
isIE5 = !na && !op && document.getElementById

function openwin(wid, ht, loc, r) {
if (isIE5) {
  var w = wid;
  var h = ht
  var lp = (screen.width) ? (screen.width-w)/2 : 0;
  var tp = (screen.height) ? (screen.height-h)/2 : 0;
  var attrs = 'height=' + h + ',width=' + w + ',top=' + tp + ',left=' + lp + ', resizable=' + r + ', toolbar=no';
  window.open(loc, "", attrs)
}
else {
  warnNonIE()
}
} 

function warnNonIE() {
if (!(isIE5)) {
  alert("Sorry, this application will only work in Microsoft Internet Explorer 5 or above")
}
}
</script>
</head>

<body onload="warnNonIE()" bgcolor="#7CA21B" link="#000000" vlink="#000000" alink="#000000">

<h2 align="center"><span style="font-weight: 400">
<font face="Verdana" style="font-size: 9pt">Brugerlogin:</font></span></h2>
<%
If Session("loggedIn") = "Yes" And Session("uName") <> "" Then
  Response.Write("Velkommen<b> " & Session("uName") &  "</b>.<br><br>")
  Response.Write("<a target=""_blank"" href=""fileace/fileace.asp"">Åben Filmanger</a><br>")
  Response.Write("<a href=""usermgr/logout.asp"">Log ud</a><br>")
  Else
  Response.Write("<a href=""#"" onclick=""openwin(360, 175, 'usermgr/login.asp', 'no')"">Login</a><br>" &vbcrlf)
  Response.Write("<a href=""#"" onclick=""openwin(360, 260, 'usermgr/register.asp', 'no')"">Opret bruger</a>")
End If
%>



</body>

</html>





Jeg ved ik hvordan det virker :D

men hvordan gør jeg så at hvis brugernavnet er admin så skal den Response.Write("<a href=""nyheder/admin.asp"">Nyheds-admin modul</a><br>")

????
Avatar billede tmceu Praktikant
23. juni 2002 - 03:06 #1
If LCase(Session("uName")) = "admin" Then
Response.Write("<a href=""nyheder/admin.asp"">Nyheds-admin modul</a><br>")
End If
Avatar billede djeclemen Nybegynder
23. juni 2002 - 03:10 #2
takker
Avatar billede medions Nybegynder
23. juni 2002 - 03:10 #3
<%@ Language=VBScript %> <%
Option Explicit
Session.Timeout = 120
Response.Expires = -1

If LCase(Session("uName")) = "admin" Then
If Request.Cookies("user") <> "" Then
  Session("loggedIn") = "Yes"
  Session("uName") = Request.Cookies("user")
End If
%>
<html>

<head>
<title>Home</title>
<script language="JavaScript" type="text/javascript">
na = navigator.appName != "Microsoft Internet Explorer"
nu = navigator.userAgent.toLowerCase();
op = (nu.indexOf("opera") != -1);
isIE5 = !na && !op && document.getElementById

function openwin(wid, ht, loc, r) {
if (isIE5) {
  var w = wid;
  var h = ht
  var lp = (screen.width) ? (screen.width-w)/2 : 0;
  var tp = (screen.height) ? (screen.height-h)/2 : 0;
  var attrs = 'height=' + h + ',width=' + w + ',top=' + tp + ',left=' + lp + ', resizable=' + r + ', toolbar=no';
  window.open(loc, "", attrs)
}
else {
  warnNonIE()
}
} 

function warnNonIE() {
if (!(isIE5)) {
  alert("Sorry, this application will only work in Microsoft Internet Explorer 5 or above")
}
}
</script>
</head>

<body onload="warnNonIE()" bgcolor="#7CA21B" link="#000000" vlink="#000000" alink="#000000">

<h2 align="center"><span style="font-weight: 400">
<font face="Verdana" style="font-size: 9pt">Brugerlogin:</font></span></h2>
<%
If Session("loggedIn") = "Yes" And Session("uName") <> "" Then
  Response.Write("Velkommen<b> " & Session("uName") &  "</b>.<br><br>")
  Response.Write("<a href=""nyheder/admin.asp"">Nyheds-admin modul</a><br>")
  Response.Write("<a target=""_blank"" href=""fileace/fileace.asp"">Åben Filmanger</a><br>")
  Response.Write("<a href=""usermgr/logout.asp"">Log ud</a><br>")
  Else
  Response.Write("<a href=""#"" onclick=""openwin(360, 175, 'usermgr/login.asp', 'no')"">Login</a><br>" &vbcrlf)
  Response.Write("<a href=""#"" onclick=""openwin(360, 260, 'usermgr/register.asp', 'no')"">Opret bruger</a>")
End If
End If
%>



</body>

</html>


//>Rune
Avatar billede tmceu Praktikant
23. juni 2002 - 03:19 #4
Det var så lidt :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester