Avatar billede bbbworld Nybegynder
03. juni 2004 - 16:43 Der er 1 kommentar og
1 løsning

Hvordan linker jeg fra login til subdomæne?

Hej! Jeg har oprettet et loginsystem, som fungerer som det skal!
Men nu vil gerne ændre lidt i det, så det ved tryk på "log ind" viderestilles til mit subdomæne... Sådan som det er sat op nu linker den således: www.service2004.dk/bruger/modtag.asp, men den skulle gerne linke således www.bruger.service2004.dk/modtag.asp

Er dog der nogen, der kan hjælde mig?


<%
If Request.Form("action") <> "validate_login" Then
    %>
</p>                 
<form action="bruger.service.2004.dk/modtag.asp" method="post">
                    <input type="hidden" name="action" value="validate_login" />
                    <table border="0" align="center">
                      <tr>
                        <td align="right"><span class="style19"><span class="style31"><span class="style33">Brugernavn:</span></span></span></td>
                        <td><input name="login" type="text" class="body" /></td>
                      </tr>
                      <tr>
                        <td align="right"><span class="style19"><span class="style31"><span class="style33">Password:</span></span></span></td>
                        <td><input name="password" type="password" class="body" /></td>
                      </tr>
                      <tr>
                        <td align="right"></TD>
                        <td><input name="submit" type="submit" VALUE="Log ind" /></td>
                      </tr>
                    </table>
                    <div align="center"></div>
                  </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 align="center" class="style19"> <strong>Du er nu logget ind!</strong></p>
                  <table width="150" border="0" align="center">
                    <tr>
                      <td><span class="textw"><a href="default.asp">Telefonliste</a></span></td>
                      <td>&nbsp;</td>
                    </tr>
                  </table>                  <p align="center" class="style19">&nbsp; </p>
                  <div align="center">
                      <%
    Else
        %>
                      <span class="style21">Du er ikke logget ind - har du glemt dit password eller brugernavn - kontakt Bjarne
                    </span> </div>                 
                  <p align="center"> <a href="login.asp">Pr&oslash;v igen </a> </p>
                  <%
        'Response.End
    End If

    ' Clean Up
    rstLogin.Close
    Set rstLogin = Nothing
    cnnLogin.Close
    Set cnnLogin = Nothing
End If
%>
Avatar billede bbbworld Nybegynder
03. juni 2004 - 17:59 #1
Nu har jeg ryddet lidt op i koderne - nu må der være en der kan hjælpe:)

<%
If Request.Form("action") <> "validate_login" Then
%>
               
<form action="bruger.service.2004.dk/modtag.asp" method="post">
<input type="hidden" name="action" value="validate_login" />
<input name="login" type="text" class="body" />
<input name="password" type="password" class="body" />
<input name="submit" type="submit" VALUE="Log ind" />
</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
%>
               
<a href="default.asp">Telefonliste</a>

<%
Else
%>

Du er ikke logget ind - har du glemt dit password eller brugernavn - kontakt Bjarne
               
<a href="login.asp">Pr&oslash;v igen </a> </p>

<%
'Response.End
End If

' Clean Up
    rstLogin.Close
    Set rstLogin = Nothing
    cnnLogin.Close
    Set cnnLogin = Nothing
End If
%>
Avatar billede bbbworld Nybegynder
03. juni 2004 - 20:08 #2
Har fundet ud af det!!!
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

Seneste spørgsmål Seneste aktivitet
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging