webForumDet fria alternativet

Kan någon hjälpa mig?

ASP

23 svar · 345 visningar · startad av stoffe · sida 2 av 2

Frågan, av stoffe

Hej! Ska uprätta en databas med olika arrangemang som händer under ett år ca 5-10 stycken. Vill sedan kunna gå in och ta bort info + lägga till, är det lättast att göra en databas eller ska jag göra en bas för varje arrangemang? Tänker på att det kanske är lättare att ändra i olika baser i stället för en. Läs mig rätt, tänkte på kodningen inte ändrings jobbet...

Läs frågan i sin helhet →
Medlem sedan mars 200121 inlägg
#21

Hur gör jag rent kod mässigt?

Mvh Stoffe

Medlem sedan dec. 19996 522 inlägg
#22

Delete fixar du genom

Loppa igenom alla arrangemang och länka dem till tex. redigera.asp?action=delete&arr_id=<%=RS("arr_id")%>

Sen på redigera.asp skriver du

If request.querystring("action") = "delete" Then

SQLStmt = "DELETE from Arrangemang Where Arr_id = '" & Request.QueryString("arr_id")& "'"
Connect.Exeucte(SQLStmt)

ElseIf Request.querystring("action") = addnew Then

'Koden där du lägger till

ElseIf Request.querystring("action") = redigera Then

'Koden du använder för att redigera

End If

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

Medlem sedan mars 200121 inlägg
#23

Tack tack tack, ska kolla det där på momangen!

Medlem sedan dec. 19996 522 inlägg
#24

Change.asp

If request.querystring("action") = "lista"
'öppna databasen och loopa igenom databasen och länka till change.asp?action=change&arr_id=<%=RS("arr_id")%>
ElseIf request.querystring("action") = "open"
'Öppna databasen 
SQLStmt="Secelt * FROM arrangemang Where arr_id = '"& Request.querystring("arr_id") &"'
Set RS = Connect.Execute(SQLStmt)
'skriv ut informationen i ett formulär där du sätter initialvalue på textfält exempelvis till <%=RS("arr_text")%> eller vad fältet du ska visa heter, du väljer att sidan ska skickas till redigera.asp?action=redigera 
End If

Kod som ska in i redigera.asp vid action="redigera" om du nu har 2 fält i formuläret, en för bildnamnet och en för arrangemangs texten

SQLStmt = "UPDATE arrangemang SET arrtext = '" & Request.Form("arrtext") & "',arrbild = '" & Request.Form("arrbild") & "' WHERE arr_id = " & Request.Form("arr_id") & ""
Connect.Execute (SQLStmt)

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

261 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)