Konvertera [URL] till länkar

IvarMedlem sedan aug. 2002218 inlägg

Frågan10 mars 2004 13:25#1

Hej,

Använder Andreas funktion men funkar inte vad gör jag för fel?
Skickar hela koden.

 

<%
function nyrad(textstrang)
textstrang = Replace(textstrang, vbCrLf, "<br>")
nyrad = textstrang
end function 

%>
<%
'**************************************
'KOD GJORD AV: Andreas Voigt
'Hemsida: [url]http://voigt.voigtan.cjb.net[/url]
'**************************************

Function Free(text)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
text = Server.HTMLEncode(text)

objRegExp.Pattern = "\[url=(&quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
text = objRegExp.Replace(text,"<a href=http://$3 target=""_blank"">$4</a>")

free = text

end function
%>
<% sub showheader(pagename) %>

<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="12%"> <div align="center"><font size="1"><img src="icon_home.gif" width="12" height="14" align="absmiddle"><a href="default.asp"><font face="Arial.Helvetica" color="#CC6600">|Hem|</font></a></font></div></td>
    <td width="12%"> <div align="center"><font size="1"><a href=category.asp?category=categori4><font face="Arial.Helvetica" color="#CC6600">|<%=categori4%>|</font></a></font></div></td>
    <td width="12%"> <div align="center"><font size="1"><a href=category.asp?category=categori1><font face="Arial.Helvetica" color="#CC6600">|<%=categori1%>|</font></a></font></div></td>
    <td width="12%"> <div align="center"><font size="1" ><a href=category1.asp?category=categori41><font face="Arial.Helvetica" color="#CC6600">|<%=categori41%>|</font></a></font></div></td>
    <td width="11%"> <div align="center"><font size="1"><a href=category.asp?category=categori2><font face="Arial.Helvetica" color="#CC6600">|<%=categori2%>|</font></a></font></div></td>
    <td width="20%"> <div align="center"><font size="1"><a href="placead.asp"><font face="Arial.Helvetica" color="#CC6600">|Lägg 
        till en ny annons|</font></a></font></div></td>
    <td width="9%"> <div align="center"><font size="1"><a href=category.asp?category=categori3><font face="Arial.Helvetica" color="#CC6600">|<%=categori3%>|</font></a></font></div></td>
    <td width="12%"> <div align="center"><font size="1"><img src="icon_search.gif" width="14" height="14" align="absmiddle"><a href="search.asp"><font face="Arial.Helvetica" color="#CC6600">|Sök|</font></a></font></div></td>
  </tr>
</table>
<hr width="750" size="1">
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#E6E7B6"><table width="399" border=0 cellpadding=0
cellspacing=0 bgcolor=#E6E7B6>
        <tr bgcolor="#E6E7B6"> 
          <td colspan=2> <font size=2><b> 
            <% end sub %>
			
            <% sub showitem(item,description,price,phone,_
    email,stad,dateCreated,fileName) %>
	

            <%=item%></b></font> </td>
        </tr>
        <tr bgcolor="#E6E7B6"> 
          <td width="74" valign=top> <br>
            Beskrivning:</td>
          <td width="325"><br>
		  
            <%=nyrad(free(description))%></td>
        </tr>
        <tr bgcolor="#E6E7B6"> 
          <td><font color="#FF0000"><br>
            Pris:<br>
            </font></td>
          <td><br>
            <%=price%> Kr </td>
        </tr>
        <tr bgcolor="#E6E7B6"> 
          <td>Tel nr:</td>
          <td><%=phone%></td>
        </tr>
        <tr bgcolor="#E6E7B6"> 
          <td>Stad:</td>
          <td><%=stad%></td>
        </tr>
        <tr bgcolor="#E6E7B6"> 
          <td>Postad:</td>
          <td><%=dateCreated%></td>
        </tr>
      </table>
      <% end sub %>
    </td>
  </tr>
</table>

Web-TorMedlem sedan nov. 200013 890 inlägg

10 mars 2004 13:35#2

Berätta gärna vad det är som inte funkar.

IvarMedlem sedan aug. 2002218 inlägg

10 mars 2004 13:38#3

Ok det blir inga länkar och ingen felmeddelande.

IvarMedlem sedan aug. 2002218 inlägg

10 mars 2004 15:17#4

Fixat med den här koden:

Function convertLink(ByVal strText)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true

re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")

re.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"" target=""_blank"">$2" & mDelimit & "$3</a>")

re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"" target=""_blank"">$1</a>")
strText = Replace(strText, mDelimit, "")

convertLink=strText

End Function

Anropas med <%= convertLink(……..)%>