home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / abbcode.asp < prev    next >
Text File  |  2000-02-22  |  3KB  |  48 lines
  1. <%
  2.     For compteur=1 to len(Message2)
  3.         deb=InStr(compteur, Message2, "[url]")+5
  4.         fin=InStr(compteur, Message2, "[/url]")
  5.         If (deb>0 and fin>0 and (fin-deb)>0) Then
  6.             adres=Mid(Message2,deb,(fin-deb))
  7.             Message2=Replace(Message2, "[url]http://", "<a href=http://" & adres & " target=""_blank"">", 1, 1)
  8.             Message2=Replace(Message2, "[url]", "<a href=http://" & adres & " target=""_blank"">", 1, 1)
  9.         End If
  10.         deb=InStr(compteur, Message2, "[email]")+7
  11.         fin=InStr(compteur, Message2, "[/email]")
  12.         If (deb>0 and fin>0) Then
  13.             adres=Mid(Message2,deb,(fin-deb))
  14.             Message2=Replace(Message2, "[email]", "<a href=mailto:" & adres & " target=""_blank"">", 1, 1)
  15.             Message2=Replace(Message2, "[/email]", "</a>", 1, 1)
  16.         End If
  17.     Next
  18.     'Cette procΘdure scanne le message et repΦre les [url], [/url], [email], [/email] et les transformes pour que les liens marchent α l'affichage.
  19.     
  20.     Message2=Replace(Message2, "[url=""http://", "<a href=http://")
  21.     Message2=Replace(Message2, "[url=""", "<a href=http://")
  22.     Message2=Replace(Message2, """]", " target=""_blank"">")
  23.     Message2=Replace(Message2, "[/url]", "</a>")
  24.     Message2=Replace(Message2, "[img]http://", "<img src=""http://")
  25.     Message2=Replace(Message2, "[img]", "<img src=""http://")
  26.     Message2=Replace(Message2, "[/img]", """>")
  27.     Message2=Replace(Message2, "[b]", "<b>")
  28.     Message2=Replace(Message2, "[/b]", "</b>")
  29.     Message2=Replace(Message2, "[i]", "<i>")
  30.     Message2=Replace(Message2, "[/i]", "</i>")
  31.     Message2=Replace(Message2, "[u]", "<u>")
  32.     Message2=Replace(Message2, "[/u]", "</u>")
  33.     Message2=Replace(Message2, "[code]", "<pre>")
  34.     Message2=Replace(Message2, "[/code]", "</pre>")
  35.     Message2=Replace(Message2, "[list]", "<ul>")
  36.     Message2=Replace(Message2, "[list=A]", "<ol type=A>")
  37.     Message2=Replace(Message2, "[list=1]", "<ol type=1>")
  38.     Message2=Replace(Message2, "[*]", "<li>")
  39.     Message2=Replace(Message2, "[/list]", "</ul>")
  40.     Message2=Replace(Message2, "[/list=A]", "</ol>")
  41.     Message2=Replace(Message2, "[/list=1]", "</ol>")
  42.     Message2=Replace(Message2, ":)", "<img src=""" & EnvironnementRes("envsmi1") & """> ")
  43.     Message2=Replace(Message2, ":(", "<img src=""" & EnvironnementRes("envsmi2") & """> ")
  44.     Message2=Replace(Message2, ";)", "<img src=""" & EnvironnementRes("envsmi3") & """> ")
  45.     Message2=Replace(Message2, ":D", "<img src=""" & EnvironnementRes("envsmi4") & """> ")
  46.     Message2=Replace(Message2, ":o", "<img src=""" & EnvironnementRes("envsmi5") & """> ")
  47.     'Transformation des codes ABB en HTML.
  48. %>