ciao ragazzi ho un problema....sul sito della mia squadra ho inserito questa sorta di guest (lotrovate in alto sulla dx) solo che ho un problema....vorrei fare in modo che se il msg inserito è troppo lungo il guest vada automaticamente a capo senza invece far vedere tutto il testo su di una riga chilometrica con le noiosissime barre di scrolling....come faccio?mi aiutate gentilmente?
ciao e grazie
cerca nel forum html (o meglio css :master: ?)
il guest si basa su due file asp....guestbook.asp che è quello in cui vengono visualizzati tutti i msg ed urlo.asp che è quello piccolo dove vengono visualizzati gli ultimi msg
primo accorgimento:
quando stampi il testo di una TEXTAREA devi fare
secondo accorgimento:codice:response.write replace(testo,VbCrlf," ")
se cerchi sul forum sono state postate delle function che controllano che una parola non sia troppo lunga..se lo è la spezzano in maniera che se uno scrivesse una frase tutto attaccato non ti va a quel paese la formattazione
santino ho cercato nel forum ed ho trovato anche alcune cose postate da te ma il risultato non mi cambia....ora posto il codice.......
purtroppo nella visualizzazione della pagina non mi cambia nulla.....codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <% Dim connGuestDB Set connGuestDB = Server.CreateObject("ADODB.Connection") connGuestDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fpdb/guestbook.mdb") & ";Persist Security Info=False" connGuestDB.open %> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Documento senza titolo</title> </head> <body> <% Function dividiStringa(sStr, iInizio, iProg) Dim sTesto Dim lLenght Dim sFinal If Len(sStr) > 20 Then If Mid(sStr, 21, 1) = " " Then sFinal = Mid(sStr, 1, 20) & " " response.write(sFinal) sTesto = Mid(sStr, 22, Len(sStr) - 21) iProg = iProg + 1 dividiStringa sTesto, 1, iProg Else lLenght = InStrRev(Mid(sStr, 1, 20), " ") If Not lLenght = 0 Then sFinal = Mid(sStr, 1, lLenght) & " " response.write(sFinal) sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght) Else sFinal = Mid(sStr, 1, 20) & " " response.write(sFinal) sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20) End If iProg = iProg + 1 dividiStringa sTesto, 1, iProg End If ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then sFinal = sStr response.write(sFinal) End If End Function response.write(dividiStringa("Ciao, questa è una prova di come funziona l'algoritmo ricorsivo di spezzatura di stringhe troppo lunghe!",1,1)) %> <% Dim sUtente, sMessaggio sUtente = Replace(Request("utente"),"'","''") sMessaggio = Replace(Request("messaggio"),"'","''") connGuestDB.Execute "INSERT INTO GUEST (UTENTE, MESSAGGIO) VALUES ('" & Mid(sUtente,1,12) & "', '" & Mid(sMessaggio,1,200) & "')" connGuestDB.close set connGuestDB = nothing Response.Redirect("index.asp") response.write replace(testo,VbCrlf," ") %> </body> </html>
mi puoi aiutare gentilmente?
Servirebbe anche a me per il mio sito, capita quando devo aggiungerci le news che non va a capo da solo.
Non sono un esperto però farei una prova in questo modo:
Dim sUtente, sMessaggio
sUtente = Replace(Request("utente"),"'","''")
sMessaggio = Replace(Request("messaggio"),"'","''")
sMessaggio = Replace(Request("messaggio"), VbCrlf,"
")
Ciao
Otacon ma che fai? response.write SCRIVE, e te lo metti dopo un redirect? la variabile testo non è valorizzata da nulla...non puoi fare copia e incolla delle cose così senza sapere che fai
ps:ma quella funzione la postai io? sei sicuro? :master:
io di asp non ne capisco nulla....il file è stato preparato da un amico ed il lho messo online...sono riuscito a fare delle modifiche x delle conoscenze di programmazione e anche per intuito
quindi se ho fatto una caxxata prego tutti di perdonarmi ed avere pazienza.....se non lhai postato tu allora sicuro eri intervenuto nella discussione perche ricordo benissimo di te....
ragazzi allora nessuno mi aiuta?
Permessi di invio
Rispondi quotando