13 svar · 545 visningar · startad av MadMange
Kunde inte komma på någon bättre rubrik.. men men =)
Nu har jag den koden nedan för att skriva ut nyheter, men det blir helt fel, koden skriver ut all text efter varann objNews("tbody") även fast jag har enterslag osv med. Någon som har lust att hälpa mig med detta problem?
Sen har jag även en önskan att bildlänkar skrivs ut som just bilder, nu skriver den bara ut som rent text tex
Vi börjar väl med det första bekymret.
koden skriver ut all text efter varann objNews("tbody") även fast jag har enterslag osv med.
Inte helt konstigt, eftersom radbrytningar visas som mellanslag i webbläsare. I HTML använder man ju <br/> som radbrytning. Därför måste du göra en replace:
Response.Write Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
@nders skrev:
Vi börjar väl med det första bekymret.
koden skriver ut all text efter varann objNews("tbody") även fast jag har enterslag osv med.
Inte helt konstigt, eftersom radbrytningar visas som mellanslag i webbläsare. I HTML använder man ju <br/> som radbrytning. Därför måste du göra en replace:
Response.Write Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
Och jag hade "nästan" klurat ut koden, men jag gav till sist upp och postade mitt problem här (kodar helt enkelt för sällan i .asp)
Och som blixten så har man fått svar.
Stort tack till dig @nders! :)
Nu är det bara det där "lilla" problemet med bilderna som sagt :r
Blir tokig på detta, försöker få ihop det hela med bilder med hjälp av Replace, men jag lyckas bara inte!
Det är ju
upp!!
Samtliga förekomster av 
kommer att ersättas av HTML:s <img>-tagg med "foo.png" som värde för src-attributet. Så
objRegExp.Pattern = "\[img\]([^\]]+)\[/img\]"
[red]objRegExp.Global = true[/red]
strText = objRegExp.Replace(objNews("tbody"),"<img border=""0"" src=""$1""><br/>")
response.write strText
Peter S skrev:
Samtliga förekomster av
objRegExp.Pattern = "\[img\]([^\]]+)\[/img\]" [red]objRegExp.Global = true[/red] strText = objRegExp.Replace(objNews("tbody"),"<img border=""0"" src=""$1""><br/>") response.write strText
OK.. hmm
Men helt ärligt så är jag vilse, med foo.png menar du då tex den sökvägen till vilken bild som helst (som jag lägger in i db:n)
Hur skall det se ut i min kod? :r
Peter S skrev:
Ja, som i ditt exempel:
[img]http://forum.cvgty.nu/21.jpg[/img]
Jepp det är jag med på nu, men jag har försökt att få in den funktionen i koden, men det funkar inte.
Jag postar "hela" koden istället.
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
'//Converts UNIX timestamps into the format the current webserver use.
Function uTimeStamp(byval dDate) '// Bring the date back from database and show in current session.LCID
on error resume next
uTimeStamp = DateAdd("s", dDate, "01/01/1970 00:00:00")
if err then
cTimeStamp = int(0)
end if
End Function
dim strSQL
strSQL = "SELECT TOP 10 * FROM aspbb_topics WHERE tforumid=6 ORDER BY tdatecreate DESC"
set objNews = objConn.Execute(strSQL)
Do Until objNews.EOF
Response.Write "<p><div style=""background-color:#f1f1f1"" class=""aspbbcolormain"">" & objNews("ttitle") & " - " & uTimeStamp(objNews("tdatecreate")) & "</div><br/>" & vbNewLine
Response.Write Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
Response.write "<div style=""text-align:right""><a href=""topic.asp?TID=" & objNews("tid") & """>Diskutera</a></div>" & vbNewLine
Response.Write "<br/></p>" & vbNewLine
objNews.MoveNext
Loop
objNews.Close : Set objNews = Nothing
objConn.Close : Set objConn = Nothing
%>
Så var/hur ska det in?
[red]set objRegExp = new regexp
objRegExp.global = true
objRegExp.pattern = "\[img\]([^\]]+)\[/img\]"[/red]
Do Until objNews.EOF
Response.Write "<p><div style=""background-color:#f1f1f1"" class=""aspbbcolormain"">" & objNews("ttitle") & " - " & uTimeStamp(objNews("tdatecreate")) & "</div><br/>" & vbNewLine
[red]strText = Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>"
strText = objRegExp.replace(strText,"<img border=""0"" src=""$1""><br/>")[/red]
Response.write "<div style=""text-align:right""><a href=""topic.asp?TID=" & objNews("tid") & """>Diskutera</a></div>" & vbNewLine
Response.Write "<br/></p>" & vbNewLine
objNews.MoveNext
Loop
[red]set objRegExp = nothing[/red]
Peter S skrev:
[red]set objRegExp = new regexp objRegExp.global = true objRegExp.pattern = "\[img\]([^\]]+)\[/img\]"[/red] Do Until objNews.EOF Response.Write "<p><div style=""background-color:#f1f1f1"" class=""aspbbcolormain"">" & objNews("ttitle") & " - " & uTimeStamp(objNews("tdatecreate")) & "</div><br/>" & vbNewLine [red]strText = Replace(objNews("tbody"), vbcrlf, "<br/>") & "<br/>" strText = objRegExp.replace(strText,"<img border=""0"" src=""$1""><br/>")[/red] Response.write "<div style=""text-align:right""><a href=""topic.asp?TID=" & objNews("tid") & """>Diskutera</a></div>" & vbNewLine Response.Write "<br/></p>" & vbNewLine objNews.MoveNext Loop [red]set objRegExp = nothing[/red]
Hmm ok nu skriver den ut rubriken, med inte texten eller nått, får inget felmeddelande eller så..
Edit: Fattades visst response.write strText =)
Och sedan ändrade jag till objRegExp.pattern = "\
Peter S skrev:
Glöm inte:
http://www.webforum.nu/faq.php?faq=vb_board_usage#faq_faq_acceptance
Nej då. :)
Och tack till @nders med givetvis.