Avatar billede tachoo Nybegynder
07. maj 2007 - 15:49 Der er 2 kommentarer

fejl i login script

Hej Jeg har fundet et asp login script med flere brugere hvor jeg har nogle problemer med at køre. når jeg ligger det hele op på serveren og forsøger at logge ind får jeg følgende fejl: All the Good Stuff We Want to Hide. som kommer fra følgende kode:
______________________________________
<%@ Language = "VBScript" %>
<%
Option Explicit


Dim cnnLogin
Dim rstLogin
Dim strSQL

%>
<html>
<head><title>Login Page</title>
</head>
<body bgcolor="gray">
<%
If Request.Form("action") <> "validate_login" Then
    %>
    <form action="login_db.asp" method="post">
    <input type="hidden" name="action" value="validate_login" />
    <table border="0">
        <tr>
            <td align="right">Login:</td>
            <td><input type="text" name="login" /></td>
        </tr>
        <tr>
            <td align="right">Password:</td>
            <td><input type="password" name="password" /></td>
        </tr>
        <tr>
            <td align="right"></TD>
            <td><input type="submit" VALUE="Login" /></td>
        </tr>
    </table>
    </form>
    <%
Else
    strSQL = "SELECT * FROM tblLoginInfo " _
        & "WHERE username='" & Replace(Request.Form("login"), "'", "''") & "' " _
        & "AND password='" & Replace(Request.Form("password"), "'", "''") & "';"

    Set cnnLogin = Server.CreateObject("ADODB.Connection")
    cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
        & "DBQ=" & Server.MapPath("login.mdb"))

    Set rstLogin = cnnLogin.Execute(strSQL)

    If Not rstLogin.EOF Then
        %>
        <p>
        <strong>All the Good Stuff We Want to Hide</strong>
        </p>
        <%
    Else
        %>
        <p>
        <font size="4" face="arial,helvetica"><strong>
        Login Failed - Please verify username and password.
        </strong></font>
        </p>
        <p>
        <a href="login_db.asp">Try Again</a>
        </p>
        <%
        'Response.End
    End If

    ' Clean Up
    rstLogin.Close
    Set rstLogin = Nothing
    cnnLogin.Close
    Set cnnLogin = Nothing
End If
%>
</body>
</html>


dette skulle gerne sende en videre men har nogle fejl.

kan du evt. få øje på noget
Avatar billede fennec Nybegynder
07. maj 2007 - 15:55 #1
Sende en vidre til hvad??

Koden virke præsis som den skal. Hvis du prøvede at indtaste et forkert login, ville du få "Try Again" teksten.

Skal du vidrestille til en anden side så ret:
If Not rstLogin.EOF Then
%>
  <p>
  <strong>All the Good Stuff We Want to Hide</strong>
  </p>
<%
Else

til:
If Not rstLogin.EOF Then
  response.redirect("enSide.asp")
Else
Avatar billede mitbrugernavn Praktikant
07. maj 2007 - 15:57 #2
skift disse linier ud

<p>
  <strong>All the Good Stuff We Want to Hide</strong>
  </p>


med

<% response.write "densidehvormangskalhen.asp"%>
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