Notifikationer

Markér alle som læst Log ud

remo27 Nybegynder

07. maj 2007 - 21:43 Der er 18 kommentarer og
1 løsning

kan ikke vise data udtræk efter login.

jeg har et lille adm. modul, hvor man skal kan rette sine data, og opdatere sin db. Men når jeg logger ind får jeg at hvide at der ikke er noget data, den skal gerne virke således at man kan logge på med forskellige bruger & password, så det passer med ens data. Hvem kan hjælpe mig

Synes godt om

thesurfer Nybegynder

07. maj 2007 - 23:49 #1

Vis og din kode.

Husk at sløre eller fjerne evt URL (adresse til din side) samt eksisterende brugernavn/usernames og kodeord/passwords..

Synes godt om

thesurfer Nybegynder

07. maj 2007 - 23:50 #2

Der skulle have stået: "Vis os din kode"..

Synes godt om

remo27 Nybegynder

08. maj 2007 - 20:33 #3

min kode ser således ud.


<%
'******insat**** + Jeghar sat testfejl foran alle dine request.form
'***************
function testfejl(felt)
felt=replace(felt,"'","''")
testfejl=felt
end function
'**************
'**************

Id = Request.Form ("id")
Tabelnavn = "dpinfo"

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
sql="update dpinfo set navn=""" & testfejl(request.form("navn")) & """, adresse=""" & testfejl(request.form("adresse")) & """, postnr=""" & testfejl(request.form("postnr")) & """, tekst=""" & testfejl(request.form("tekst")) & """ where id=" & request.form("id")
conn.execute(sql)
response.redirect "../default.asp?emne=admin"
Else
Id = Request.QueryString ("id")
' ** Inserted by Jon Brohauge 2002/08/02
' ** Hvis der ikke er specificeret et id, så vis liste over alle nyheder sorteret efter dato, nyest først.
If Id = 0 Then
' ** Vis nyhedsliste
Set rs=Conn.Execute ("Select * from " & Tabelnavn & " WHERE navn LIKE '%navn'")
%>

<body bgcolor="#C0C0C0">
<center>
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<td>
<b>OPLYSNINGER</b>
</td>
<td>  </td>
</tr>
<%
If not(rs.bof or rs.eof) Then
while not(rs.eof)
%>
<tr>
<td>
<%=rs("navn")%>  </td>
<td>
<font size=2 face=arial><a href="default.asp?emne=dpadmin&emne2=retdp&id=<%=rs("id")%>">Ret</a></font>
</td>
</tr>
<%
rs.movenext
wend
Else
Response.Write "Ingen Info at rette i"
End If
%>
</table>
</BODY>
</HTML>
<%
Else
' ** Vis valgte nyhed
Set rs=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & Id & "")
%>
<body bgcolor="#C0C0C0">
<center>
<Form Action=admin/retdp.asp method="post">
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
<td colspan=2 height=20 width="310">
<b>Ret Oplysninger:</b>
</td>
</tr>
<tr>
<td width="64">
navn</td>
<td align=right width="236">
<input type="text" name="navn" size="32" value="<%=rs("navn")%>"></td>
</tr>

<tr>
<td width="64">
adresse</td>
<td align=right width="236">
<input type="text" name="adresse" size="32" value="<%=rs("adresse")%>"></td>
</tr>
<tr>
<td width="64">
postnr</td>
<td align=right width="236">
<input type="text" name="postnr" size="32" value="<%=rs("postnr")%>"></td>
</tr>
<tr>
<td width="64">
tekst</td>
<td align=right width="236">
<textarea rows="12" name="tekst" cols="28"><%=rs("tekst")%></textarea></td>
</tr>
<tr>
<td colspan=2 width="310">
<Div Align=right><Input type="submit" Value="Ret"></div>
</td>
</tr>
</table>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</BODY>
</HTML>
<%
End If
End If
%>

Synes godt om

thesurfer Nybegynder

09. maj 2007 - 20:26 #4

Jeg synes at jeg kan se mange fejl, i ASP koden..

Hvordan skal det virke?

Fortæl hvordan det skal virke, trin for trin, og på en måde så en 2-årige kan forstå det.. :-)

Vi kender intet til dit system, eller din tankegang..

Synes godt om

remo27 Nybegynder

10. maj 2007 - 08:13 #5

man skal logge sig ind, med eget bruger navn & password så skal ens data komme frem. dvs. hvis feks. knud logger sig ind, kommer knuds data frem, hvis Egon logger sig på kommer Egon's data frem osv.

Synes godt om

remo27 Nybegynder

10. maj 2007 - 08:30 #6

hvis du skal kigge i flere koder, må du sige til

Synes godt om

thesurfer Nybegynder

10. maj 2007 - 20:37 #7

Jeg ser lige om jeg kan nå at kigge på det, her i aften.

Synes godt om

thesurfer Nybegynder

10. maj 2007 - 22:18 #8

Jeg har lavet et eksempel, med tilhørende Access database, der gør brug af Sessions:

http://thesurfer.users.whitehat.dk/e/q/777078/userinfo.zip

Koden og databasen må frit benyttes og rettes.

Synes godt om

remo27 Nybegynder

11. maj 2007 - 07:59 #9

Den kigger jeg på.

Synes godt om

remo27 Nybegynder

12. maj 2007 - 12:05 #10

Det er lige sådan det skal virke dit eksempel, drop et svar så skal du høste dine fortjente point.

jeg har et lille tillægs spørgsmål, hvis nu administrator logger sig på og skal se dem alle, så han/hun bare klikker på brugers navn for at få samme oplysninger frem, som brugerer selv få når han/hun logger sig på + at der er et checkfelt som, kun adm. kan se og vinge af og på, så adm bestemmer om brugeren data skal ses på nettte.

Ide'en med at vinge af og på, er at en bruger tilmelder sig hjemmeside, når han/hun har betalt et lille beløb, kan han/hun få vist sin data på hjemmesiden.

Jeg er ved at lave en hjemmmeside på frivilig basis, for nogle private dagplejere http://remo.lir.dk/adpd

Synes godt om

thesurfer Nybegynder

12. maj 2007 - 18:01 #11

Filen er nu opdateret: http://thesurfer.users.whitehat.dk/e/q/777078/userinfo.zip

Jeg har lavet en lille ændring i databasen, og tilføjet et par filer.

- Svar

Synes godt om

remo27 Nybegynder

12. maj 2007 - 21:38 #12

thesurfer>> Du har været en stor hjælp 1000 tak. Men hvordan skal min visdata side se ud, jeg tænker på en side der viser/skjuler data. ;O)

Synes godt om

thesurfer Nybegynder

13. maj 2007 - 14:15 #13

Det er faktisk nemmere end du tro..

Din sql sætning skal bare indeholde: where synlig = 1

Hvis du allerede har en where-klausul, tilføj det: where noget = noget AND synlig = 1

Synes godt om

remo27 Nybegynder

18. maj 2007 - 00:14 #14

thesurfer>> Jeg kan ikke få synlig ikke synlig til at virke, den viser udtræk selv om ja/nej feltet i min db ikker vinget af.

<center>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="70%">
<tr>
<td width="90%" align="center" class="topbar">FIND DIN PRIVATE DAGPLEJRE HER</td>
</tr>
<% Set Query = Conn.Execute("SELECT * From tblBrugerInfo Order By navn AND synlig=1")%>
<% Do until Query.EOF %>
<tr>
<td width="70%"><a href="default.asp?emne=dpinfo&id=<%=Query("id")%>"><%=Query("navn")%></a>  <%=Query("adresse")%><br><%=Query("postnr")%>  <%=Query("city")%></td>
</tr>
<tr>
<td width="70%"><hr size="1" noshade></td>
</tr>
<%Query.MoveNext%>
<%loop%>
</table>
</center>

Synes godt om

thesurfer Nybegynder

18. maj 2007 - 12:08 #15

Du skal bruge "where synlig = 1", og ikke "AND synlig=1" :-)

Mit kommentar ang "AND synlig = 1" skulle bruges, hvis du allerede brugte "where".. hvilket du jo ikke gør.

Derfor:

SELECT * From tblBrugerInfo where synlig = 1 Order By navn

Synes godt om

remo27 Nybegynder

19. maj 2007 - 22:16 #16

takker ;O)

Synes godt om

remo27 Nybegynder

20. maj 2007 - 22:48 #17

thesurfer>> jeg har tilføjet et par feltermere som skal kunne redigeres i, men hvad laver jeg fejl her.

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0411)
Navnet er omdefineret
/web/Adpd/admin/redigerinfo.asp, line 110, column 97
dim navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, pic1, pic2, pic3, tekst, brugernavn, kodeord
------------------------------------------------------------------------------------------------^

<%
'option explicit
response.buffer = true

' Hvis man ikke er logget ind, skal man ikke kunne se denne side
if session("id") = "" then response.redirect "../default.asp?emne=login"
%>


<html>
<head>
<title>Rediger info</title>
</head>
<body bgcolor="#C0C0C0">
<%
function fixtegn(s)
fixtegn = replace(s, "'", "''")
end function

dim opdateret
opdateret = ""

dim brugerid
brugerid = CInt(session("id"))

'dim isAdmin, isSynlig
isAdmin = false
isSynlig = ""

if request.querystring("mode") = "admin" then
if session("status") <> "admin" then
response.redirect "../default.asp?emne=login"
else
brugerid = request.querystring("id")
isAdmin = true
end if
end if

'dim conn, dsn, rs, sql

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./db/brugerinfo.mdb")
Conn.Open DSN

if request.servervariables("request_method") = "POST" then
' der skal opdateres

navn = fixtegn(request.form("navn"))
adresse = fixtegn(request.form("adresse"))
postnr = fixtegn(request.form("postnr"))
city = fixtegn(request.form("city"))
tlf = fixtegn(request.form("tlf"))
mobil = fixtegn(request.form("mobil"))
email = fixtegn(request.form("email"))
web = fixtegn(request.form("web"))
sted = fixtegn(request.form("sted"))
lp = fixtegn(request.form("lp"))
nyd = fixtegn(request.form("nyd"))
pic1 = fixtegn(request.form("pic1"))
pic2 = fixtegn(request.form("pic2"))
pic3 = fixtegn(request.form("pic3"))
tekst = fixtegn(request.form("tekst"))
brugernavn = fixtegn(request.form("brugernavn"))
kodeord = fixtegn(request.form("kodeord"))

dim sqlSynlig
sqlSynlig = "0"
if request.form("synlig") <> "" then sqlSynlig = "1"

sql = "update tblBrugerInfo set "
sql = sql & "navn = '" & navn & "', "
sql = sql & "adresse = '" & adresse & "', "
sql = sql & "postnr = '" & postnr & "', "
sql = sql & "city = '" & city & "', "
sql = sql & "tlf = '" & tlf & "', "
sql = sql & "mobil = '" & mobil & "', "
sql = sql & "email = '" & email & "', "
sql = sql & "web = '" & web & "', "
sql = sql & "sted = '" & sted & "', "
sql = sql & "lp = '" & lp & "', "
sql = sql & "nyd = '" & nyd & "', "
sql = sql & "pic1 = '" & pic1 & "', "
sql = sql & "pic2 = '" & pic2 & "', "
sql = sql & "pic3 = '" & pic3 & "', "
sql = sql & "tekst = '" & tekst & "', "
sql = sql & "brugernavn = '" & brugernavn & "', "
sql = sql & "kodeord = '" & kodeord & "', "
sql = sql & "synlig = " & sqlSynlig & " "
sql = sql & "where id = " & brugerid

conn.execute(sql)

opdateret = "<br><b>Profilen er nu opdateret</b>"
response.redirect "../default.asp?emne=admin"
end if
' der skal hentes

'dim fejl
fejl = false

sql = "select * from tblBrugerInfo where id = " & brugerid
set rs = conn.execute(sql)

dim navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, pic1, pic2, pic3, tekst, brugernavn, kodeord
if not rs.eof then
navn = "" & rs("navn")
adresse = "" & rs("adresse")
postnr = "" & rs("postnr")
city = "" & rs("city")
tlf = "" & rs("tlf")
mobil = "" & rs("mobil")
email = "" & rs("email")
web = "" & rs("web")
sted = "" & rs("sted")
lp = "" & rs("lp")
nyd = "" & rs("nyd")
pic1 = "" & rs("pic1")
pic2 = "" & rs("pic2")
pic3 = "" & rs("pic3")
tekst = "" & rs("tekst")
brugernavn = "" & rs("brugernavn")
kodeord = "" & rs("kodeord")
if isAdmin then
if CBool(rs("synlig")) then isSynlig = " checked"
end if
else
fejl = true
end if

Conn.Close
set rs = nothing
Set Conn = Nothing

if fejl = true then response.redirect "login.asp"
%>

<center>
<Form Action="redigerinfo.asp<% if request.querystring <> "" then response.write "?" & request.querystring%>" method="post">
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
<td colspan=2 height=20 width="310">
<b>Ret Oplysninger:</b>
</td>
</tr>
<tr>
<td width="64">
Navn</td>
<td align=right width="236">
<input type="text" name="navn" size="32" value="<%=navn%>"></td>
</tr>

<tr>
<td width="64">
Adresse</td>
<td align=right width="236">
<input type="text" name="adresse" size="32" value="<%=adresse%>"></td>
</tr>
<tr>
<td width="64">
Postnr</td>
<td align=right width="236">
<input type="text" name="postnr" size="32" value="<%=postnr%>"></td>
</tr>
<tr>
<td width="64">
By</td>
<td align=right width="236">
<input type="text" name="city" size="32" value="<%=city%>"></td>
</tr>
<tr>
<td width="64">
Tlf</td>
<td align=right width="236">
<input type="text" name="tlf" size="32" value="<%=tlf%>"></td>
</tr>
<tr>
<td width="64">
Mobil</td>
<td align=right width="236">
<input type="text" name="mobil" size="32" value="<%=mobil%>"></td>
</tr>
<tr>
<td width="64">
Email</td>
<td align=right width="236">
<input type="text" name="email" size="32" value="<%=email%>"></td>
</tr>
<tr>
<td width="64">
Web</td>
<td align=right width="236">
<input type="text" name="web" size="32" value="<%=web%>"></td>
</tr>
<tr>
<td width="64">
Sted</td>
<td align=right width="236">
<input type="text" name="sted" size="32" value="<%=sted%>"></td>
</tr>
<tr>
<td width="64">
Lp</td>
<td align=right width="236">
<input type="text" name="lp" size="32" value="<%=lp%>"></td>
</tr>
<tr>
<td width="64">
Nyd</td>
<td align=right width="236">
<input type="text" name="nyd" size="32" value="<%=nyd%>"></td>
</tr>
<tr>
<td width="64">
Pic1</td>
<td align=right width="236">
<input type="text" name="pic1" size="32" value="<%=pic1%>"></td>
</tr>
<tr>
<td width="64">
Pic2</td>
<td align=right width="236">
<input type="text" name="pic2" size="32" value="<%=pic2%>"></td>
</tr>
<tr>
<td width="64">
Pic3</td>
<td align=right width="236">
<input type="text" name="pic3" size="32" value="<%=pic3%>"></td>
</tr>
<tr>
<td width="64">
tekst</td>
<td align=right width="236">
<textarea rows="12" name="tekst" cols="28"><%=tekst%></textarea></td>
</tr>
<tr>
<td width="64">
Brugernavn</td>
<td align=right width="236">
<input type="text" name="brugernavn" size="32" value="<%=brugernavn%>"></td>
</tr>
<tr>
<td width="64">
Kodeord</td>
<td align=right width="236">
<input type="text" name="kodeord" size="32" value="<%=kodeord%>"></td>
</tr>
<% if isAdmin then %>

<tr>
<td colspan=2 width="310">
<Div Align=right>Synlig:
<Input type="checkbox" name="synlig"<%=isSynlig%> value="ON"></div>
</td>
</tr>
<% end if %>
<tr>
<td colspan=2 width="310">
<Div Align=right><Input type="submit" Value="Ret"></div>
</td>
</tr>
</table>
</form>

<%=opdateret%>
</BODY>
</HTML>

Synes godt om

thesurfer Nybegynder

21. maj 2007 - 10:24 #18

Det er en fejl der opstår, hvis du definerer/dimmer en variabel, mere end 1 gang..

Eksempel:

dim brugernavn, kodeord
brugernavn = "test"

' ... noget kode her ...

dim brugernavn ' her vil der opstå fejl, fordi "brugernavn" allerede er "dimmet" før..

Synes godt om

remo27 Nybegynder

22. maj 2007 - 20:55 #19

thesurfer>> jeg fik løst problemet.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS