Notifikationer

Markér alle som læst Log ud

steen_hansen Forsker

19. juni 2002 - 15:28 Der er 39 kommentarer og
1 løsning

Synes godt om

steen_hansen Forsker

19. juni 2002 - 15:29 #1

<html>

<head>
<title></title>
</head>

<body>

</body>

</html>

<%
Response.Write "Test"
%>

www.MinSide.dk
www.DinSide.dk
min@email.dk
din@email.dk

Synes godt om

soes Nybegynder

19. juni 2002 - 15:31 #2

okay, to spm. hvad med at lukke dette... der er et forslag i det andet :o)

Synes godt om

steen_hansen Forsker

19. juni 2002 - 15:37 #3

Både og. I det første spørgsmål galdt det om at kunne få vist den kode, som brugeren poster. Det, at gøre links/e-mailadresser aktive, var et tillægsspørgsmål. Det forslag, der er kommet, virker (så vidt jeg kan se) ikke efter hensigten, medmindre man får brugeren til at indtaste sin e-mailadresse i et input-felt?

Synes godt om

soes Nybegynder

19. juni 2002 - 15:40 #4

hvad er det præcist du er ude efter? er det server.htmlencode funktionen du mangler. den oversætter html koden så den ikke bliver vist på skærmen. F.eks. bliver > skrevet som > i koden.

/Søren Søndergård

Synes godt om

steen_hansen Forsker

19. juni 2002 - 15:42 #5

Nej, jeg har fået lavet det sådan, at brugeren kan indtaste kode. Ekspempel:

<html>

<head>
<title></title>
</head>

<body>

</body>

</html>

<%
Response.Write "Test"
%>

Jeg vil gerne have, at man også skal kunne indtaste links/e-mail adresser, som bliver aktive:

www.MinSide.dk
www.DinSide.dk
min@email.dk
din@email.dk

Men det er lidt svært at forene, eftersom al kode bliver udskrevet som ren tekst. Eller er det?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 15:45 #6

Ligesom du kan her :o)

Synes godt om

soes Nybegynder

19. juni 2002 - 15:47 #7

Den kode som er i spm. http://www.eksperten.dk/spm/226419 går ind og læser igennem om der er noget med http / www / noget@noget.ie og oversætter det så til et link, det piller ikke ved andet.

Synes godt om

steen_hansen Forsker

19. juni 2002 - 15:49 #8

Hvordan f.... er det spørgsmål opstået? Jeg har kun oprettet dette? Anyway, jeg kan ikke bruge PHP, kun ASP.

Synes godt om

steen_hansen Forsker

19. juni 2002 - 15:54 #9

Kan du lave det i ASP, soes?

Synes godt om

kimiwan Nybegynder

19. juni 2002 - 15:59 #10

Hm.. det ligner nu meget godt asp i mine øjne - hvad får dig til at tro, svaret på http://www.eksperten.dk/spm/226419 er php??

Synes godt om

soes Nybegynder

19. juni 2002 - 16:01 #11

det fungere fint på de sider jeg har skullet bruge det på. og som kimiwan siger, det er asp

/Søren Søndergård

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:03 #12

objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
str = objRegExp.Replace(str, "<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$1$2$3$4</a>"), for eksempel. Er det ikke PHP?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:03 #13

Ok, jeg prøver...

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:10 #14

Denne function FormatText(str), skal den sættes ind nederst, under </html>? Og skal det trækkes ud på denne måde:

Response.Write "<tr><td><span class=""tekst11""><p align=""justify"">" & FormatText(RS("kommentar")) & "</span></td></tr>"

Synes godt om

soes Nybegynder

19. juni 2002 - 16:14 #15

jep det skulle virke

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:15 #16

Hm, jeg får denne fejl:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'objRegExp.Replace'

/members/debat/debatemne.asp, line 181

Finder lige linie 181...

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:17 #17

Linie 181: str = objRegExp.Replace(str, "<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$1$2$3$4</a>")

Synes godt om

soes Nybegynder

19. juni 2002 - 16:24 #18

hmmm, det fungere fint på min side. hvis du har lidt kode skal jeg gerne hjælpe

/Søren Søndergård

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:25 #19

Vil du have det hele?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:26 #20

Response.Write "<table border=""0"" cellpadding=""4"" cellspacing=""0"" width=""100%""><tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><b><br><br>" & "Besvaret af: " & "</b>" & RS("nick") & " den " & "<nobr>" & tidspunkt & "</nobr>" & "</b></span></td></tr>"
Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
kommentar = RS("kommentar")&""
kommentar = server.HtmlEncode(kommentar)
kommentar = replace(kommentar,vbcrLF,"<br>")
Response.Write "<tr><td><span class=""tekst11""><p align=""justify"">" & FormatText(RS("kommentar")) & "</span></td></tr>"
Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
Response.Write "</table>"

Synes godt om

steen_hansen Forsker

19. juni 2002 - 16:56 #21

Er det svært? :o/

Synes godt om

soes Nybegynder

19. juni 2002 - 16:59 #22

er lige kommet hjem efter et lille smut, ser på det nu :o)

/Søren Søndergård

Synes godt om

soes Nybegynder

19. juni 2002 - 17:02 #23

jeg ved ikke om dette hjælper:

Response.Write "<table border=""0"" cellpadding=""4"" cellspacing=""0"" width=""100%""><tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><b><br><br>" & "Besvaret af: " & "</b>" & RS("nick") & " den " & "<nobr>" & tidspunkt & "</nobr>" & "</b></span></td></tr>"

Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
kommentar = RS("kommentar")&""
kommentar = server.HtmlEncode(kommentar)
kommentar = replace(kommentar,vbcrLF,"<br>")
kommentar = FormatText(Kommentar)
Response.Write "<tr><td><span class=""tekst11""><p align=""justify"">" & kommentar & "</span></td></tr>"
Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
Response.Write "</table>"

/Søren Søndergård

Synes godt om

soes Nybegynder

19. juni 2002 - 17:03 #24

du har vel sat den kode ind fra det andet spm. øverst i det pågældende dokument?

/Søren Søndergård

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:08 #25

DET VIRKER! :o) Jeg vil foreslå, at admin omdøber "Eksperten" til "Geniet" :o)

Der er dog gået koks i tabellen. Hvor, ud over den ekstra linie kommentar = FormatText(Kommentar), er der ændret?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:09 #26

Det har jeg, men der er koks i tabellen?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:10 #27

Øjeblik, tror jeg har den...

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:16 #28

Jeg fandt fejlen. MEN ... hvis der er mere end et link i, så går der koks i det. Jeg prøvede at indtaste:

www.minside.dk
min@email.dk

og der kom dette ud af det:

min@email.dk">href="http://www.minside.dk
min@email.dk" target='_blank'>www.minside.dk
min@email.dk

Synes godt om

soes Nybegynder

19. juni 2002 - 17:17 #29

her: ""><p align=""justify"">" & kommentar & "</span></td>

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:24 #30

Hm, er den ikke lig med denne her:

Response.Write "<tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><p align=""justify"">" & kommentar & "</span></td></tr>"

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:25 #31

Det går fint hver for sig, men det går galt, hvis jeg poster begge?

Synes godt om

soes Nybegynder

19. juni 2002 - 17:29 #32

hmmm, jeg er ikke helt med. jeg ved ikke om du har noget imod det, men du må gerne sende mig de filer du bruger os så ligger jeg løsningen her på siden bagefter. Min mail er: Soes@mail.dk

/Søren Søndergård

Synes godt om

steen_hansen Forsker

19. juni 2002 - 17:36 #33

Der er sendt en mail til dig :o)

Synes godt om

steen_hansen Forsker

19. juni 2002 - 20:27 #34

<%
function FormatText(str)
' Konverter HTML-tags
str = Server.HTMLEncode(str)

' Lav Reqular Expression object
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True

' Lav HTML-links
objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
str = objRegExp.Replace(str, "<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$1$2$3$4</a>")

' Lav HTML-mailto
objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
str = objRegExp.Replace(str, "<a href="&chr(34)&"mailto:$1"&chr(34)&">$1</a>")
Set objRegExp = Nothing

' Lav enkelt linieskift
str = Replace(str, vbcrlf, "<br>")

FormatText = str
end function
%>

<%
Response.Write FormatText(Rs("kommentar"))
%>

Det virker sq! Tak for hjælpen :o) Lægger du et svar, Søren?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 20:45 #35

Hvis jeg kopierer indholdet fra et ASP-dokument over, så får jeg ikke tabulatorerne med. Kan det lade sig gøre?

Synes godt om

steen_hansen Forsker

19. juni 2002 - 20:50 #36

http://tjaereborg.fdf.net

Synes godt om

soes Nybegynder

19. juni 2002 - 20:50 #37

det gør ingen forskel, det er udelukkende for overblikket skyld at man gør det. Det bliver en del nemmere at læse koden hvis der er en smule system over det. Hvor tænker du på, ind på eksperten eller over til f.eks. notepad?

/Søren Søndergård

Synes godt om

steen_hansen Forsker

19. juni 2002 - 20:51 #38

tjaereborg.fdf.net

Synes godt om

steen_hansen Forsker

19. juni 2002 - 20:52 #39

Hvis jeg tager indholdet fra en ASP-side, som indeholder tabulatorer for overblikkets skyld, så kommer de ikke med i indlægget.

Synes godt om

steen_hansen Forsker

19. juni 2002 - 20:59 #40

Jeg tænker på debatemne.asp

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS