10 svar · 128 visningar · startad av ConnyFox
jag är tämligen ny på asp och försöker göra en admin funktion till mitt nyhets script där man ska kunna ta bort nyheter från databasen. Skulle någon kunna hjälpa mig med detta?
Typ med en länk som : delete.asp?id=4
och en kod till själva delete filen. E helt väck på detta :o)
------------------
*brölar ljudligt*
Nu vet jag inte vad din tabell heter och vilka kolumner som ingår så att du får rätta till det i delete-satsen.
Du får också ändra på connect.open så att det passar för din databas.
set connect = server.createobject("adodb.connection")
connect.open "dsn"
connect.execute "delete from news where id = " & request.querystring("id"),,128
connect.close
set connect = nothing
------------------
essentitia preter non sans multiplicandum
Hoppas detta hjälper dig:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN="
strSQL = "DELETE * FROM Exempel WHERE ExempelID = " & Request.QueryString("delID") & " "
Connect.Execute strSQL, , 128
Connect.Close
Set Connect = Nothing
%>
Tack för d snabba svaret men som sagt jag e ny på detta o fattar inte riktigt vad jag då lämligast använder för länk för att ta bort inläggen?
D ska typ finnas en ta bort länk brevid varje inlägg som radas upp på admin sidan.
blah blah blah... [Ta bort]
------------------
*brölar ljudligt*
Här har du kanske det du behöver:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN="
Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT NyhetsId, Rubrik FROM Nyheter ORDER BY NyhetsId"
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic %>
Följande artiklar finns att radera.<p>
<ul>
<% Do Until RecSet.EOF %>
<li><% =RecSet("Rubrik") %> <br>
<a href="delrec2.asp?delID=<% =RecSet("NyhetsID") %>">Radera denna nyhet!</a>
<hr noshade size="1" width="250" align="left">
<% RecSet.MoveNext
Loop
RecSet.Close %>
tack d va precis vad jag behöver men d funkar ändå inte riktigt som d var tänkt.. verkar som att folk kodar ganska olika så..
Ok i ett sista desperat försök o fatta detta så ska jag ge lite mer exakt info :o)
Databasen nyheter.mdb
----------------------
ID
rubrik
nyhet
datum
Admin.asp
--------------------
<%
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
SQL = "Select * from nyheter ORDER BY datum DESC"
Set rs = db.execute(SQL)
%>
<html>
<head>
<title>Nyheter Admin</title>
</head>
<body>
<h3>Admin sidan!</h3>
<form action="nyheter_send.asp" method="post">
<table width="200"><tr><td valign="top">
Rubrik : </td><td> <input name="rubrik" size="20">
</td></tr><tr><td valign="top">
Nyhet : </td><td> <textarea name="nyhet" rows="4"></textarea>
</td></tr><tr><td colspan="2"><center>
<input type="submit" name="skicka" value="Skicka">
<input type="reset" name="angra" value="Ångra"
</td></tr></table>
</form>
<%
do until rs.EOF
%>
<%
nyhet=Replace(rs("nyhet"),vbCrLf, "<br>")
%>
<%If Not rs("rubrik")="" Then%>
<b><%=rs("rubrik")%></b>
<%End IF%>
<br>
<%If Not rs("nyhet")="" Then%>
<%=rs("nyhet")%>
<%End IF%>
<br><hr>
<%
rs.movenext
loop
%>
</body>
</html>
Och sidan som ska skicka informationen till databasen..
Nyheter_Send.asp
--------------------
<%
Set db = Server.createObject("ADODB.connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
SQL = "Insert into nyheter(rubrik,nyhet) VALUES ('" & request.form("rubrik") & "', '" & request.form("nyhet") &"')"
Set rs = db.execute(SQL)
set rs = nothing
set db = nothing
response.redirect "admin.asp"
%>
Hoppas nån fattar min skitkod o kan hjälpa mig.. började pilla med databaser igår o kan inte ett piss typ ;)
------------------
*brölar ljudligt*
<%
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
SQL = "Select * from nyheter ORDER BY datum DESC"
Set rs = db.execute(SQL)
%>
<html>
<head>
<title>Nyheter Admin</title>
</head>
<body>
<h3>Admin sidan!</h3>
<form action="nyheter_send.asp" method="post">
<table width="200"><tr><td valign="top">
Rubrik : </td><td> <input name="rubrik" size="20">
</td></tr><tr><td valign="top">
Nyhet : </td><td> <textarea name="nyhet" rows="4"></textarea>
</td></tr><tr><td colspan="2"><center>
<input type="submit" name="skicka" value="Skicka">
<input type="reset" name="angra" value="Ångra"
</td></tr></table>
</form>
<%
do until rs.EOF
%>
<%
nyhet=Replace(rs("nyhet"),vbCrLf, "<br>")
%>
<%If Not rs("rubrik")="" Then%>
<b><%=rs("rubrik")%></b>
<%End IF%>
<br>
<%If Not rs("nyhet")="" Then%>
<%=rs("nyhet")%>
<%End IF%>
<a href="delete.asp?ID=<% =RS("
ID") %>">Radera denna nyhet!</a>
<br><hr>
<%
rs.movenext
loop
%>
</body>
</html>
och sedan på sidan delete.asp
<%
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
db.execute "delete from nyheter where id = " & request.querystring("id"),,128
db.close
set db = nothing
response.redirect "admin.asp"
%>
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 28 nov 2001]
Detta va preciiis va jag behövde.. synd bara att d inte funkade ;)
Fel
-----------------------
Kompileringsfel i Microsoft VBScript fel '800a0400'
Programsats förväntas.
/StajlNews 1.0/admin.asp, rad 46
=RS("
^
men men tack iaf! ;)
------------------
*brölar ljudligt*
Sorry d funkade fin fint, råkade få med en radbrytning bara d fixade sig när jag tog bort den! tack så mycket nu kan jag fortsätta försöka lära mig nått! *bockar o bugar*
------------------
*brölar ljudligt*
Deleade du upp koden på flera rader?
<a href="delete.asp?ID=<% =RS("ID") %>">Radera denna nyhet!</a>
<br><hr>
=RS("ID") måste stå på en rad.
------------------
essentitia preter non sans multiplicandum
Ett förslag för att slippa "admina" så mycket är att du gör att raderingen går automatiskt, typ efter 10 dagar eller så.