6 svar · 223 visningar · startad av Jacek
Tjoflöjt... jag håller på med en sida till min skola men behöver lite små hjälp grejjs som jag inte lyckats lösa...
1.
Jag har ett forum på sidan men jag vill att när jag skriver ut texten från databasen skall jag kunna ersätta *****, ***, hora, bög mm. med en liten bild?
2.
Jag vill att när man fyller i meddelandet fältet till forumet så skall det se likadant ut när man skriver ut det. T.ex. om man trycker på RETURN så blir det ett <br> i koden.
3.
Hur skriver man koden för att räkna ut antal poster i en tabell där "Roster" = Ja. Vet inte om någon hajjar det men ett försök i alla fall..
4.
Jag vill att man inte kan använda HTML kod i mitt forum.
Skulle vara tacksam om någon kunde hjälpa mig med dom hära små problemen som säkert är lättlösta bara att jag inte hajjar hur man gör ;)
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
1: REPLACE(text, "hora", "<img src=osv.osv>")
2: REPLACE(text, chr(10), "<br>")
3: SELECT count(*) AS antal WHERE Roster = 'ja'
4: text = server.HTMLEncode(text)
Hoppas det funkar som du vill
------------------
MVH // Cyprys
Cyprys bakgård
Om du någonsin ser mig bli misshandlad av polisen, var snäll och lägg ner videokameran och kom och hjälp mig i stället.
Om min kod ser ut så här:
<%
set conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("../db/tidningen.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"
namnsdag = "SELECT namn1,namn2 FROM Namnsdag WHERE Manad="&Month(Date)&" and Dag="&Day(Date)&""
Set namnsdag = Conn.Execute(namnsdag)
SQLStmt = "SELECT * FROM Forums where Id = " & Request("ForumId")
Set RS = Conn.Execute(SQLStmt)
SQLStmt = "SELECT *, Format$([date],'yyyy/mm/dd') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries where Id = " & Request("Id")
SQLStmt = SQLStmt & " AND OrgThread = True"
Set RS2 = Conn.Execute(SQLStmt)
SQLStmt = "SELECT *, Format$([date],'yyyy/mm/dd') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries where ReplyId = " & Request("Id")
SQLStmt = SQLStmt & " AND OrgThread = False Order by Id Desc"
Set RS3 = Conn.Execute(SQLStmt)
SQLStmt = "SELECT Count(*) AS ItemCount FROM Entries Where Replyid =" & Request.Querystring("Id")
SQLStmt = SQLStmt & " AND OrgThread <> TRUE"
Set RS4 = Conn.Execute(SQLStmt)
%>
Vart är det kag skall slänga in replace grejjerna.. Det är RS2("comment") som jag vill censurera och göra så att det blir <br> om man trycker ENTER.
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
Jag kan inte SQL men för att ersätta radbrytningarna med <br> så kan man vad jag förstått även skriva:
Replace(text, vbcrlf, "<br>")
Jag är inte allt för bra på funktioner så jag gör så här i stället.
texten = RS2("comment")
texten = REPLACE(texten, "svärsord", "smile")
texten = REPLACE(texten, "svärsord", "smile")
Sen kan du skriva flera REPLACE() efter varandra.
Radbrytning sätter jag in när man skriver in texten i databasen. SAmma gäller htmlencoden
texten = request.form("meddelande")
texten = Server.HTMLEncode(texten)
texten = REPLACE(texten, chr(10), "<br>")
OBS! I rätt ordning dock då den annars kodar om <br>.
------------------
MVH // Cyprys
Cyprys bakgård
Om du någonsin ser mig bli misshandlad av polisen, var snäll och lägg ner videokameran och kom och hjälp mig i stället.
[Redigerat av cyprys den 24 jan 2001]
jag är också intresserad av det där med <br>...kan någon skriva lite mer utförligt, jag vet inte vart jag ska stoppa in koderna på min aspsida. jag har en databas med information, som ska skrivas ut, alltså ett formulär där man matar in text i en <textarea>, när man trycker på enter, ska en <br> infogas!
hoppas nån fattar!
------------------
Min hemsida kommer snart...den som väntar på något gott...!
radbrytningar lagras som just radbrytningar i databasen. det tjönar ingenting till att ersätta radbrytningar med <br> innan man slänger in det i databasen, utan det bör göras när man skriver ut informationen.
man kan till exempel göra så här:
response.write replace(rs("textkolumnen"), vbcrlf, "<br>")
svårare än så är det inte. :)
var det svar på din fråga, henrik?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>