webForumDet fria alternativet

Delete -> Edit

5 svar · 208 visningar · startad av Ghost of North

Ghost of NorthMedlem sedan sep. 200067 inlägg
#1

Hur mycket omarbete krävs för att få en sida som raderar databasposter, till att kunna lägga till kommentarer i posterna?

Jag har fixat kommentarsfältet i Access och textrutan där kommentaren ska skrivas.

Mitt problem nu är att jag inte vet hur jag ska få databasen att spara fältet i stället för att radera posten.

Att sedan skriva ut den är redan klart, men jag tänkte jag skulle slippa ladda upp och ner databasen hela tiden...

------------------

With resurrection comes new hope, for the future has yet to be created

@ndersMedlem sedan juni 200026 914 inlägg
#2

för att uppdatera information i en tabell använder du connection-objektet för att ställa en update-fråga.

se mer i vides asp-skola.

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

EclipseMedlem sedan juli 20003 741 inlägg
#3

Om du har ett textfält som heter "email" som du skickar från en sida rill en annan så skriver du request("email") för att få reda på vilket värde som finns i det skickade fältet "email".

response.write request("email")

testa det! det är lixom det som du saknar! ;-)

------------------
Never underestimate your opponents.

Ghost of NorthMedlem sedan sep. 200067 inlägg
#4

Tack för tips och ledtrådar. Nu ska jag bara bråka fram nåt ;)

------------------

With resurrection comes new hope, for the future has yet to be created

crisse6Medlem sedan dec. 20002 441 inlägg
#5

ska du asså bara få fram användares uppgifter för att sedan kunna ändra dom eller?

------------------
www.groda.net *kvack*, *kvack*

Ghost of NorthMedlem sedan sep. 200067 inlägg
#6

Jag vill kunna kommentera det som mina besökare skrivit i min gästbok. Tyvärr kan jag inte ASP alls egentligen utan saxar och modifierar layouten mest.

Jag har hittat en bra gästbok på nätet som jag nu skulle vilja ha kommentarsruta i.
I nuvarande form har gästboken en admin-avdelning där man kan välja bl.a. att ta bort poster genom att markera en box och sedan skicka.
Jag skulle vilja att antingen omarbeta delete-sidan eller få hjälp med att göra en sida där jag kan se vad folk har skrivit och svara på de jag vill.

Skickar med koden för delete-sidan om någon är intresserad:

<!--#include file="config.asp"-->
<%
Function FormatStr(String)
	on Error resume next
	String = Server.HTMLEncode(String)
	String2 = Replace(String, CHR(13), "")
	String2 = Replace(String, CHR(10) & CHR(10), "</P><P>")
	String2 = Replace(String, CHR(10), "<br>")
	FormatStr = String2
End Function

Sub Update
'objConn.Open strConn
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "Messages", objConn,1, 3, &H0002
For intLoop = 1 to Request.Form("field").Count
IDnum = Request.Form("field")(intloop)
		objRec.Filter = 0
		objRec.Filter = "ID='" & IDnum & "'"
		objRec.Delete
		Next
End Sub

Sub Show
NumPerPage=INT(objRec2("NumPerPage"))
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If
Set objRec = Server.CreateObject ("ADODB.Recordset")
StrSql = "SELECT * FROM Messages ORDER BY ID DESC;"
objRec.PageSize = NumPerPage
objRec.CacheSize = NumPerPage
objRec.Open StrSql,objConn,3,1,&H0001
iPages = objRec.PageCount
TotalRows = objRec.RecordCount 
If iPageCurrent > iPages Then iPageCurrent = iPages
If iPageCurrent < 1 Then iPageCurrent = 1
If iPages = 0 Then
Response.Write "Inga poster funna!<p>"
Else
ObjRec.AbsolutePage = iPageCurrent
%>
<html>
<head>
<title>Black 'n' Tan</title>
</head>
<body bgcolor="#000000">
<font face="garamond" color="#99ccff" size="3"><center><b>Radera poster</b></center><p align=left>Det finns <b><%=TotalRows%></b> poster på <b><%=iPages%></b> sidor</font></p>
<%
iRecordsShown = 0
Do While iRecordsShown < NumPerPage And Not objRec.EOF
Rating = ObjRec("Rating")
If IsNull(Rating) or Rating="0" then
Rating = "nr"
Else 
Rating = ObjRec("Rating")
End If
Email = FormatStr(ObjRec("Email"))
Name = FormatStr(ObjRec("Name"))
%>
<table width="500" border="0" cellpadding="1" cellspacing="0"><tr><td bgcolor="#000000" width="261">
<font face="garamond" color="#99ccff" size="3"><input type="checkbox" name="field" value="<%=objRec("ID")%>"> <%=ObjRec("DateID") %></font>
    </td>
    <td bgcolor="#000000" width="138">
