20. april 2003 - 20:07
Der er
11 kommentarer og 2 løsninger
Enter = <br>
Hejsa NG. Er der en venlig sjæl der kan hjælpe mig? Jeg bruger denne her kode til at indsætte nyheder i min tabel, som bliver vist på en forside. <form action="adminnews.asp" method="post"> <table cellpadding="0" cellspacing="20" width="500" border="0"> <tr> <td>Overskrift</td><td><input type="text" name="overskriftb"></td> </tr> <tr> <td>NyhedsTekst</td><td><textarea name="tekstb" rows="6" cols="20"></textarea></td> </tr> <tr> <td>Dit navn/nick</td><td><input type="text" name="navna"></td> </tr> <tr> <td>Kilde</td><td><input type="text" name="kildeb"></td> </tr> <tr> <td>Direkte </td><td><input type="text" name="linka"></td> </tr> <tr> <td>Link</td><td><input type="text" name="commentb"></td> </tr> <tr> <td>Picture</td><td><input type="text" name="pica"><br><a class="menub" title="upload" href="upload.asp" onclick="NewWindow(this.href,'link','300','400','no');return false;">Upload billede</a></td> </tr> <tr> <td>Overskrift</td><td width="300" align="left"><input type="text" name="overskrift2b"></td> </tr> </table> <input type="image" src="gfx/send.gif" value="Gem"> </form> <br><br> <%if Request.Form("overskriftb") <> "" then strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/data.mdb") Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open strConnect strSQL = "Insert into arkiv (overskrift, tekst, navn, kilde, link, comment, pic, overskrift2) values('" & Request.Form("overskriftb") & "', '" & Request.Form("tekstb") & "', '" & Request.Form("navna") & "', '" & Request.Form("kildeb") & "', '" & Request.Form("linka") & "', '" & Request.Form("commentb") & "', '" & Request.Form("pica") & "', '" & Request.Form("overskrift2b") & "')" objConn.Execute(strSQL) end if %> Hvordan får jeg den til at lave om, så når man trykker på <enter> tasten, så acceptere den det som <br>. Ydermere vil jeg gerne man også kan bruge ' (eks: Peter's) Det vil den nemlig ikke nu, så det påvirker asp koden.
Annonceindlæg fra Lector
20. april 2003 - 20:10
#1
Replace(string, VbCrLf, "<BR>")
20. april 2003 - 20:11
#2
Enter = vbCrLf i ASP derfor kan du lave en replace der ser sådan ud: string = Replace(string, vbCrLf, "<br>")
20. april 2003 - 20:13
#3
Replace(string, VbCrLf, "<BR>")
20. april 2003 - 20:15
#4
Jeg skal have det ind med skeeer. Hvor skal det puttes ind henne? Og hvad med ' ?
20. april 2003 - 20:15
#5
:-)
20. april 2003 - 20:17
#6
du har fat i den forkerte kode...vi skal ha koden der viser informationerne ikke den der gemmer dem...
20. april 2003 - 20:18
#7
20. april 2003 - 20:18
#8
<form action="adminnews.asp" method="post"> <table cellpadding="0" cellspacing="20" width="500" border="0"> <tr> <td>Overskrift</td><td><input type="text" name="overskriftb"></td> </tr> <tr> <td>NyhedsTekst</td><td><textarea name="tekstb" rows="6" cols="20"></textarea></td> </tr> <tr> <td>Dit navn/nick</td><td><input type="text" name="navna"></td> </tr> <tr> <td>Kilde</td><td><input type="text" name="kildeb"></td> </tr> <tr> <td>Direkte </td><td><input type="text" name="linka"></td> </tr> <tr> <td>Link</td><td><input type="text" name="commentb"></td> </tr> <tr> <td>Picture</td><td><input type="text" name="pica"><br><a class="menub" title="upload" href="upload.asp" onclick="NewWindow(this.href,'link','300','400','no');return false;">Upload billede</a></td> </tr> <tr> <td>Overskrift</td><td width="300" align="left"><input type="text" name="overskrift2b"></td> </tr> </table> <input type="image" src="gfx/send.gif" value="Gem"> </form> <br><br> <%if Request.Form("overskriftb") <> "" then strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/data.mdb") Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open strConnect Function fncTextChange(strText) strTekst = Trim(strText) fncTextChange = Replace(strTekst,"""","''") fncTextChange = Replace(fncTextChange," "," ") fncTextChange = Replace(fncTextChange,">",">") fncTextChange = Replace(fncTextChange,"<","<") fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>") fncTextChange = Replace(fncTextChange,"å","å") fncTextChange = Replace(fncTextChange,"æ","æ") fncTextChange = Replace(fncTextChange,"ø","ø") fncTextChange = Replace(fncTextChange,"Å","Å") fncTextChange = Replace(fncTextChange,"Æ","Æ") fncTextChange = Replace(fncTextChange,"Ø","Ø") End Function indhold = fncTextChange(request.form("tekstb")) strSQL = "Insert into arkiv (overskrift, tekst, navn, kilde, link, comment, pic, overskrift2) values('" & Request.Form("overskriftb") & "', '" & indhold & "', '" & Request.Form("navna") & "', '" & Request.Form("kildeb") & "', '" & Request.Form("linka") & "', '" & Request.Form("commentb") & "', '" & Request.Form("pica") & "', '" & Request.Form("overskrift2b") & "')" objConn.Execute(strSQL) end if %> Den funktion jeg har sat ind nu, kann en del ting for dig...
20. april 2003 - 20:19
#9
og så sætter du lige denne linie ind i funktionen også: fncTextChange = Replace(fncTextChange,"'","''")
20. april 2003 - 20:28
#10
Takker mange gange :-)
20. april 2003 - 20:28
#11
Er det ok med pts?
20. april 2003 - 20:29
#12
fint med mig...
20. april 2003 - 20:29
#13
takker...
Kurser inden for grundlæggende programmering