Jo, du har skrivit det. Men om det inte går att se den resulterande HTML-koden någonstans är det svårt att se vad som gör att texten hamnar utanför tabellen.
Forum
52 svar · 955 visningar · startad av Kreles · sida 3 av 3
Frågan, av Kreles
Jag har en uppgift i skolan som går ut på att göra en blogg. Jag har kört fast totalt och har ingen aning om hur jag fortsätter. :( Uppgifterna i formuläret läggs inte in i databasen, jag vet inte hur jag ska få en kort ingress (utan att besökarna får skriva den själv. Jag vill alltså få ingressen automatiskt från den första raderna i inlägget), jag vill ha ämnet klickbart, men vet inte hur man
Läs frågan i sin helhet →Är det verkligen koden ovan som skapar den utskriften? Det saknas <td> och </td> runt den förkortade texten.
Mvh
Ja, det är det.
Hela koden
<%
dim conn, data, sql
Function intro(id,las,text,tal) 'Skapar funktionen intro()
myarr = split(text, " ")
i = 0
for i = lbound(myarr) to ubound(myarr)
select case i
case tal-1
response.write(myarr(i) & " ... <a href=""link.asp?id=" &id& """><B>" &las& "</B></a>")
exit for
case else
response.write(myarr(i) & " ")
end select
next
end function
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Blogg.mdb")
%>
<html>
<head>
<title>START</title>
</head>
<body>
<p><a href="fsupp_3.asp">Skriv nytt inlägg</a><BR>
</p>
<table border=1>
<TR>
<TD><B>Ämne</B></TD>
<TD><B>Författare</B></TD>
<TD><B>Inlägg</B></TD>
<TD><B>Datum</B></TD>
</TR>
<%
'Set data =Conn.Execute("SELECT * from Artiklar")
SQL =" SELECT Artiklar.Ämne, Artiklar.Inlägg, Artiklar.Datum, Artiklar.ArtikelID, Användare.Användarnamn FROM Artiklar INNER JOIN Användare ON Artiklar.AnvändarID = Användare.AnvändarID"
Set data =Conn.Execute(SQL)
While Not Data.EOF
Response.write "<tr><td width=""100""><a href=""Fsupp_2.asp?artikel=" & data("ArtikelID") & """>" & data("Ämne") & "</a></td>"
response.write "<td width=""100"">" & data("Användarnamn") & "</td>"
Response.Write "<td width=""300"">" & intro(2,"Läs mer >>",data("Inlägg"),6) & "</td>"
response.write "<td width=""80"">" & data("Datum") & "</td></tr>"
data.moveNext
wend
%>
<%
'Data.MoveNext
'Wend
%>
</table>
</body>
</html>
Den koden ser faktiskt hyggligt rätt ut. Men det ser inte ut som att det är den koden som ligger på det ställe du länkar till.
Prova att ladda upp sidan på nyy så du är säker på att det är den koden som verkligen ligger på servern. Annars vete 17.
Om du byter den här raden:
Response.Write "<td width=""300"">" & intro(2,"Läs mer >>",data("Inlägg"),6) & "</td>"
till
Response.Write "<td width=""300"">Bäver</td>"
, så hamnar alltså bävern på rätt ställe?
Ja, Bäver hamnar på rätt ställe, likadant om jag skriver ut mina artiklar utan den önskade förkortningseffekten, problemet är ju bara att ett inlägg kan vara långt, så jag vill bara att man ska se en liten bit.
Tittade i html-koden nu också, och jodå, jag ser också att det saknas td. Fast jag fattar inte varför...
Vad var knas?
Response.Write "<td width=""300"">"
Response.Write intro(2,"Läs mer >>",data("Inlägg"),6)
Response.Write "</td>"
Satt bara och provade lite, och så funkade det helt plötsligt =)
bör nog använda:
Response.Write "<td width=""300"">"
Response.Write intro(2,"Läs mer >>",data("Inlägg") &"",6)
Response.Write "</td>"
då kör den inte fel på split() funktionen skulle jag tror om data("inlägg") skulle vara tomt.
Tack :)
Nu har jag ett annat problem...
http://62.13.13.12:2005/inetv05akli/miniprojekt/Fsupp_1.asp
Den första tomma raden är borttagen, hur får jag bort raden ur tabellen?
Den andra tomma raden är uppdaterad. Men den syns ju som synes inte.
Hur fixar men detta?
Hm... Nu funkar det att ta bort utan att jag gjort någonting. Men uppdatera funkar inte.
Den tomma raden med enbart författare är ändrad, men som synes händer det inte mycket =S
Det funkar nu =)