hvordan laver man et login til hver bruger ligesom på eksperten ?

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=301

Det er næsten nemmest for dig at kigge på den og se om du ikke kan lære systematikken derudfra.

/simon

jeg kigger lige !

Det virker som et ok login script. Jeg må hellere forklare dig hvad det skal bruges til. Jeg har lavet et reservationssystem hvor man kan booke baner over nettet. Det virker fint og jeg kan sagtens sætte et login på så alle brugere har deres eget password og brugernavn. Jeg vil bare gerne have at når brugeren logger ind skal han kunne slette eller ændre på sine reservationer !
Kan du hjælpe med mit problem ?

Øhhh - ja... du kunne sætte en bruger-id på reservationen (som et felt i reservationstabellen), og når brugeren er logget ind, så checker du ved hvert hvilke reservationer der er oprettet af den bruger.... Det er svært at forklare uden at se dit system....

Hmm, jeg har lavet det sådan at brugeren indtaster sine initialer når han opretter en bane ! Jeg havde forestillet mig at det var disse initialer som på en eller anden måde skulle bindes til login'et !
Er det helt galt ?

jeg giver gerne flere point hvis du kan løse mit problem !!!!!!!!

Lad os forestille os at du har et felt i din booking-tabel der hedder "brugerinit" og du har en session-variabel der hedder "brugernavn" (som du får ved login).
Så kan du skrive noget i stil med (når du henter datoen frem)

if rs("brugerinit") = session("brugernavn") then
  response.write "<a href= osv. osv. & dato
else
  response.write dato
end if

kunne det måske virke med dit system... ellers så prøv at smide et link op, så jeg kan se hvordan din side virker...

Flere point er ikke nødvendigt. =)

Her er det meste af koden :


<%
' --------------------------------------------------------------------------------

' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/maximus25/db/guestbook.mdb") & ";UID=admin;PWD=;"

If Request.Form("Gem") <> "" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strKommentar = Trim(Request.Form("Kommentar"))
    If Len(strNavn) = 0 Then
        strError = "<li>Du skal skrive dit navn!</li>"
    ElseIf validateEmail(strEmail) = False Then
        strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
    ElseIf Len(strKommentar) = 0 Then
        strError = "<li>Du skal skrive en kommentar!</li>"
    End If
    If Len(strError) = 0 Then
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"
        rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs("Navn") = Server.HTMLEncode(strNavn)
            rs("Email") = Server.HTMLEncode(strEmail)
            rs("Kommentar") = Server.HTMLEncode(strKommentar)
            rs("Dato") = Now()
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
    Else
        strError = "<p><ul><font color=#FF0000>" & strError & "</font></ul></p>"
        strMode = "add"
    End If
End If
%>



<%
Select Case strMode
Case "add"
%>
<form method="POST" action="guestbook.asp" OnSubmit="return CheckUser();">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
        <tr>
          <td valign="middle" align="left" colspan="2"><font face="verdana" size="2"><br>Indtast venligst oplysningerne i følgende felter:<strong>
      <%=strError%></td>
        </tr>
        <tr>
          <td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">Navn</font></strong></td>
          <td valign="middle" align="left"><input type="text" name="Navn" size="40" value="<%=strNavn%>"></td>
        </tr>
        <tr>
          <td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">E-mail</font></strong></td>
          <td valign="middle" align="left"><input type="text" name="Email" size="40" value="<%=strEmail%>"></td>
        </tr>
        <tr>
          <td valign="top" align="left"><div align="right"><p><strong><font face="verdana" size="2">Kommentar</font></strong></td>
          <td valign="middle" align="left"><textarea rows="3" name="Kommentar" cols="40"><%=strKommentar%></textarea></td>
        </tr>
        <tr>
          <td valign="middle" align="left" colspan="2"><br>
          <input type="submit" value="Gem" name="Gem"> <input type="button" value="Annuller" name="Annuller" onClick="java script:location.href='guestbook.asp'"></td>
        </tr>
      </table>
</form>
<%
Case Else
    strAddLine = "<p><img src=add.gif width=16 height=16>&nbsp;<a href=guestbook.asp?mode=add><strong><font face=verdana size=2>Skriv et indlæg i vores forum!</font></strong></a></p>"
    Response.Write strAddLine
    strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;"
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write "<table width=100% border=0 cellpadding=1 cellspacing=1>"
        Do While Not rs.EOF
            dtmDato = rs("Dato")
            dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " & FormatDateTime(dtmDato,vbLongTime)
            Response.Write "<tr bgcolor=#C0C0C0><td width=""100%""><font face=verdana size=2>" & dtmDato & "</td></tr>"
            If Len(rs("Email")) > 0 Then
                Response.Write "<tr><td><font face=verdana size=2><strong><a href=mailto:" & rs("Email") & ">" & rs("Navn") & "</a> skriver:</strong></td></tr>"
            Else
                Response.Write "<tr><td><font face=verdana size=2><strong>" & rs("Navn") & " skriver:</strong></td></tr>"
            End If
            Response.Write "<tr><td><font face=verdana size=2>" & rs("Kommentar") & "<br>&nbsp;</td></tr>"
            rs.MoveNext
        Loop
        Response.Write "</table>"
    Else
        Response.Write "<p><font face=verdana size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>"
    End If
    myConn.Close
    Set myConn = Nothing
    Response.Write strAddLine
End Select
%>

Det er ikke online endnu !

jeg vender tilbage om ca 30 minutter !!

Det ligner en gæstebog - ikke et reservationssystem..... men anyway
Det jeg havde forstillet mig, var at du - når du viste siden lavede en if sætning som her:

...din nederste kode....
            Response.Write "<tr><td><font face=verdana size=2>" & rs("Kommentar") & "<br>&nbsp;</td></tr>"
'***** Ny kode
if rs("Navn") = session("brugernavn") then
Response.Write "<a href='?action=edit&id=" & rs("id") & "'>edit</a>"
end if
'**** Ny kode slut
            rs.MoveNext
osv. osv.

og så checke at hvis action = "edit" then.... hive databaseoplysningerne ind i din redigeringsside. - og update oplysningerne i tabellen...

..... kan du se idéen? Det kræver bare at du har koblet et loginsystem på, der smider brugernavnet ind i en session-variabel...

sorry forkert kode ! 2sek !

her er den rigtige kode !

<%
Response.expires = 0
administrator = Request.Form("administrator")
If administrator = "webmasteren" then
Session("admin") = "pass"
end if
dtmToday = Date
dtmDate = Request.QueryString("date")
If dtmDate = "" Then
  dtmDate = Date
Else
  dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)

function maanednavn(plusmaaned)
plusmaaned = cint(plusmaaned)
maaned = Month(dtmDate)+plusmaaned
aar = intYear
if maaned > 12 then
maaned = maaned -12
aar = aar + 1
end if
maaned = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(MonthName(maaned),"January","januar"),"February","februar"),"March","marts"),"April","april"),"May","maj"),"June","juni"),"July","juli"),"August","august"),"September","september"),"October","oktober"),"November","november"),"December","december")
Response.Write(aar)
Response.Write(" - ")
Response.write(maaned)
end function



%>
<html>
<head>
<title>Bookingsystem</title>
<META HTTP-EQUIV="Expires" CONTENT="Fri, Jun 12 1981 08:20:00 GMT">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
</head>
<style type="text/css">
<!--
BODY
{
BACKGROUND-COLOR: white;
COLOR: black;
FONT-FAMILY: Verdana;
}
A
{
color: #000000;
FONT-FAMILY: Verdana;
font-size: 10px;
text-decoration: none:
}
A:hover
{
color: #888888
}
A
{
    COLOR: black
}
A:active
{
    COLOR: black
}
A:link
{
    COLOR: black
}
A:visited
{
    COLOR: black
}
-->
</style>
<body>

<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)" align=center>
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#000000"><font face="Verdana"
size="3" color="#ffffff"><b>Bookingsystem</b></font></td>
</tr>
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#000000"><font face="Verdana"
size="2" color="#ffffff"><strong><%=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(strMonth,"January","januar"),"February","februar"),"March","marts"),"April","april"),"May","maj"),"June","juni"),"July","juli"),"August","august"),"September","september"),"October","oktober"),"November","november"),"December","december")%>&nbsp;<%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center"><font face="verdana" size="2">Man</font></td>
<td align="center"><font face="verdana" size="2">Tir</font></td>
<td align="center"><font face="verdana" size="2">Ons</font></td>
<td align="center"><font face="verdana" size="2">Tor</font></td>
<td align="center"><font face="verdana" size="2">Fre</font></td>
<td align="center"><font face="verdana" size="2">Lør</font></td>
<td align="center"><font face="verdana" size="2">Søn</font></td>
</tr>
<%
For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
          If dtmCurDate = dtmToday Then
                            Response.Write "<td align=center bgcolor=#0000ff><a href=bookingsystemroom.asp?dato="&dtmCurDate&"><font face=verdana size=2 color=#ffffff><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
          Else
                            Response.Write "<td align=center><a href=bookingsystemroom.asp?dato="&dtmCurDate&"><font face=verdana size=2><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
          End If
          blnLast = False
        Else
          Response.Write "<td align=center><font face=verdana size=2>-</td>"
          blnLast = True
        End If
      Else
        Response.Write "<td align=center><font face=verdana size=2>-</td>"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write "</font></td></tr>"
%>
<tr>
<td bgcolor="#000000" colspan="3"><a href="bookingsystem.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><font face="verdana" size="2" color="#ffffff"><b>Forrige</b></font></a></td>
<td bgcolor="#000000">&nbsp;</td>
<td bgcolor="#000000" colspan="3" align="right"><a href="bookingsystem.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>"><font face="verdana" size="2" color="#ffffff"><b>Næste</b></font></a></td>
</tr>
<tr>
<td bgcolor="#000000" colspan="7" align=center>
<FORM>
<select name="theSelect" size=1 onChange="if (this.selectedIndex >0) window.location=this.options[this.selectedIndex].value">
<OPTION value="">Vælg en måned</OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>"><%maanednavn(1)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",2,dtmFirstDate)%>"><%maanednavn(2)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",3,dtmFirstDate)%>"><%maanednavn(3)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",4,dtmFirstDate)%>"><%maanednavn(4)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",5,dtmFirstDate)%>"><%maanednavn(5)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",6,dtmFirstDate)%>"><%maanednavn(6)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",7,dtmFirstDate)%>"><%maanednavn(7)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",8,dtmFirstDate)%>"><%maanednavn(8)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",9,dtmFirstDate)%>"><%maanednavn(9)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",10,dtmFirstDate)%>"><%maanednavn(10)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",11,dtmFirstDate)%>"><%maanednavn(11)%></OPTION>
<OPTION value="bookingsystem.asp?date=<%=DateAdd("m",12,dtmFirstDate)%>"><%maanednavn(12)%></OPTION>
</SELECT>
</FORM>
</td>
</tr>
<tr>
<td colspan="7" align=center>
<% if Session("admin") = "pass" then %>
<font size=1 color=Red><br>Du er logget ind som administrator<br><br></font>
<%else%>
<FORM action="bookingsystem.asp" method=POST id=form name=form><font size=1><br>Log på som administrator</font><br><INPUT type="text" id=administrator name=administrator size=8><INPUT type="submit" value="OK" id=submit name=submit></FORM>
<%end if%>
</td>
</tr>
</table>
</body>
</html>

gider du ikk vise præcis hvor i koden at jeg skal ændre ?

er du der ?

svar postet på http://www.eksperten.dk/spm/203588

så skulle det vist være ok. Tak endnu engang !!