Avatar billede balduren Nybegynder
19. oktober 2004 - 21:33 Der er 9 kommentarer og
1 løsning

automatisk <br>

Jeg ved ikke helt hvordan jeg skal formuler mig.
Men jeg vil godt ha så når jeg trykker "Enter" i en tekst boks i mit script den automatisk bruger <br> så jeg ikke selv skal skrive det i teksten

Håber i forstår havd jeg mener
Avatar billede thesurfer Nybegynder
19. oktober 2004 - 21:48 #1
Når du submitter formen, skal du bare erstatte værdien..

Eksempel:
<form action="side2.asp" method="post">
<textarea name="teksten"></textarea>
<input type="submit" value="send">
</form>

På ASP siden:
<%
if request.servervariables("request_method") = "POST" then
  response.write replace(request.form("teksten"), vbCrLf, "<br>")
else
  response.write "du har ikke skrevet noget"
end if
%>
Avatar billede eagleeye Praktikant
19. oktober 2004 - 21:48 #2
Hvis det er et textarea kan du replace "enter" efter teksten er skrevet med <br>. Enter er lig vbCrLf så man kan

str = replace(resuest.form("textarea"),vbCrLf,"<br>")
Avatar billede balduren Nybegynder
19. oktober 2004 - 22:02 #3
kode er sikkert rodet men se lige her:
det er hvad man skriver i textarea "beskrivelse" som det skal bruges i

:)

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

str = replace(request.form("textarea"),vbCrLf,"<br>")

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/dbs/db.mdb") & ";UID=admin;PWD=;"


If Request.Form("Gem") <> "" Then
    strurl = Trim(Request.Form("url"))
    strnavn = Trim(Request.Form("navn"))
    strbeskrivelse = Trim(Request.Form("beskrivelse"))
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT  * FROM downloads WHERE (ID = 0)"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs("url") = strurl
        rs("navn") = strNavn
        rs("beskrivelse") = strbeskrivelse
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
End If
%>




  <div align="left"><table width="488" border="0" cellspacing="0" cellpadding="3">
    <tr>
      <td width="488"><font face="Arial" size="5" color="Black"><i><B>Add Download</i></B></font></td>
    </tr>
    <tr align="center">
      <td width="100%">

<form method="POST" action="add_download.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
       
        <tr>
          <td valign="middle" align="left"><div align="right"><p><B><font face="arial" size="2">Http://</font></B></td>
          <td valign="middle" align="left"><input type="text" name="url" size="40"></td>
        </tr>
        <tr>
          <td valign="middle" align="left"><div align="right"><p><B><font face="arial" size="2">Navn</font></B></td>
          <td valign="middle" align="left"><input type="text" name="navn" size="40"></td>
        </tr>
        <tr>
          <td valign="top" align="left"><div align="right"><p><B><font face="arial" size="2">Beskrivelse</font></B></td>
          <td valign="middle" align="left"><textarea rows="5" name="beskrivelse" cols="40"></textarea></td>
        </tr>
        <tr>
          <td valign="middle" align="left" colspan="2"><br>
          <input type="submit" value="Gem" name="Gem"> <input type="button" value="Annuller" name="Annuller" onClick="java script:history.back();"></td>
        </tr>
      </table>
</form>
</tr>
  </table>
  </div>
Avatar billede eagleeye Praktikant
19. oktober 2004 - 22:05 #4
Det er i denne linje det skal ind:

        rs("beskrivelse") = strbeskrivelse

Sådan her:

        rs("beskrivelse") = replace(strbeskrivelse,vbCrLf,"<br>")
Avatar billede thesurfer Nybegynder
19. oktober 2004 - 22:05 #5
Du skal skrive "beskrivelse" i stedet for "textarea":

str = replace(request.form("textarea"),vbCrLf,"<br>")
Avatar billede thesurfer Nybegynder
19. oktober 2004 - 22:07 #6
Ahh.. ja.. men der er stadig fejl i den linie, jeg henviste til..
Feltet med navnet "textarea" findes ikke..
Avatar billede thesurfer Nybegynder
19. oktober 2004 - 22:08 #7
eagleeye> Er det ikke en dårlig ide, at bruge et eksempel med navnet "textarea"?
- han har bare kopieret din linie, og indsat den i koden..
Avatar billede eagleeye Praktikant
19. oktober 2004 - 22:10 #8
Jo du hare ret, det så jeg ikke :)

du bør fjerne denne linje:

str = replace(request.form("textarea"),vbCrLf,"<br>")
Avatar billede balduren Nybegynder
19. oktober 2004 - 22:11 #9
Jeg takker mange gange eagleeye.

Hvordan giver jeg så point?
Avatar billede eagleeye Praktikant
19. oktober 2004 - 22:14 #10
Så skal det laves et svar.

Så kan du markere den/dem som skal havde point i listen over folk der har lagt et svar og trykke på accepter.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester