Søg
Avatar billede peterkopi Nybegynder
11. juli 2006 - 01:17 Der er 11 kommentarer og
1 løsning

Problem med at udskrive URL'er i ASP tagwall

Hej eksperter

Jeg har en tagwall på www.peterogdeandrekopier.dk (->"kontakt" --> "Gæstebog", hvor den godt nok udskriver de indtastede URL'er; men den anvendte FUNCTION LINKTEKST laver fx ikke target=_blank og placerer begyndelsen og slutningen af <A HREF> nogle besynderlige steder.

Nogle der kan hjælpe mig med at få den til at fungere?

Her er funktionen:

FUNCTION LINKTEKST(TEKST)
    LINKTEKST = ""
    A_START = 1

    IF INSTR(TEKST, "www") THEN
    DO UNTIL A_START >= len(Tekst)
    LinkChr = InStr(A_Start, Tekst, "www")
    NextSpace = InStr(LinkChr, Tekst, "" & "<BR>")
    NextSpace = InStr(LinkChr, Tekst,"<BR>")
    NextSpace = InStr("" & LinkChr, vbCrLf,"<BR>")

    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

        URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

' Dette er tjaz originale
        LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
    LinkTekst = LinkTekst & "<A HREF=http://""" & URL & """>< TARGET=""_BLANK"">" & URL & "</A>"

      if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
      LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
    else
    A_Start = NextSpace
    end if
    loop
    else
    LinkTekst = Tekst
    end if
    End Function

Den absolutte adress til selve tagwall'en/gæstebogen er:
http://www.peterogdeandrekopier.dk/gaestebog/tagwall.asp
Avatar billede fennec Nybegynder
11. juli 2006 - 08:58 #1
Smid det igennem denne funktion i stedet. Den omdanner alle links og emails til <a> tags:

Function LinkString(strInput)
dim arrPattern, arrReplaceString, Rx, intIndex
  arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
  "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
  "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

  arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
  " <a href='$1$2' target='_blank'>$1$2</a> ", _
  " <a href='http://$2' target='_blank'>$2</a> ")

  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True

  For intIndex = 0 To UBound(arrPattern)
    Rx.Pattern = arrPattern(intIndex)
    strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
  Next
  Set Rx = Nothing

  LinkString = strInput
End Function
Avatar billede peterkopi Nybegynder
11. juli 2006 - 14:00 #2
Hej Fennec :-)

Med din function UDELADES indlæggene i gæstebogen! Jeg lader lige fejlen står et øjeblik på http://www.peterogdeandrekopier.dk/gaestebog/tagwall_edit.asp

...på http://www.peterogdeandrekopier.dk/gaestebog/tagwall.asp kan du stadig se den aktive gæstebog!

Der skal åbenbart lidt mere til. Skal jeg smide HELE scriptet her ind, så du kan se det..?
Avatar billede fennec Nybegynder
12. juli 2006 - 08:45 #3
Det virker fint for mig:
test = "Dette er en tekst med et link til www.google.dk. Og på en anden måde http://www.google.dk"
Response.write LinkString(test)

Det er nok noget med din kode, så den skal du nok lige have smidt herind :o)
Avatar billede peterkopi Nybegynder
14. juli 2006 - 15:18 #4
hej fennec - undskyld, at jeg har ladt vente på mig. Men virkeligheden kaldte :-)

Her er de 321 linjer (!) til vores tagwall:

    RESPONSE.EXPIRES = 0
    RESPONSE.BUFFER = TRUE
    SIDE = REQUEST.QUERYSTRING("side")
   
    FUNCTION DATO(DATE)
    DATO = DAY(DATE) & "/" & MONTH(DATE) & "-" & YEAR(DATE)
    END FUNCTION
   
    FUNCTION LINKTEKST(TEKST)
    LINKTEKST = ""
    A_START = 1

    IF INSTR(TEKST, "www") THEN
    DO UNTIL A_START >= len(Tekst)
    LinkChr = InStr(A_Start, Tekst, "www")
    NextSpace = InStr(LinkChr, Tekst, "" & "<BR>")
    NextSpace = InStr(LinkChr, Tekst,"<BR>")
    NextSpace = InStr("" & LinkChr, vbCrLf,"<BR>")

    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

        URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

' Dette er tjaz originale
        LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
    LinkTekst = LinkTekst & "<A HREF=http://""" & URL & """>< TARGET=""_BLANK"">" & URL & "</A>"

      if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
      LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
    else
    A_Start = NextSpace
    end if
    loop
    else
    LinkTekst = Tekst
    end if
    End Function

    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Data Source=d:\home\peterogdeandredk\db\tagwall.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
%>
<HTML>
<HEAD>
<TITLE>Tagwall v0.3</TITLE>
<LINK REL="stylesheet" TYPE="text/css" HREF="../defaultpage.css">
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<SCRIPT LANGUAGE="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) {
popupWin = window.open(url, 'popup', 'scrollbars,height=' + h + ',width=' + w + ',top=50,left=25')
}
// -->
</SCRIPT>
<SCRIPT LANGUAGE=\"JavaScript\">

  function NytVindue(URL)
  {
    window.refresh;
    return window.open(URL,null,
    "height=100%,width=100%,status=yes,toolbar=yes,menubar=yes,location=no,scrollbars=yes");
  }
  </SCRIPT>
</HEAD>

<BODY BGCOLOR="#000000" LINK="ffffff" ALINK="999999" VLINK="ffffff" TOPMARGIN="20" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0" ONLOAD="self.focus();">

<BR>
<DIV ALIGN="center"> <FONT FACE="Tahoma" COLOR=#ffffff><H1><B><I>Peter & De Andre Kopiers Gæstebog</H1>
  </I></B></FONT><BR><FONT FACE="Tahoma" COLOR=#ffffff SIZE="-2"><B>Bemærk!</B> Peter & De Andre Kopier læser så vidt muligt alle indlæg men svarer ikke på spørgsmål her, men klik -->&nbsp;<A HREF="../kontakt/personlig_e-mailadr.html">her.</A><BR>Vi forbeholder os ret til uden videre at fjerne indlæg.</FONT><BR>

  <%
IF SIDE = "" THEN
        SET INSTILLINGER = CONN.EXECUTE("SELECT * FROM instillinger")
    SET RS = CONN.EXECUTE("SELECT * FROM tags ORDER BY dato DESC")
    IF RS.EOF OR RS.BOF THEN

    RESPONSE.WRITE("<p><FONT FACE='Tahoma' SIZE='2'>Der er ingen beskeder i tagwall'en :´-(</FONT></P><P><A HREF='?side=skriv_tag'><FONT FACE='Tahoma' SIZE='1' COLOR='#ffffff'>Skriv indlæg i Gæstebogen</FONT></A></P>")
    else
    response.write ("<P><A HREF='?side=skriv_tag'><FONT FACE='Tahoma' SIZE='2' COLOR='#ffffff'>Skriv indlæg i Gæstebogen</FONT></A></P>")
    do until rs.eof
%>
  <TABLE WIDTH="480" BORDER="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" HEIGHT="18" BGCOLOR="#333333">
<!-- Tabelbredde ændret fra 500 til br. i linje 95 til nyt layout
        br i datofeltet ændret fra 122 til 130 -->
    <TR>
      <TD HEIGHT="1%">
        <TABLE WIDTH="480" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="15">
          <TR>
            <TD WIDTH="5" HEIGHT="8"> <FONT FACE="Tahoma" SIZE="1"></FONT></TD>
            <TD WIDTH="369" HEIGHT="8"><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF"><B><%=rs("emne")%></B></FONT></TD>
            <TD WIDTH="130" HEIGHT="8"><B><FONT SIZE="1" FACE="Tahoma" COLOR="#FFFFFF">Skrevet
              d. <%=Dato(rs("dato"))%></FONT></B></TD>
          </TR>
        </TABLE>
      </TD>
    </TR>
    <TR>
      <TD BGCOLOR="#<% if rs("BOKSCOLOR") <> "" then response.write rs("bokscolor") else response.write ("666666") end if %>">
        <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="58">
          <TR>
            <TD HEIGHT="5" COLSPAN="2"></TD>
          </TR>
          <TR>
            <TD WIDTH="5">&nbsp;</TD>
            <TD WIDTH="481"><FONT FACE="Tahoma" SIZE="1" COLOR="#<% if rs("TEKSTCOLOR") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>">
<%
BESKED = RS("besked")
BESKED = REPLACE("" & BESKED, VBCRLF, "<br>")
besked = replace(besked, "Www", "www")
besked = replace(besked, "wWw", "www")
besked = replace(besked, "wwW", "www")
besked = replace(besked, "WWW", "www")
if instillinger("html") = True then
besked = replace(besked, "&lt;b&gt;", "<B>")
besked = replace(besked, "&lt;/b&gt;", "</B>")
besked = replace(besked, "&lt;i&gt;", "<I>")
besked = replace(besked, "&lt;/i&gt;", "</I>")
besked = replace(besked, "&lt;u&gt;", "<U>")
besked = replace(besked, "&lt;/u&gt;", "</U>")
besked = replace(besked, "&lt;p&gt;", "<P>")
besked = replace(besked, "&lt;/p&gt;", "</P>")
besked = replace(besked, "&lt;center&gt;", "<CENTER>")
besked = replace(besked, "&lt;/center&gt;", "</CENTER>")
besked = replace(besked, "&lt;br&gt;", "<BR>")
end if
if instillinger("smileys") = True then
besked = replace(besked, "[!]", "images/!.gif")
besked = replace(besked, ":-o", "<IMG SRC='images/argh.gif'>")
besked = replace(besked, "8-)", "<IMG SRC='images/badass.gif'>")
besked = replace(besked, ";-)", "<IMG SRC='images/blink.gif'>")
besked = replace(besked, "[brev]", "<IMG SRC='images/brev.gif'>")
besked = replace(besked, "[danger]", "<IMG SRC='images/danger.gif'>")
besked = replace(besked, "3-(", "<IMG SRC='images/devil.gif'>")
besked = replace(besked, "[disk]", "<IMG SRC='images/disk.gif'>")
besked = replace(besked, "[tv]", "<IMG SRC='images/fjernsyn.gif'>")
besked = replace(besked, ":-z", "<IMG SRC='images/flov.gif'>")
besked = replace(besked, "3-)", "<IMG SRC='images/happysun.gif'>")
besked = replace(besked, "?:-o", "<IMG SRC='images/huh.gif'>")
besked = replace(besked, ":-0", "<IMG SRC='images/ingenraab.gif'>")
besked = replace(besked, ":-|", "<IMG SRC='images/ligeglad.gif'>")
besked = replace(besked, "[linux]", "<IMG SRC='images/linux.gif'>")
besked = replace(besked, "?:-|", "<IMG SRC='images/mistaenksom.gif'>")
besked = replace(besked, "[cd]", "<IMG SRC='images/musik.gif'>")
besked = replace(besked, "[ned]", "<IMG SRC='images/ned.gif'>")
besked = replace(besked, "[next]", "<IMG SRC='images/next.gif'>")
besked = replace(besked, "[op]", "<IMG SRC='images/op.gif'>")
besked = replace(besked, "[pc]", "<IMG SRC='images/pc.gif'>")
besked = replace(besked, "*gf*", "<IMG SRC='images/self.gif'>")
besked = replace(besked, "*sf*", "<IMG SRC='images/sf.gif'>")
besked = replace(besked, ":-)", "<IMG SRC='images/smil.gif'>")
besked = replace(besked, "[spm]", "<IMG SRC='images/spm.gif'>")
besked = replace(besked, "[stop]", "<IMG SRC='images/stop.gif'>")
besked = replace(besked, ":-(", "<IMG SRC='images/sur.gif'>")
besked = replace(besked, "[tom]", "<IMG SRC='images/tom.gif'>")
besked = replace(besked, ";´-(", "<IMG SRC='images/trist.gif'>")
besked = replace(besked, ":-p", "<IMG SRC='images/tunge.gif'>")
end if
response.write LinkTekst(besked)
%>
              </FONT></TD>
          </TR>
          <TR>
            <TD HEIGHT="5" COLSPAN="2"></TD>
          </TR>
          <TR>
            <TD HEIGHT="2" COLSPAN="2">
              <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20">
                <TR>
                  <TD WIDTH="5"><FONT FACE="Tahoma" SIZE="1"><B></B></FONT></TD>
                  <TD WIDTH="65" ALIGN="left" VALIGN="middle"><FONT FACE='Tahoma' SIZE='1' COLOR='#<% IF RS("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>'><B>Skrevet
                    af:</B></FONT></TD>
                  <TD WIDTH="421" ALIGN="left" VALIGN="middle"><% IF RS("email") = "" THEN %><FONT FACE='Tahoma' SIZE='1' COLOR='#<% IF RS("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>'><%=rs("forfatter")%></FONT><% ELSE %><A HREF='mailto:<%=rs("email")%>'><FONT FACE='Tahoma' SIZE='1' COLOR='#<% IF RS("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>'><%=rs("forfatter")%></FONT></A><% END IF %></TD>
                </TR>
              </TABLE>
            </TD>
          </TR>
        </TABLE>
      </TD>
    </TR>
  </TABLE>
  <P>
<%
RS.MOVENEXT
LOOP
END IF
%>

<%
END IF
%>
<%
IF SIDE = "skriv_tag" THEN
SET INSTILLINGER = CONN.EXECUTE("SELECT * FROM instillinger")
%>
<P>
  <TABLE WIDTH="500" BORDER="0" CELLSPACING="0" CELLPADDING="0">
    <FORM ACTION="tagwall.asp?side=opret_tag" method="post">
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"> </TD>
        <TD WIDTH="111" BGCOLOR="#333333"><B><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">Emne:</FONT></B></TD>
        <TD WIDTH="10" BGCOLOR="#666666" HEIGHT="30">&nbsp; </TD>
        <TD BGCOLOR="#666666" HEIGHT="35" COLSPAN="2">
          <INPUT TYPE="text" NAME="emne" SIZE="40" MAXLENGTH="60" TABINDEX="1">
        </TD>
      </TR>
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"><B></B></TD>
        <TD WIDTH="111" BGCOLOR="#333333">
          <P><FONT FACE="Tahoma" SIZE="1"><B><FONT COLOR="#FFFFFF">Besked:<BR>
            </FONT></B><FONT COLOR="#FFFFFF">Du kan bruge smileys<BR>
            i din besked, tjek hvilke ved at <A HREF="java script:PopWin('smileys.htm',400,400);">klikke
            her!<BR>
            </A></FONT></FONT><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">Status</FONT><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">:
            <% IF INSTILLINGER("smileys") = TRUE THEN RESPONSE.WRITE("<font color='#009900'>Aktiv</FONT>") else response.write("<FONT COLOR='#FF0000'>Deaktiveret</FONT>") %>
            <BR>
            <BR>
            Du kan ogs&aring; bruge<BR>
            HTML tag, <A HREF="java script:PopWin('htmltags.htm',400,400);">tjek
            hvilke!<BR>
            </A>Status:
            <% IF INSTILLINGER("html") = TRUE THEN RESPONSE.WRITE("<font color='#009900'>Aktiv</FONT>") else response.write("<FONT COLOR='#FF0000'>Deaktiveret</FONT>") %>
            </FONT></P>
          </TD>
        <TD WIDTH="10" BGCOLOR="#666666">&nbsp; </TD>
        <TD BGCOLOR="#666666" COLSPAN="2">
          <TEXTAREA NAME="besked" ROWS="8" COLS="45" TABINDEX="2"></TEXTAREA>
        </TD>
      </TR>
      <% IF INSTILLINGER("tekstcolor") = TRUE THEN %>
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"><B></B></TD>
        <TD WIDTH="111" BGCOLOR="#333333"><B><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">Tekst
          farve:</FONT></B></TD>
        <TD WIDTH="10" BGCOLOR="#666666">&nbsp; </TD>
        <TD WIDTH="97" BGCOLOR="#666666" HEIGHT="30">
          <INPUT TYPE="text" NAME="tekstcolor" SIZE="10" MAXLENGTH="6" TABINDEX="3">
        </TD>
        <TD WIDTH="286" BGCOLOR="#666666" HEIGHT="30"><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF"><A HREF="java script:PopWin('farvekoder.htm',400,400);">Farvekoder</A></FONT></TD>
      </TR>
      <% END IF %>
      <% IF INSTILLINGER("bokscolor") = TRUE THEN %>
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"><B></B></TD>
        <TD WIDTH="111" BGCOLOR="#333333"><B><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">Baggrund:</FONT></B></TD>
        <TD WIDTH="10" BGCOLOR="#666666">&nbsp; </TD>
        <TD WIDTH="97" BGCOLOR="#666666" HEIGHT="30">
          <INPUT TYPE="text" NAME="bokscolor" SIZE="10" MAXLENGTH="6" TABINDEX="4">
        </TD>
        <TD WIDTH="286" BGCOLOR="#666666" HEIGHT="30"><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF"><A HREF="java script:PopWin('farvekoder.htm',400,400);">Farvekoder</A></FONT></TD>
      </TR>
      <% END IF %>
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"><B></B></TD>
        <TD WIDTH="111" BGCOLOR="#333333"><B><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">Forfatter:</FONT></B></TD>
        <TD WIDTH="10" BGCOLOR="#666666">&nbsp; </TD>
        <TD BGCOLOR="#666666" HEIGHT="30" COLSPAN="2">
          <INPUT TYPE="text" NAME="forfatter" SIZE="40" MAXLENGTH="40" TABINDEX="5">
        </TD>
      </TR>
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"><B></B></TD>
        <TD WIDTH="111" BGCOLOR="#333333"><B><FONT FACE="Tahoma" SIZE="1" COLOR="#FFFFFF">E-mail:</FONT></B></TD>
        <TD WIDTH="10" BGCOLOR="#666666">&nbsp; </TD>
        <TD BGCOLOR="#666666" HEIGHT="30" COLSPAN="2">
          <INPUT TYPE="text" NAME="email" SIZE="40" MAXLENGTH="40"  TABINDEX="6">
        </TD>
      </TR>
      <TR>
        <TD WIDTH="6" BGCOLOR="#333333"><B><FONT COLOR="#FFFFFF" FACE="Tahoma" SIZE="1"></FONT></B></TD>
        <TD WIDTH="111" BGCOLOR="#333333">&nbsp;</TD>
        <TD WIDTH="10" BGCOLOR="#666666">&nbsp; </TD>
        <TD BGCOLOR="#666666" HEIGHT="30" COLSPAN="2">
          <INPUT TYPE="submit" NAME="Submit" VALUE="Opret Tag!" TABINDEX="7">
        </TD>
      </TR>
    </FORM>
  </TABLE>
<P>
<A HREF="?"><FONT FACE="Tahoma" SIZE="1" COLOR="#000000">Tilbage</FONT></A>
</P>
  <%
END IF
%>
  <%
IF SIDE = "opret_tag" THEN
IF (SERVER.HTMLENCODE(REQUEST("emne")) = "" OR SERVER.HTMLENCODE(REQUEST("besked")) = "" OR SERVER.HTMLENCODE(REQUEST("forfatter")) = "") THEN
RESPONSE.WRITE ("<p><FONT FACE='Tahoma' SIZE='2'>Hvad med at skrive noget?</FONT><BR><FONT FACE='Tahoma' SIZE='1' COLOR='#ffffff'><A HREF='java script:history.back(-1)'>Emne, Besked og Forfatter <U>SKAL</U> udfyldes! Klik her for at gå tilbage...</A><P><FONT FACE='Tahoma' SIZE='1' COLOR='#000000'>Skriv tag</FONT></A></P>")
else
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM tags"
    rs.Open strSQL, Conn, 1, 3
                                       
        rs.AddNew
        rs("emne") = Server.HTMLEncode(Request("emne"))
        rs("besked") = Server.HTMLEncode(Request("besked"))
        rs("tekstcolor") = Server.HTMLEncode(Request("tekstcolor"))
        rs("bokscolor") = Server.HTMLEncode(Request("bokscolor"))
        rs("forfatter") = Server.HTMLEncode(Request("forfatter"))
        rs("email") = Server.HTMLEncode(Request("email"))
        rs("dato") = date()
        rs.Update

            response.write("<P><FONT FACE='Tahoma' SIZE='2'>Tak for dit indlæg ;-p</FONT></P><A HREF='?'><FONT FACE='Tahoma' SIZE='1' COLOR='#FFFFFF'>Gå tilbage til Gæstebogen</FONT></A>")
end if
end if
%>
</DIV>
</BODY>
</HTML>
Avatar billede fennec Nybegynder
17. juli 2006 - 09:18 #5
Hvis du ændre:
FUNCTION LINKTEKST(TEKST)
    LINKTEKST = ""
    A_START = 1

    IF INSTR(TEKST, "www") THEN
    DO UNTIL A_START >= len(Tekst)
    LinkChr = InStr(A_Start, Tekst, "www")
    NextSpace = InStr(LinkChr, Tekst, "" & "<BR>")
    NextSpace = InStr(LinkChr, Tekst,"<BR>")
    NextSpace = InStr("" & LinkChr, vbCrLf,"<BR>")

    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

        URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

' Dette er tjaz originale
        LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
    LinkTekst = LinkTekst & "<A HREF=http://""" & URL & """>< TARGET=""_BLANK"">" & URL & "</A>"

      if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
      LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
    else
    A_Start = NextSpace
    end if
    loop
    else
    LinkTekst = Tekst
    end if
End Function

til:
Function LinkTekst(strInput)
dim arrPattern, arrReplaceString, Rx, intIndex
  arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
  "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
  "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")
  arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
  " <a href='$1$2' target='_blank'>$1$2</a> ", _
  " <a href='http://$2' target='_blank'>$2</a> ")
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  For intIndex = 0 To UBound(arrPattern)
    Rx.Pattern = arrPattern(intIndex)
    strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
  Next
  Set Rx = Nothing
  LinkTekst = strInput
End Function

Så burde det virke.
Avatar billede peterkopi Nybegynder
26. juli 2006 - 03:28 #6
Tak fennec og undskyld min langsommelige reaktion.. -må være varmen ;-)

- men det er stadig den samme fejl, hvor indlæggene i gæstebogen UDELADES! Se selv her: http://www.peterogdeandrekopier.dk/gaestebog/tagwall_edit.asp
Avatar billede peterkopi Nybegynder
26. juli 2006 - 03:29 #7
Jeg burde også få lavet noget paging... Ved du hvordan jeg kan lave det i vores gæstebog? (Nyt spm måske..?!?!?)
Avatar billede fennec Nybegynder
26. juli 2006 - 09:22 #8
Har du et eks på en tekst, der kunne stå??

Du kan finde et paging script her:
http://activedeveloper.dk/artikler/default.asp?articleid=31
Avatar billede peterkopi Nybegynder
26. juli 2006 - 11:25 #9
Tak for paging tippet :-)

Den tekst der skulle stå i gæstebogen, står der i den aktive gæstebog på http://www.peterogdeandrekopier.dk/gaestebog/tagwall.asp
Avatar billede peterkopi Nybegynder
26. juli 2006 - 11:27 #10
Ang. paging: Den udskriver de første 10 - men der mangler selve paging-funktionen på http://www.peterogdeandrekopier.dk/gaestebog/tagwall_paging.asp...?
Avatar billede fennec Nybegynder
26. juli 2006 - 11:48 #11
Jeg fatter ikke hvorfor det ikke virker. For det gør det her hos mig. Jeg har lige lavet denne test:

besked = "jeg har længe ledt erter en sang og kan ikke finde den håber i kan hjælpe. i starten af sangen siger de denne sang er detikeret til ære for michael rasmussen eller michael jønson og døde i en alder af xxxx "&_
"et stykke inde i sangen siger de også noget om en usleben diamant jeg håber i kan hjælpe mig hilsen daniel og vil sende svaret til min mail håber at høre fra jer "&_
"ps på et tidspuntk siger han/de vidst også noget om en usleben diamant men eller eynger de ikke i sangen "&_
"dunsexxx@hotmail.com hvis i vil sende svaret der til hvis i altså kan hjælpe håber jeg i kan"
besked = replace(besked, "Www", "www")
besked = replace(besked, "wWw", "www")
besked = replace(besked, "wwW", "www")
besked = replace(besked, "WWW", "www")
besked = replace(besked, "&lt;b&gt;", "<B>")
besked = replace(besked, "&lt;/b&gt;", "</B>")
besked = replace(besked, "&lt;i&gt;", "<I>")
besked = replace(besked, "&lt;/i&gt;", "</I>")
besked = replace(besked, "&lt;u&gt;", "<U>")
besked = replace(besked, "&lt;/u&gt;", "</U>")
besked = replace(besked, "&lt;p&gt;", "<P>")
besked = replace(besked, "&lt;/p&gt;", "</P>")
besked = replace(besked, "&lt;center&gt;", "<CENTER>")
besked = replace(besked, "&lt;/center&gt;", "</CENTER>")
besked = replace(besked, "&lt;br&gt;", "<BR>")
besked = replace(besked, "[!]", "images/!.gif")
besked = replace(besked, ":-o", "<IMG SRC='images/argh.gif'>")
besked = replace(besked, "8-)", "<IMG SRC='images/badass.gif'>")
besked = replace(besked, ";-)", "<IMG SRC='images/blink.gif'>")
besked = replace(besked, "[brev]", "<IMG SRC='images/brev.gif'>")
besked = replace(besked, "[danger]", "<IMG SRC='images/danger.gif'>")
besked = replace(besked, "3-(", "<IMG SRC='images/devil.gif'>")
besked = replace(besked, "[disk]", "<IMG SRC='images/disk.gif'>")
besked = replace(besked, "[tv]", "<IMG SRC='images/fjernsyn.gif'>")
besked = replace(besked, ":-z", "<IMG SRC='images/flov.gif'>")
besked = replace(besked, "3-)", "<IMG SRC='images/happysun.gif'>")
besked = replace(besked, "?:-o", "<IMG SRC='images/huh.gif'>")
besked = replace(besked, ":-0", "<IMG SRC='images/ingenraab.gif'>")
besked = replace(besked, ":-|", "<IMG SRC='images/ligeglad.gif'>")
besked = replace(besked, "[linux]", "<IMG SRC='images/linux.gif'>")
besked = replace(besked, "?:-|", "<IMG SRC='images/mistaenksom.gif'>")
besked = replace(besked, "[cd]", "<IMG SRC='images/musik.gif'>")
besked = replace(besked, "[ned]", "<IMG SRC='images/ned.gif'>")
besked = replace(besked, "[next]", "<IMG SRC='images/next.gif'>")
besked = replace(besked, "[op]", "<IMG SRC='images/op.gif'>")
besked = replace(besked, "[pc]", "<IMG SRC='images/pc.gif'>")
besked = replace(besked, "*gf*", "<IMG SRC='images/self.gif'>")
besked = replace(besked, "*sf*", "<IMG SRC='images/sf.gif'>")
besked = replace(besked, ":-)", "<IMG SRC='images/smil.gif'>")
besked = replace(besked, "[spm]", "<IMG SRC='images/spm.gif'>")
besked = replace(besked, "[stop]", "<IMG SRC='images/stop.gif'>")
besked = replace(besked, ":-(", "<IMG SRC='images/sur.gif'>")
besked = replace(besked, "[tom]", "<IMG SRC='images/tom.gif'>")
besked = replace(besked, ";´-(", "<IMG SRC='images/trist.gif'>")
besked = replace(besked, ":-p", "<IMG SRC='images/tunge.gif'>")
Response.write LinkTekst(besked)

Og den kommer fint ud med tekst. Emailen er endag lavet om til et klikbart link.

Kommer der noget ud hvis du helt glemmer LinkTekst() funktionen??
Response.write besked
Avatar billede peterkopi Nybegynder
08. marts 2007 - 19:07 #12
Tak for din hjælp, fennec, selvom problemet ikke blev løst. Jeg fik imidlertid flere, og mere alvorlige, problemer med gæstebogen som jeg var nødt til at lukke. Se evt. http://www.eksperten.dk/spm/748760
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
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
30/0614:48 Beholde vigtige cookies i Firefox (Slette cookies, som man ikke bruger) Af Ikke-ekspert i Browsere
29/0614:57 Opgradere win 10 til 11 Af lurup i Windows
28/0620:51 Creative Soundblaster Audigy FX v2 Af ErikHg i Andet hardware
27/0616:10 Tilbage til Outlook Klassisk design Af susalapi i E-mail programmer
White papers
Flere white papers »