<font face="garamond" color="#99ccff" size="3"><i>IP:<%= ObjRec("IP") %> </i></font></td>
    <td bgcolor="#000000" width="139" align="right">
<p><font face="garamond" color="#99ccff" size="3"><b>Rating: </b></font><img src="../images/star<%= Rating %>.gif" height="14" width="65"></p>
</td>
  </tr>
<tr><td colspan=3 bgcolor="#000044" width="546"><font face="garamond" color="#99ccff" size="3">
    
    
<%
If IsEmpty(Email) or Email=" " then
Response.Write "<strong>" & Name & " säger:</strong>"
Else
Response.Write "<strong>" & Name & "&nbsp;<a href=""mailto:" & Email & """><img src=../images/mail.gif border=0></a> säger:</strong>"
End If
%>
<br>

<%=FormatStr(ObjRec("Message"))%>
<br><br>
<%
If Len(ObjRec("URL")) > 1 Then
	Hemsa = ObjRec("URL")
	If left(Hemsa,4) <> "http" then
		Hemsa = "http://" & Hemsa
	End If
	Response.Write "<font face=garamond color=#99ccff size=3><strong>Hemsida: <a href=" & Hemsa & " target=_blank>" & ObjRec("URL") & "</a></strong><br><br>"
End If
%>

<%
If Len(ObjRec("Svar")) > 1 then
	Response.Write "<font face=garamond color=#0000ff size=3><strong>Svar: </strong><font color=#99ccff>" & ObjRec("Svar") & "<br><br>"
End If
%>

</font>
	<center>
	<textarea name="Svar" rows=3 cols=57 wrap="virtual"><%= Request.Form("Svar") %></textarea>
	</center>  
</td></tr>

</table>
<%
iRecordsShown = iRecordsShown + 1
objRec.MoveNext
Loop
if iPages > 1 then
%>
<p align=center><font face="garamond" color="#99ccff" size="3"><b>Pages: </b>
<%
For I = 1 To iPages
If I = iPageCurrent Then
Response.Write "<b>" & I & "</b> "
Else
Response.Write "<a href=delete.asp?page=" & I & ">" & I & "</a> "
End If
Next
Response.Write "</font>"
Else
Response.Write "&nbsp;"
End If 
End If
objRec.Close
Set objRec = Nothing
%>
<br><br>
<input type="submit" value="Radera markerade poster" name="Submit" style="font-family: Garamond; font-size: 12pt; color: #000044"></p></form>
<%
End Sub

Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConn
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
ConfigSql = "SELECT * FROM Admin;"
objRec2.Open ConfigSql,objConn,0,1,&H0001
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<center><table border="0" width="500" cellpadding="0"><tr><td align=center><form method="POST" action="delete.asp?mode=delete">
<%
select case Request.QueryString("mode")
case "delete"
Call Update
case "show"
Call Show
case Else
Call Show
End Select
objRec2.Close
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "</p><font face=""garamond"" size=""-2"" color=""#000000"">Developed by: <a href=""http://www.aspjar.com"">ASPJar.com</a></font></td></tr></table></center>"
%>
  </table>
</font>
</body>

------------------

With resurrection comes new hope, for the future has yet to be created

Genererad på 378 ms · cache AV · v20260730165559-full.f96bc7eb