Den där ska visas som gammal eftersom du loggade in månaden efter. Har du verkligen kollat så att det finns nyare poster än då du loggade in?
Jag vill ha bild för nya trådar!
88 svar · 1 419 visningar · startad av crisse6 · sida 4 av 5
Frågan, av crisse6
Hejsan! Jag har ett forum och vill bara veta hur man genom två bilder kan få sidan att visa new.gif om det är nya inlägg sen sitt senaste besök och old.gif om det inte är det. Jag listar trådarna ju när man valt forum och brevid rubriken ska det vara denna lilla bild. Hur gör man så att det blir rätt för varje inloggad person????? Datum fält höll jag på med lite och jämförde oså.... men fick
Läs frågan i sin helhet →
r
Ja, eftersom jag skapar nya trådar så spelar det ingen roll....
/r
jag vill ju att det ska uppdateras så här som i detta forum. men säg att jag skapar ett till fält "laste" som uppdateras på den inloggade för varje tråd han/hon läser, vilka datum fält ska jag då jämföra i slutändan? hehehehe...... ojojoj, nu är det rörigt...
CheckNewPosts(dittRS("laste"), postdatum)
okey, nu är jag flyförbannad!
har skapat ett fält i tabellen medlemmar som heter laste och sedan har jag kvar fältet datum i tabellen add_forum.
Förklaring:
laste uppdateras varje gång man går in på read.asp sidan och sätter in nutidens datum/tid, den gör det.
datum i add_forum fylls i med nutidens datum/tid varje gång man postar en ny tråd. Det gör den.
Vad jag har förstått så ska jag jämföra laste med datum och beroende på om de är nyare/äldre så ska olika bilder visas, old.gif eller new.gif, namnen på dom säger sig själv.
Här är nu min kod som bara visar en av bilderna trots att det finns både äldre och nyare trådar = det ska visas olika bilder. Det gör den INTE
Slutligen, här är min kod:
<%
sql7 = "select * from medlemmar where anvandarnamn = '" & Session("anvandarnamn") & "'"
sql8 = "select * from add_forum where anvandarnamn = '" & Session("anvandarnamn") & "'"
set rs7 = Databas.execute(sql7)
set rs8 = Databas.execute(sql8)
%>
<%
'## -- Function: CheckNewPosts(ByVal LastHereDate, ByVal LastPostDate)
'## -- Description: Check after new posts since last visit --
'##
'## -- Author: PatrikBerggren
'## -- Contact: [email]mrwize@mrwize.nu[/email]
Function CheckNewPosts(ByVal LastHereDate, ByVal LastPostDate)
Dim strOutPut
If LastPostDate > "" Then
If CDate(LastHereDate) < CDate(LastPostDate) then
strOutPut = "<img src=""new.gif"" " & _
"alt=""" & NEW_TOPIC_ALT & """ border=""0"">"
Else
strOutPut = "<img src=""old.gif"" " & _
"alt=""" & OLD_TOPIC_ALT & """ border=0>"
End If
Else
strOutPut = "<img src=""old.gif"" " & _
"alt=""" & OLD_TOPIC_ALT & """ border=0>"
End If
CheckNewPosts = strOutPut
End Function
%>
<%
SQL1 = "SELECT Count(*) From add_forum Where forum_val = '" & Request.querystring("forum") & "'"
Set rs1 = Databas.Execute(SQL1)
Response.Write rs8("besokte")&"<br>"& rs8("datum")
%>
Här listas de 25 senaste trådarna. Om du klickar på rubriken för en tråd så kan du läsa
hela inlägget och svara på det också. Anser du att någon tråd skulle ligga i fel
forum eller om det inte håller sig till <a href=regler.asp>reglerna</a> så ber vi dig
rapportera det till någon av moderatorerna. För att skapa ett nytt ämne, scrolla längst
ner på sidan och klicka på "Skapa ny tråd".<br>
Håll forumet snyggt!<br>
Det är för närvarande <b><%=rs1.Fields(0) %></b> inlägg i forumet.
<br><br>
<!-- Skriv html/asp nedan -->
<%
sql = "Select * From add_forum WHERE orginal = 'Ja' AND forum_val = '" & request.querystring("forum") & "' ORDER BY datum DESC"
sql2 = "select * from medlemmar where moderator = 'Ja'"
set rs = Databas.execute(sql)
set rs2 = Databas.execute(sql2)
response.write "<table width=370 cellspacing=3><tr><td width=200><b>Rubrik:</b></td><td width=50><b>Skribent:</b></td><td width=120><b>Datum:</b></td></tr></table>"
DO UNTIL rs.EOF
if bgcolor="#FFFFFF" then
bgcolor="#EFEFEF"
else
bgcolor="#FFFFFF"
end if
response.write "<table width=370 cellspacing=3 bgcolor="& bgcolor &" valign=top><tr><td width=200>" & CheckNewPosts(rs8("datum"),rs7("laste")) & "<a href=read.asp?id="& rs("id") &"&forum=" & request.querystring("forum") & ">"& rs("rubrik") &"</td><td width=50>"& rs("anvandarnamn") &"</td>" &_
"<td width=120>"& FormatDateTime(rs("datum"), 1) &"</td></tr></table>"
rs.movenext
loop
%>
<br>
<table width=370><tr><td>
<hr size=1 color=1 width=370>
<a href="new.asp?forum=<%=request.querystring("forum")%>">Skapa ny tråd</a> | <a href=sok.asp>Sök</a> | <a href=forum_val.asp>Välj forum</a><br><br>
<b>
Moderator inom detta forum:
<%
do until rs2.eof
response.write "<font color=green>"& rs2("anvandarnamn") &"</font> "
rs2.movenext
loop
%>
Tänk att detta är en liten detalj som kan vara så in i hel**** svår. Hjälp mig
okey, här ger ni upp lr?
Vi får hoppas på att Override kommer o hjälper till, eller någon annan guru.
Som jag ser det så måste du spara ett Last, LastHereDate för varje användare för varje tråd.
Se till att du har datumformat överallt, testa att lägga till cdate före recseten osv. Se till att du har datumformat även i databasen.
ex.
cdate(rs7("laste"))
ordnade detta, men iaf det fick jag inte att fungera :e
en annan sak som jag tänkte på
ByVal LastHereDate, ByVal LastPostDate
LastHereDate och LastPostDate, kan dom heta vad som helst? Säg, senaste och skickade???? eller har dom något värde på något sätt?
De kan heta vad som helst, bara det har samma namn inuti själva funktionen.
okey. men då borde väl allt fungera eller????? jag förstår ej varför den inte gör det? gör någon det?
I din funktion skriver du:
CheckNewPosts(rs8("datum"),rs7("laste"))
Men det är ju inget av dessa recordset som du har i din loop, det blir ju bara ett och samma datum för alla trådar väl?
Du måste ju ta ut datumet som är kopplat till varje tråd i din sql-sats:
sql = "Select * From add_forum WHERE orginal = 'Ja' AND forum_val = '" & request.querystring("forum") & "' ORDER BY datum DESC"
Och jämföra med datumet när liraren senast besökte..
Så ska det inte stå kanske:
CheckNewPosts(rs("datum"),rs7("laste"))
Om nu det datumet innehåller datumet för när varje enskild tråd uppdaterades.
eh.
så här arg är jag nu:
:e
nej jag har inte valt fel smiley!
det är en jävla (ursäkta språket, men ett måste) tur att det finns sånna som solbulle asså, just nu kan jag ju säga solbulle att du är en favorit!
OJOJOJOJOJOJOJOJOJOJOJOJOJOJOJOJ, VA GLAD JA ÄR, HURRA!!!!!!!!!! :birp :birp :birp
en ramsa...
solbulle, klapp klapp
solbulle, klapp klapp
du förstår nog inte hur glad jag är! weeeeeeeeeeeeeeeeeeeeeee
har en fråga.. hur vet man att recset("lastvisit") reggar sej när man lämnar siten eller hur uppdateras den?
Hööru du voigtann1, börja inte strula till det nu medans vi sitter här o sjunger o är glada. :birp :e
har en fråga.. hur vet man att recset("lastvisit") reggar sej när man lämnar siten eller hur uppdateras den?
Det är svårt att veta ju.
solbulle skrev:
Hööru du voigtann1, börja inte strula till det nu medans vi sitter här o sjunger o är glada. :birp :e
Tummen upp, vi tar väl en öl någon dag du och jag solbulle :birp
vill inte bryta upp så här, men måste fråga, om någon postar ett nytt inlägg då i en tråd, hur får man funktionen att visa ny bild för just den tråden då?
När någon postar ett inlägg i en gammal tråd så får du väl se till att datumet för ursprungsinlägget uppdateras, det beror ju kanske lite på var du har dessa symboler?! Är det som på WF?
hehehe..... fått ordning på det nu så att den visar ny bild för den tråd som fått nya svar sen ens senaste besök, med en loop i en loop.... men bilderna lägger sig ovan länkarna istället för bredvid...
varför?
denna kod:
DO UNTIL rs.EOF
if bgcolor="#FFFFFF" then
bgcolor="#EFEFEF"
else
bgcolor="#FFFFFF"
end if
response.write "<table width=460 cellspacing=3 bgcolor="& bgcolor &" valign=top><tr><td width=200>"
'##### Här ska den loopa rs8
do until rs8.eof
response.write "" & CheckNewPosts(rs7("laste"),rs8("datum")) & ""
rs8.movenext
loop
'##### och sluta loopa här
response.write "<a href=""read.asp?id="& rs("id") &"&forum=" & request.querystring("forum") & """>"& rs("rubrik") &"</a></td><td width=100>"& rs("anvandarnamn") &"</td>" &_
"<td width=150>"& FormatDateTime(rs("datum"), 1) &"</td></tr></table>"
rs.movenext
loop
bifogar en bild som visar hur allt ser ut nu....
