Just nu i M3-nätverket
Jump to content

"Känna av" länkar i inmatad text.


query

Recommended Posts

Hej!

Jag håller på med att göra ett diskussionsforum med asp och access-databas. Det funkar fint förrutom en sak:

Om jag vill att en användare ska kunna skriva in en webbadress i sitt inlägg och få den klickbar, hur ska jag då bära mig åt? Som det är nu, måste man skriva html-koden i inlägget.

 

mvh,

query

Link to comment
Share on other sites

strText = TEXT_SOM_SKA_LETAS_IGENOM

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 = "(http://|https://|ftp://|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://"" TARGET='_blank'>$1</a>")

strText = Replace(strText, mDelimit, "")

strText = Replace(strText, vbcrlf, "<br>")

 

[r]

<%=strtext%> där du vill skriva ut den texten som ska kollas igenom.

 

//Jonne

 

[inlägget ändrat 2001-04-06 09:11:19 av Jonne]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...