8 svar · 398 visningar · startad av Roosweb
Hejsan! har en vanlig textarea till ett klotterplank då, nu undrar jag hur jag ska göra så att om medlemmen trycker enter så ska det även vara ett enterslag när det visas sän när man tryckt skicka, altså såhär
(enterslag)
och så text igen, hur fixas det?
Vid utskrift ersätter du radbrytning med <br />. Sisomså, typ:
sText = oRS("klotter")
Response.Write Replace(sText, vbcrlf, "<br />")
Skulle detta fungera:
strText = Replace(strText,"vbcrlf","<br />")
Ja, om du tar bort citationstecknen runt vbcrlf.
Jodå. Visa lite mer kod.
Okej :) Här är hela min kod
Function FixLinks(ByVal strText)
With New RegExp
.Global=True
.IgnoreCase=True
.Pattern="([url]http://)([/url][\w~%&=#:\-/\?\.]*[\w~%&=#:\-/])"
strText=.Replace(strText,"<a href=""$1$2"" target=""_blank"">$2</a>")
strText = Replace(strText,":)","<img src=""Includes/smileys/glad.gif"">")
strText = Replace(strText,"><","<img src=""Includes/smileys/ahh.gif"">")
strText = Replace(strText,":O","<img src=""Includes/smileys/forvanad.gif"">")
strText = Replace(strText,":P","<img src=""Includes/smileys/P.gif"">")
strText = Replace(strText,":(","<img src=""Includes/smileys/sur.gif"">")
strText = Replace(strText,":gråter:","<img src=""Includes/smileys/grater.gif"">")
strText = Replace(strText,";)","<img src=""Includes/smileys/blink.gif"">")
strText = Replace(strText,":D","<img src=""Includes/smileys/superglad.gif"">")
strText = Replace(strText,vbcrlf,"<br />")
End With
FixLinks=strText
End Function
Och funktionen anropas? De andra ersättningarna utförs? Möjligen kan du ha råkat ut för en annan radbrytning (prova med vbcr eller vblf ). Du verkar inte köra med någon xhtml-variant, så en vanlig "<br>" är funkis i stället för "<br/>".