14 svar · 382 visningar · startad av k0ffe
Vet någon vänlig själ hur jag ska fixa till textformateringen i t.ex en gästbok? D.v.s man ska kunna slå en retur, mellanslag m.m. Nu blir allt bara en stor gröt...
Sen undrar jag om man på något sätt kan skriva ut, vid inskriven nyhet, personen som skrev nyheten? Kommer inte på något bra sätt...
Hoppas någon hängde med :)
1. För att få till en ersättning av radbrytning till <br> så det syns när du läser i webbläsaren, så använder du enklast funktionen Replace().
Response.write Replace(objRS("nyhetstext"), vbCrLf, "<br>")
Mellanslag kan du på motsvarande sätt ersätta med .
2. Hur lagrar du nyheterna i databasen? Vilka fält har du i tabellen? Det borde inte vara svårare än:
Response.write objRS("nyhetstext")
Response.Write "<br>Skrivet av " & objRS("forfattare")
Mvh
Ok, tack.
Jag har alltså ett admin system. Där jag nu vill skriva ut användaren som var inloggad och skrev respektive nyhet.
Då får du lagra författaren i nyhetstabellen också. Jag antar att du har en session som identifierar inloggad användare, så det är bara att lägga med sessionens värde i insert-satsen när du ska spara nyheten.
mvh
Ok... ska kika på det.
Men hur ska jag få till det med <br> satsen i den här koden?
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'Exempel på hur man kan 'plocka ner' andra forumlärelement
rubrik = UploadRequest.Item("rubrik").Item("Value")
inlagg = UploadRequest.Item("inlagg").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath("upload/"&filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
k0ffe skrev:
Men hur ska jag få till det med <br> satsen i den här koden?
Jag förstår inte vad bifogad kod har med frågan att göra?`:q
Response.write Replace(objRS("nyhetstext"), vbCrLf, "<br>")
Hur får jag det att fungera tillsammans med den bifogade koden? Det blev lite rörigt... :)
Jag vet inte, för jag vet inte var någonstans i den koden du skriver ut nyheten till besökaren? Det där ser ut att bara vara kod som hanterar uppladdning av filer, och ingen presentation av någonting?
rubrik = UploadRequest.Item("rubrik").Item("Value")
inlagg = UploadRequest.Item("inlagg").Item("Value")
Borde väl motsvara:
inlagg = Replace(Request("inlagg"), vbCrLf, "<br>")
ip = Replace(Request("ip"), "'", "''")
Eller?
Det där använder du väl när du sparar informationen? Gör alla ersättningar när du ska skriva ut informationen till besökaren.
Niet, det måste vara den sidan det ska ligga på.
Får det här felmeddelandet:
Request object error 'ASP 0208 : 80004005'
Cannot use generic Request collection
/it6/koffedesign/vvk2/uploadkomponentlos/outputfile.asp, line 64
Cannot use the generic Request collection after calling BinaryRead.
k0ffe, han menar den sidan där du skriver ut dina nyheter / där du använder t.ex. <%=RecSet("text")%> ...
Ok, så
Response.write Replace(objRS("nyhetstext"), vbCrLf, "<br>")
ska ligga där nyheterna skrivs ut?
Får det inte att fungera...
Men! Skriv ut hela dokumentet, kanske Nyheter.asp?