Notifikationer

Markér alle som læst Log ud

bikerbirk Nybegynder

10. februar 2003 - 21:41 Der er 16 kommentarer og
1 løsning

Hvad er der galt? 200 p.

Jeg har disse filer:
http://www.friserverplads.dk/potterworld/sider/community.mdb
http://www.friserverplads.dk/potterworld/sider/brugerliste.asp
http://www.friserverplads.dk/potterworld/sider/slet.asp

Og her kommer koderne til dem:

- - - - - - - - - !! BRUGERLISTE.ASP !! - - - - - - - - -
<% @Language=VBScript %>
<%Response.Expires = 0 %>

<%
aktion = request.querystring("aktion")

'hvis der ikke er noge i AKTION skal vi bare visen hele siden, eller springer vi over at vise siden og går ned i bunden og laver noget andet(ny post)
IF aktion ="" then
%>
<html>
<% '--------- I denne fil blander jeg HTML med ASP mere end i de andre, så kan du også se at det kan lade sig gøre ------------------------- %>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PotterWorld - Alt om Harry Potter</title>
</head>

<body bgcolor="#C0C0C0" text="#000000" link="#FFFFFF" vlink="#C0C0C0" alink="#C0C0C0">

<div align="center">
<center>
<table border="3" cellpadding="0" cellspacing="1" width="763">
<tr>
<td bgcolor="#000000" width="40" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Id</b></font> </td>
<td bgcolor="#000000" width="82" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Brugernavn</b></font> </td>
<td bgcolor="#000000" width="88" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Password</b></font> </td>
<td bgcolor="#000000" width="125" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Alder</b></font> </td>
<td bgcolor="#000000" width="138" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Email</b></font> </td>
<td bgcolor="#000000" width="48" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Hjemmeside</b></font> </td>
<td bgcolor="#000000" width="47" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Icq</b></font> </td>
<td bgcolor="#000000" width="119" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>Fritekst</b></font> </td>
</tr>

<% 'Her åbner vi recordset
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from bruger" , Conn, 1, 3

'hvis ikke rs er tom
If not rs.EOF or rs.BOF then

'så ryk til den første post i tabel
rs.movefirst
%>

<%
' kør en lykke til den har være igennem alle poster i tabel
DO UNTIL RS.EOF
%>
<tr>
<td width="40" align="center"><font size="2" face="Arial"><%= RS("brugerId")%></font></td>
<td width="82" align="center"><font size="2" face="Arial"><%= RS("brugerNavn")%></font></td>
<td width="88" align="center"><font size="2" face="Arial"><%= RS("brugerKode")%></font></td>
<td width="125" align="center"><font size="2" face="Arial"><%= RS("brugerAlder")%></font></td>
<td width="138" align="center"><font size="2" face="Arial"><%= RS("brugerEmail")%></font></td>
<td width="48" align="center"><font size="2" face="Arial"><%= RS("brugerHjemmeside")%></font></td>
<td width="47" align="center"><font size="2" face="Arial"><%= RS("brugerIcq")%></font></td>
<td width="119" align="center"><font size="2" face="Arial"><%= RS("brugerTekst")%></font></td>

<td width="66" align="center" bgcolor="#800000"><a href="slet.asp?id=<%=rs("brugerId")%>"><font face="Arial" color="#FFFFFF" size="1">Slet/Ret</font></a></td>
</tr>
<%
rs.movenext

loop
End if
%>

</table>
</center>
</div>

</body>

</html>
<%
'Lukker connection
conn.close
set conn = nothing
%>
<% end if %>

- - - - - - - - - - - - !! SLET.ASP !! - - - - - - - - - -

<% @Language=VBScript %>
<%Response.Expires = 0 %>

<%
' her henter vi ID ned fra querystring
brugerId= request.querystring("id")
'her hanter vi Aktion, den kommer først efter vi har POST formen afsted tilsig selv
aktion = request.querystring("aktion")

'hvis der ikke står noget i Querysting, formoder vi det er første gang siden køres, så skal alt inden hold vises
IF aktion ="" then
%>
<html>
<% '--------- I denne fil blander jeg HTML med ASP mere end i de andre, så kan du også se at det kan lade sig gøre ------------------------- %>
<head>
<title>ADMIN SIDEN- SLET / RET</title>
</head>

<body bgcolor="#C0C0C0" text="#000000" link="#FFFFFF" vlink="#C0C0C0" alink="#C0C0C0">

<p><font size="6">ADMIN SIDEN -SLET / RET</font></p>
<p> </p>
<div align="center">
<center>

