/ Forside/ Teknologi / Udvikling / ASP / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
HTML-Tags til en database???
Fra : crha
Vist : 467 gange
40 point
Dato : 23-04-02 17:06

Hejsa

Jeg er nu kommet i den situation at jeg skal skrive nogle HTML-Tags til en database.
Normalt når jeg skriver f.eks. <b>hej</b> skriver den noget i regningen af &lIs;b&dff;hej&lIs;b&dff; men jeg vil bare have den til at skrive <b>. Er der nogle der kan hjælpe med det? og så lige, når kan trykke enter i det textarea der skal lægges ind i databasen, skal til tilføje <br> i databasen :D
Please help me!!

Hilsen Casper

 
 
Kommentar
Fra : Nyhedsbruger


Dato : 24-04-02 13:04

"crha" <crha.news@kandu.dk> wrote in message
news:aIex8.2126$HZ2.225544@news000.worldonline.dk...
> Hejsa
>
> Jeg er nu kommet i den situation at jeg skal skrive nogle HTML-Tags til
> en database.
> Normalt når jeg skriver f.eks. <b>hej</b> skriver den noget i
> regningen af &lIs;b&dff;hej&lIs;b&dff; men jeg vil bare have den til at
> skrive <b>. Er der nogle der kan hjælpe med det? og så lige, når kan
> trykke enter i det textarea der skal lægges ind i databasen, skal til
> tilføje <br> i databasen :D
> Please help me!!
>
nemt

vcHtml = replace(vcHtml,"&1Is;","<")
vcHtml = replace(vcHtml,"&dff;",">")
vcHtml = replace(vcHtml,vbCRLF,"<br>")

mvh
Niels Henriksen



Kommentar
Fra : crha


Dato : 24-04-02 17:07

MANGE TAK!!! men hvor skal jeg skrive disse koder?

Kommentar
Fra : crha


Dato : 08-05-02 19:20

Det forstod jeg vist ikke så meget af :(

Kommentar
Fra : crha


Dato : 10-05-02 15:16

Yes yes, det forstod jeg godt, men hvad har det med at skrive til en database at gøre?
Jeg har fået det eksempel til at virke, men ved ikke hvor i sourcen jeg skal skrive den når jeg skal sætte det ind i en database.

Mvh.
Casper

Kommentar
Fra : 2mmy


Dato : 10-05-02 15:21

I din update/insert skriver du jo:
rs("XXXXXX") = Request.Form("XXXXXX")

Der skal du så bare have XXXXXX igennem den replace string først.

Accepteret svar
Fra : Dysmorf

Modtaget 40 point
Dato : 10-05-02 16:19

jeg tror ikke jeg helt forstår hvor erfaren du er mht. asp, men...

<%
...herover er alt dit andet asp osv...

strTekstfelt = Request.Form("tekstfelt")
strTekstfelt = replace(strTekstfelt,"&1Is;","<")
strTekstfelt = replace(strTekstfelt,"&dff;",">")
strTekstfelt = replace(strTekstfelt,vbCRLF,"<br>")

rs("tekstfelt") = strTekstfelt

rs.Update
%>

Det er ligegyldigt hvor du sætter det ind, du skal bare huste at poste til filen som afvikler koden.

f.eks.

Filen : form.html

<html>
<head>
<title>Form</title>
</head>
<body>
<form action="udfoer.asp" method="post">
<textarea cols="40" rows="10" name="tekstfelt"></textarea>
<br>
<input type="submit" name="submit" value="Godkend">
</form>
</body>
</html>

Filen udfoer.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
strDNS = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("din_database.mdb")
Conn.Open = strDNS
Set rs = Server.CreateObject("ADODB.RecordSet")


strTekstfelt = Request.Form("tekstfelt")
strTekstfelt = replace(strTekstfelt,"&1Is;","<")
strTekstfelt = replace(strTekstfelt,"&dff;",">")
strTekstfelt = replace(strTekstfelt,vbCRLF,"<br>")

rs.Open "din_tabel", Conn, adOpenKeySet, adLockOptimistic, adCmdTable
rs.AddNew
rs("tekstfelt") = strTekstfelt
rs.Update

Conn.Close
Set Conn = Nothing
Set rs = Nothing

Response.Redirect("vis.asp")
%>

Filen : vis.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
strDNS = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("din_database.mdb")
Conn.Open = strDNS
Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<title>Vis DB indhold</title>
</head>
<body>
<h1>Tekstfelt fra DB'en</h1>
<%
strSQL = "SELECT * FROM din_tabel"
rs.Open strSQL, strDNS, 1

If Not (rs.BOF Or rs.EOF) Then
Response.Write rs(tekstfelt") & "<br><hr><br>" & VbCrLf
End If


Conn.Close
Set Conn = Nothing
Set rs = Nothing
%>
</body>
</html>

SLUT

Håber det var svar nok?

/Dysmorf

NB: Du skal naturligvis have en database med en tabel ("din_tabel" blev brugt i eksemplet), hvori du laver et felt ("tekstfelt" blev brugt i eksemplet)

Kommentar
Fra : crha


Dato : 10-05-02 16:36

Af en eller anden grund kan jeg ikke få det til at virke som det skal.

Hvor i denne kode skal jeg indsætte koden?



<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from Tabel"
rs.open sql, conn, 1, 3

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

rs.update
rs("teskstfelt_i_db") = Server.HTMLEncode(Request("tekstfelt"))
rs.update

End If
%>

<form method="post" action="skriv_til_db.asp">
<textarea name="tekstfelt"><%=rs("tekstfelt_i_db")%></textarea>
<input type="submit" value="Skriv">
</form>

<%
rs.close
set rs = nothing
%>

Kommentar
Fra : Dysmorf


Dato : 10-05-02 16:56

strTekstfelt = Request.Form("tekstfelt")
strTekstfelt = replace(strTekstfelt,"&1Is;","<")
strTekstfelt = replace(strTekstfelt,"&dff;",">")
strTekstfelt = replace(strTekstfelt,vbCRLF,"<br>")

rs.update
rs("teskstfelt_i_db") = strTekstfelt
rs.update

End If
%>

Således... Jeg ved ikke hvad du bruger HTMLEncode til, eller hvorfor du har to rs.update...? men hvis det virker, såe...

/Dysmorf

Kommentar
Fra : crha


Dato : 10-05-02 17:02

ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :D

Af en eller anden DUM grund virker det ikke!

Jeg fatter det ikke

Kommentar
Fra : Dysmorf


Dato : 10-05-02 17:05

hvad er problemet helt eksakt?

Jeg får jo ikke meget ud af at du seiger det ikke virker... skriver den det ikke korrekt til databasen, eller får du fejl?

Kommentar
Fra : crha


Dato : 10-05-02 18:11

den gør det at hvis jeg f.eks. skriver:

<b>TEST</b>

I tekstfeltet, så skriver den:

&lt;b&gt;TEST&lt;/b&gt;

I databasen...


Kommentar
Fra : Dysmorf


Dato : 10-05-02 18:17

Du skal fjerne Server.HTMLEncode! Det er den der forårsager problemet... Du skal jo altså gøre som jeg skriver!

Erstat:

rs.update
rs("teskstfelt_i_db") = Server.HTMLEncode(Request("tekstfelt"))
rs.update

Med:

rs.update
rs("teskstfelt_i_db") = strTekstfelt
rs.update

Er du med?

Husk nu også at have alt det andet med, ok...

/Dysmorf

Kommentar
Fra : crha


Dato : 10-05-02 20:30

JUBIIIIIIIIIIIIIIII, halvdelen af det virkede :D

< og > kan den godt skrive, men den laver ikke linieskift hvis jeg trykker ENTER...

Og hvordan kan det være at 'Server.HTMLEncode' ødelagde det?

Kommentar
Fra : 2mmy


Dato : 10-05-02 20:49

Dette er hvad du skal gøre når du udtrækker resultatet og poster det på siden:
http://www.kandu.dk/dk/tip/26

Kommentar
Fra : crha


Dato : 10-05-02 21:36

Har prøvet... Men ellers tak :D

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177514
Tips : 31968
Nyheder : 719565
Indlæg : 6408621
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste