Notifikationer

Markér alle som læst Log ud

riishoj Nybegynder

11. november 2002 - 00:00 Der er 19 kommentarer og
1 løsning

Slette opgave

Hvordan laver jeg et script, som sletter den opgave som min side vis_opgave.asp viser. Jeg har efterhånden prøvet alt uden held.
vis.asp ser sådan ud

<% Response.Buffer = True %>

<html>

<head>

<title>Vis opgave</title>
</head>

<%
fag = Request.Querystring("fag")
dag = Request.Querystring("dag")
uge = Request.Querystring("uge")

' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/skoleskema2/skema.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "SELECT * FROM skoleskema WHERE uge = '" & uge & "' AND dag = '" & dag & "' AND fag = '" & fag & "';"
Set rs = Conn.Execute(strSQL)
%>
<body bgcolor="#FFFFFF">

 
<p> </p>
<div align="center">
<center>
<table border="1" width="90%" bordercolor="#000000" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#000000">
<tr>
<td width="100%" colspan="2" bgcolor="#006699" height="100">
<p align="left"> </td>
</tr>
<tr>
<td width="11%" bgcolor="#0099CC" align="left"><font color="#FFFFFF"> Uge:</font></td>
<% Response.Write"<td width='89%'> "& rs("uge") &"<BR></td>"%>

</tr>
<tr>
<td width="11%" bgcolor="#0066CC" align="left"><font color="#FFFFFF"> Dag:</font></td>
<% Response.Write"<td width='89%'> "& rs("dag") &"<BR></td>"%>

</tr>
<tr>
<td width="11%" bgcolor="#0000FF" align="left"><font color="#FFFFFF"> Fag:</font></td>
<% Response.Write"<td width='89%'> "& rs("fag") &"<BR></td>"%>

</tr>
<tr>
<td width="11%" bgcolor="#666699" align="left" height="100" valign="top"><font color="#FFFFFF"> Opgave:</font></td>
<% Response.Write"<td width='89%' valign='top'> "& rs("opgave") &"<BR></td>"%>

</tr>

</table>

</center>
</div>

<p>

<%

Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title></title>"
Response.Write "</head>"
Response.Write "<body bgcolor='#FFFFFF'>"
%>
<tr>
<td><A HREF='slet.asp?fag=<%=fag%>&dag=<%=dag%>&uge=<%=uge%>'>Slet</A></td>

<tr/>
<%
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%></p>

</body>
</html>

Synes godt om

kovalt Nybegynder

11. november 2002 - 00:06 #1

hvordan ser slet.asp ud?

Synes godt om

riishoj Nybegynder

11. november 2002 - 00:10 #2

Jeg har prøvet med det her, men det virker ikke!

<%Response.buffer = true%>
<html>

<head>

<title>Slet opgaven</title>
</head>

<body>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/skoleskema2/skema.mdb")
Conn.Open DSN

' SQL sletter record
strSQL = "DELETE FROM skoleskema WHERE uge = '" & uge & "' AND dag = '" & dag & "' AND fag = '" & fag & "';"

Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Opgaven er slettet!</h1>

</body>

</html>

Synes godt om

kovalt Nybegynder

11. november 2002 - 00:14 #3

Din SQL-sætning mangler en *:

strSQL = "DELETE * FROM skoleskema WHERE uge = '" & uge & "' AND dag = '" & dag & "' AND fag = '" & fag & "';"

Sådan!

Synes godt om

riishoj Nybegynder

11. november 2002 - 00:18 #4

Nej, det virker ikke! Opgaven bliver ikke slettet.

Synes godt om

erikjacobsen Ekspert

11. november 2002 - 00:19 #5

du mangler blot

uge = request.querystring("uge")

og tilsvarende for dag og fag

Synes godt om

kovalt Nybegynder

11. november 2002 - 00:21 #6

det sidste semikolon i den SQL-sætninger er også overflødigt

Synes godt om

riishoj Nybegynder

11. november 2002 - 00:30 #7

Ja, nu virker det. Lige en anden ting. Hvad skal jeg sætte ind i vis.asp, så jeg undgår en fejlmeddelelse, hvis der ikke er en opgave i db'en. I stedet kunne der så skrives "Ingen opgave fundet"

Synes godt om

erikjacobsen Ekspert

11. november 2002 - 00:32 #8

Det er din SELECT, ikke?

if rs.eof then
....ingen opgave
else
...ok
end if

Synes godt om

erikjacobsen Ekspert

11. november 2002 - 00:34 #9

Men du ved også godt at dette er guf for en ondsindet hacker?
Dels har du nu fortalt hvor din mdb-fil ligger, dels kan enhver
hacker med respekt for sig selv lave en masse af de slette-links og
rydde din db for alt. Der ligger vel et slags login system bagved ... ?

Synes godt om

riishoj Nybegynder

11. november 2002 - 00:34 #10

Jo, vis.asp kan du se længere oppe på siden. Hvor skal jeg sætte det ind du skriver?

Synes godt om

erikjacobsen Ekspert

11. november 2002 - 00:36 #11

Lige inde i din <body> i <% ... %>
"....ok" svarer til det du allerede har skrevet

Synes godt om

riishoj Nybegynder

11. november 2002 - 00:39 #12

Prøv lige igen. Jeg forstår det ikke

Synes godt om

erikjacobsen Ekspert

11. november 2002 - 00:41 #13

Igen? Nej, glem det. Hvis du ikke forstår dét, så venligst afvis mit
svar og vent på en, der har tid til at forklare dig det.

Synes godt om

riishoj Nybegynder

11. november 2002 - 00:46 #14

Bevares, hvis det skal være på den måde. Men for at vise min gode vilje, så får du point alligevel. Kan kun beklage, at du har formastet dig til at svare på et spørgsmål fra en novice!!

Synes godt om

erikjacobsen Ekspert

11. november 2002 - 07:03 #15

Jeg ønsker ingen god vilje - kun tilfredse kunder.
Jeg bad faktisk IKKE om at du accepterede mit svar!
Jeg har intet imod novicer, tværtimod. Du skal bruge
din point fornuftigt, og ikke på mig - jeg har bare
ikke så meget tid.

http://www.eksperten.dk/spm/281834

Synes godt om

kovalt Nybegynder

11. november 2002 - 09:58 #16

tak for point :-(

Synes godt om

riishoj Nybegynder

11. november 2002 - 15:53 #17

kovalt> Da jeg ikke kan stå for din ironiske kommentar, vil jeg oprette et spørgsmål, så du også kan få dine point, meeeeeeeeen gider du hjælpe mig med at få indsat

if rs.eof then
....ingen opgave
else
...ok
end if

i scriptet vis.asp. Jeg har prøvet alt muligt for at få det til at virke, og jeg skal nok ikke spørge erikjacobsen.

Synes godt om

kovalt Nybegynder

11. november 2002 - 17:01 #18

<% Response.Buffer = True %>

<html>

<head>

<title>Vis opgave</title>
</head>

<%
fag = Request.Querystring("fag")
dag = Request.Querystring("dag")
uge = Request.Querystring("uge")

' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/skoleskema2/skema.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "SELECT * FROM skoleskema WHERE uge = '" & uge & "' AND dag = '" & dag & "' AND fag = '" & fag & "';"
Set rs = Conn.Execute(strSQL)

if rs.EOF OR BOF then

response.write "Der er ingen opgaver i DB"

else %>

<body bgcolor="#FFFFFF">

 
<p> </p>
<div align="center">
<center>
<table border="1" width="90%" bordercolor="#000000" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#000000">
<tr>
<td width="100%" colspan="2" bgcolor="#006699" height="100">
<p align="left"> </td>
</tr>
<tr>
<td width="11%" bgcolor="#0099CC" align="left"><font color="#FFFFFF"> Uge:</font></td>
<% Response.Write"<td width='89%'> "& rs("uge") &"<BR></td>"%>

</tr>
<tr>
<td width="11%" bgcolor="#0066CC" align="left"><font color="#FFFFFF"> Dag:</font></td>
<% Response.Write"<td width='89%'> "& rs("dag") &"<BR></td>"%>

</tr>
<tr>
<td width="11%" bgcolor="#0000FF" align="left"><font color="#FFFFFF"> Fag:</font></td>
<% Response.Write"<td width='89%'> "& rs("fag") &"<BR></td>"%>

</tr>
<tr>
<td width="11%" bgcolor="#666699" align="left" height="100" valign="top"><font color="#FFFFFF"> Opgave:</font></td>
<% Response.Write"<td width='89%' valign='top'> "& rs("opgave") &"<BR></td>"%>

</tr>

</table>

</center>
</div>

<p>

<%

Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title></title>"
Response.Write "</head>"
Response.Write "<body bgcolor='#FFFFFF'>"
%>
<tr>
<td><A HREF='slet.asp?fag=<%=fag%>&dag=<%=dag%>&uge=<%=uge%>'>Slet</A></td>

<tr/>
<%
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%></p>

<% end if %>

</body>
</html>

Det skulle gøre arbejdet!!!!

Synes godt om

riishoj Nybegynder

11. november 2002 - 21:35 #19

Jeg har oprettet et spørgsmål, så du kan få point

Synes godt om

erikjacobsen Ekspert

12. november 2002 - 23:02 #20

http://www.eksperten.dk/spm/281863

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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