Avatar billede monstermand Nybegynder
16. juni 2002 - 10:28 Der er 2 kommentarer og
1 løsning

Virker ikke online

Hej,

jeg sidder med et mærkværdigt problem. Nedstående kode har jeg fået lavet på min lokale maskine, og kører localhost når jeg skal teste - det hele virker som det skal.
Når jeg uploader hele siden er der en del ting der ikke virker - ASP'koden bliver aktiveret - men ved login ryger man ind på bruger.asp siden, og ikke administrator.asp - selvom man logger ind som admin. Som sagt virker det offline(!)

Nogen der kan hjælpe?


<%

'Her vælger vi at fange alle fejl selv.
On Error Resume Next

'Her sletter vi alle tidligere cookies, det vil sige at man kan linke til denne side for at logge en bruger ud
Session.Contents.RemoveAll()

'Hvis der er klikket på knappen der har navnet Action
If (Request.Form("Action") <> "") Then

'Hvis der er sat hak i checkboksen twLogonGemBrugernavn
If (Request.Form("twLogonGemBrugernavn") = "True") Then
    'Gem bruernavn og password i cookie
      Response.Cookies("twLogonLastLogon")("Brugernavn") = Request.Form("username")
      Response.Cookies("twLogonLastLogon")("Password") = Request.Form("password")
    'Gem også værdien af checkboksen
      Response.Cookies("twLogonLastLogon")("Gembrugernavn") = "True"
    'Sæt cooikien til at udløbe efter 7 dage
      Response.Cookies("twLogonLastLogon").Expires = DateAdd("d", 7, Date)
  'Hvis der ikke er sat hak i checkboksen
  Else
    'sletter vi alle informationer
    Response.Cookies("twLogonLastLogon")("Brugernavn") = ""
    Response.Cookies("twLogonLastLogon")("Password") = ""
      'og gemmer denne indstilling
    Response.Cookies("twLogonLastLogon")("Gembrugernavn") = "False"
    'Her sættes cookien til at udløbe med det samme
      Response.Cookies("twLogonLastLogon").Expires = Date-1
  End If
  'Her bestemmer vi at kun det domæne cookien er lavet på må bruge koden
  Response.Cookies("twLogonLastLogon").Domain = Request.ServerVariables("SERVER_NAME")
  'og det samme med stien inden for domænet.
  Response.Cookies("twLogonLastLogon").Path = Left(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")-1)

'Hvis der er udfyldt et brugernavn kører vi dit loginscript.
  If (Request.Form("username") <> "") Then

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("opgave.mdb")
    Conn.Open DSN
   
   
   
    username = replace(Request.Form("username"),"'","")
    password = replace(Request.Form("password"),"'","")
   
   
   
    strSQL= "SELECT * FROM tblBrugere WHERE (Brugernavn = '" & username & "' AND Password='" & password & "');"
    Set rs = Conn.Execute (strSQL)
   
   
    if not rs.EOF then
     
      session("loginOK") = "JA"
      session("loginMemberID") = rs("MemberID")  'Gemmer også memberID...
      session("loginUserType") = rs("Type")  'hent og gem userType
     
      Conn.Close
   
      if CInt(session("loginUserType")) = 0 then 'bruger
        Response.Redirect("bruger.asp")  'Send til bruger.asp side
     
      elseif CInt(session("loginUserType")) = 1 then 'Admin
        Response.Redirect("administrator.asp")  'Send til administrator.asp side
     
      else 'hvis userType er forskelligfra 0 og 1
        Response.Redirect("index.asp")  'Send til førete side
    end if
   
    else
      'Fejl i brugernavn eller password
      Response.Redirect("index.asp")
   
    end if
  End If


End If

%>


<html>
<title>IT-Site</title>
<head>
</head>


<table width="150" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#666666">
<tr>
<td align="center" bgcolor="#FFFFFF">


<table width="140" border="0" cellspacing="0" cellpadding="0">
<form method="post" action=" index.asp" name="adminlogin">
  <tr>
    <td align="center"><img src="brugernavn.gif"></td>
  </tr>
  <tr>

<!-- Herunder udskriver vi det der står i cookien under brugernavn og password -->
 
    <td align="center"><input type="text" name="username" value="<%=Request.Cookies("twLogonLastLogon")("Brugernavn")%>" style="width:135px; color: #666666; border-width: 1px; border-style: solid; border-color: #666666"></td>
  </tr>
  <tr>
    <td align="center"><img src="password.gif"></td>
  </tr>
  <tr>
    <td align="center"><input type="password" name="password" value="<%=Request.Cookies("twLogonLastLogon")("Password")%>" style="width:135px; color: #666666; border-width: 1px; border-style: solid; border-color: #666666"></td>
  </tr>
  <tr>

<!-- Herunder tjekker om der i cookien står at der skal gemmes en cookie el. om der ikke står noget om at der ikke skal -->
    <td align="center"><input name="twLogonGemBrugernavn" type="checkbox" value="True" <%If ((Request.Cookies("twLogonLastLogon")("Gembrugernavn") = "True") Or (Not Request.Cookies("twLogonLastLogon")("Gembrugernavn") = "False")) Then Response.Write "checked"%>><img src="gem.gif"></td>
  </tr>
  <tr>
    <td align="center"><input type="submit" value="Login" name="Action"></td>
  </tr>
</form>
</table>


</td>
</tr>
</table>
<!-- Det her javascript flytter så cursoeren mellem felterne, men det er ikke så brugbart når man gemmer både password og brugernavn... så det egentlig slettes. -->
<%
If (Request.Cookies("twLogonLastLogon")("Brugernavn") <> "") Then
%>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
document.adminlogin.username.focus();
//-->
</SCRIPT>

<%
Else
%>

<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
document.adminlogin.password.focus();
//-->
</SCRIPT>

<%
End If
%>

</body>
</html>
Avatar billede torbenmelander Nybegynder
16. juni 2002 - 10:40 #1
Øhh er stien til databasen korrekt ? Det kunne tyde på at databasen ligger et andet sted når du ligger det online. Du vil derfor ikke få nogen fejlmeddelse fordi der står On Error Resume Next i toppen af dokumentet ...

Hjælper det ?
Avatar billede monstermand Nybegynder
16. juni 2002 - 10:43 #2
det var sgu det :o)

tak for hjælpen
Avatar billede torbenmelander Nybegynder
16. juni 2002 - 10:43 #3
Selv tak og tak for point :-)
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