<form method="POST" action="slet.asp?id=<%=brugerId%>&aktion=update">
<table border="3" cellpadding="0" cellspacing="1" width="763">
<tr>
<td bgcolor="#000000" width="40" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerId</b></font> </td>
<td bgcolor="#000000" width="82" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerNavn</b></font> </td>
<td bgcolor="#000000" width="88" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerKode</b></font> </td>
<td bgcolor="#000000" width="125" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerAlder</b></font> </td>
<td bgcolor="#000000" width="138" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerEmail</b></font> </td>
<td bgcolor="#000000" width="48" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerHjemmeside</b></font> </td>
<td bgcolor="#000000" width="47" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerIcq</b></font> </td>
<td bgcolor="#000000" width="119" align="center"> <font color="#FFFFFF" size="2" face="Arial"><b>brugerTekst</b></font> </td>

</tr>

<% 'Her åbner vi recordset hvor id er den som vi fik tilbage fra linket, den blev puttet op i querystring`en under ID
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from bruger" , Conn, 1, 3
%>
<tr>
<td width="40" align="center"><font size="2" face="Arial"><%= RS("brugerId")%></font></td>
<td align="center"><INPUT type="text" name="brugerNavn" value="<%= RS("brugerNavn")%>" size="11"></td>
<td align="center"><INPUT type="text" name="brugerKode" value="<%= RS("brugerKode")%>" size="12"></td>
<td align="center"><INPUT type="text" name="brugerAlder" value="<%= RS("brugerAlder")%>" size="17"></td>
<td align="center"><INPUT type="text" name="brugerEmail" value="<%= RS("brugerEmail")%>" size="18"></td>
<td width="47" align="center"><INPUT type="text" name="brugerHjemmeside" value="<%= RS("brugerHjemmeside")%>" size="3"></td>
<td width="47" align="center"><INPUT type="text" name="brugerIcq" value="<%= RS("brugerIcq")%>" size="3"></td>
<td width="119" align="center"><INPUT type="text" name="brugerTekst" value="<%= RS("brugerTekst")%>" size="12"></td>

</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="UPDATE" name="B1"></p>
</form>


<form method="POST" action="slet.asp?id=<%=brugerId%>&aktion=delete">
<p align="center"><input type="submit" value="DELETE" name="B1" style="background-color: #FF0000; color: #FFFFFF; font-style: italic; font-weight: bold"></p>
</form>

<form method="POST" action="brugerliste.asp">
<p align="center"><input type="submit" value="TILBAGE" name="B1"></p>
</form>

<p align="center"><a href="http://snookieworld.dyndns.org"><font size="1" face="Arial" color="#808080">BY
Snookie</font></a></p>

</body>
</html>
<%
END IF

'hvis aktion er UPDATE skal vi kalde alle FORMs fra siden, og UPDATE db
IF aktion ="update" then

brugerNavn = request.Form("brugerNavn")
brugerKode = request.Form("brugerKode")
brugerAlder = request.Form("brugerAlder")
brugerEmail = request.Form("brugerEmail")
brugerHjemmeside = request.Form("brugerHjemmeside")
brugerIcq = request.Form("brugerIcq")
brugerTekst = request.Form("brugerTekst")

' når Faktiv,ID updates skal vadien ikke være omgivet af ' ' fordi sådan er det bare :o)
SQL=""
SQL="UPDATE bruger SET "
SQL = SQL & "brugerNavn='" & brugerNavn & "',"
SQL = SQL & "brugerKode ='" & brugerKode & "',"
SQL = SQL & "brugerAlder ='" & brugerAlder & "',"
SQL = SQL & "brugerEmail ='" & brugerEmail & "',"
SQL = SQL & "brugerHjemmeside =" & brugerHjemmeside & ","
SQL = SQL & "brugerIcq ='" & brugerIcq & "',"
SQL = SQL & "brugerTekst ='" & brugerTekst & "'"
SQL = SQL & "WHERE brugerId =" & brugerId & ";"
conn.execute(SQL)
response.redirect " slet.asp?id="& brugerId
END IF

' hvis aktion er DELETE så sletter vi posten hvor ID = den id vi arbejder med nu, og springer tilbage til admin siden
IF aktion ="delete" then

SQL=""
SQL="DELETE * FROM bruger where id=" & brugerId & ";"
conn.execute(SQL)
response.redirect "brugerliste.asp?"
END IF

RS.close
Set RS = nothing
conn.close
set conn = nothing

%>

Så må i selv downloade community.mdb Det er et download script jeg prøver at lave om på! Hjælp søges, meget hurtigt! :)

/BikerBirk
/It's a bad day for die in!

Synes godt om

bikerbirk Nybegynder

10. februar 2003 - 21:44 #1

Jeg glemte at fortælle, at ligemeget hvilken id man skriver bagefter i slet.asp (slet.asp?id=x) så bliver det altid id 4, altså mig BikerBirk. Skriftet virkede fint før jeg redigerede i det, men jeg sys bare ik at jeg har lavet ravage i det!

Synes godt om

bikerbirk Nybegynder

10. februar 2003 - 21:44 #2

Og en sidste ting: Sig til hvis i går igang!

Synes godt om

_darkstar_ Nybegynder

11. februar 2003 - 00:01 #3

Viser den den rigtige bruger når slet.asp er blevet kaldt?

Synes godt om

bikerbirk Nybegynder

11. februar 2003 - 13:42 #4

Nej! Hvis du går ind under brugerliste.asp og trykker på ZaiKo (id=6) så kommer min bruger frem til redigering, ikke hans. Men kan du se hvad der er galt? Det funker bare ikke!

Synes godt om

_darkstar_ Nybegynder

11. februar 2003 - 17:20 #5

Check at de links som brugerliste.adp genererer er korrekte (specielt id'et).

Synes godt om

bikerbirk Nybegynder

11. februar 2003 - 18:13 #6

darkstar, har du prøvet at åbne siderne? Eller kigge på koderne? Eller mit spørgsmål?? Jeg har tjekket det 100 gange for pokker! Mit spørgsmål er hvad fanden der er galt, så hvorfor tjekke det igen når jeg bare har lavet det om så det passer til min database? Derefter funker det none!

Synes godt om

_darkstar_ Nybegynder

11. februar 2003 - 18:30 #7

Tjaeh. Jeg prøver at hjælpe, men det er du åbenbart ikke interesseret i.

Pænt farvel igen.

Synes godt om

eagleeye Praktikant

12. februar 2003 - 13:54 #8

Mit bud er disse linie kode:

<% 'Her åbner vi recordset hvor id er den som vi fik tilbage fra linket, den blev puttet op i querystring`en under ID
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from bruger" , Conn, 1, 3
%>

Den skal hendte ID = XXX som er valgt men den SQL hendter alle så den vil hendtde den bruger som står først i databasen.

Der mangler et WHERE ID = " & brugerID
Så koden kommer til at se sådan ud:

<% 'Her åbner vi recordset hvor id er den som vi fik tilbage fra linket, den blev puttet op i querystring`en under ID
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from bruger where id = " & brugerID , Conn, 1, 3
%>

Synes godt om

eagleeye Praktikant

12. februar 2003 - 13:56 #9

Det er i filen slet.asp

Synes godt om

eagleeye Praktikant

13. februar 2003 - 08:30 #10

Om ikke andet så vil det gøre du får vist den valgte i opdater formen og ikke din bruger.

Synes godt om

bikerbirk Nybegynder

13. februar 2003 - 09:34 #11

Prøver det så snart mit websted kommer op igen :) - :(

Synes godt om

bikerbirk Nybegynder

13. februar 2003 - 09:41 #12

Prøv at tjekke dem nu. Den siger: "Too few parameters. Expected 1". Der er fejl i linjen
rs.Open "select * from bruger where id = " & brugerID , Conn, 1, 3
Hvad er der så nu galt?! :(

Synes godt om

eagleeye Praktikant

13. februar 2003 - 20:00 #13

Det virker lidt underligt det kunne måske tyde på brugerID er tom??

Prøv at lave denne linie om:
rs.Open "select * from bruger where id = " & brugerID , Conn, 1, 3

Til:

response.write "select * from bruger where id = " & brugerID
'rs.Open "select * from bruger where id = " & brugerID , Conn, 1, 3

for at se om SQL'en ser rigtig ud, eks:
select * from bruger where id = 6

Er ID ikke et autonummer felt?

Synes godt om

eagleeye Praktikant

13. februar 2003 - 23:35 #14

Har lige kigget på din kode igen.. Det er fordi din autonummer kolonne ikke hedder ID men brugerId i databasen:

Så for at få vist rigtig person så ret
<% 'Her åbner vi recordset hvor id er den som vi fik tilbage fra linket, den blev puttet op i querystring`en under ID
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from bruger" , Conn, 1, 3
%>

TIL dette:

<% 'Her åbner vi recordset hvor id er den som vi fik tilbage fra linket, den blev puttet op i querystring`en under ID
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from bruger where brugerId = " & brugerId , Conn, 1, 3
%>

Synes godt om

eagleeye Praktikant

13. februar 2003 - 23:37 #15

Det samme gælder når en bruger skal slettes:

Ret den SQL som slette en person ID -> brugerId:
SQL="DELETE * FROM bruger where ID=" & brugerId & ";"

Sådan her:
SQL="DELETE * FROM bruger where brugerID=" & brugerId & ";"

Synes godt om

eagleeye Praktikant

13. februar 2003 - 23:41 #16

Glem min kommentar 13/02-2003 20:00:41

Men brug de to sidste Forsat svar 13/02-2003 23:35:44 og 13/02-2003 23:37:15

Synes godt om

bikerbirk Nybegynder

14. februar 2003 - 00:32 #17

Tak, det var det der skulle til! :))

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

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

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