home *** CD-ROM | disk | FTP | other *** search
- <%
- For compteur=1 to len(Message2)
- deb=InStr(compteur, Message2, "[url]")+5
- fin=InStr(compteur, Message2, "[/url]")
- If (deb>0 and fin>0 and (fin-deb)>0) Then
- adres=Mid(Message2,deb,(fin-deb))
- Message2=Replace(Message2, "[url]http://", "<a href=http://" & adres & " target=""_blank"">", 1, 1)
- Message2=Replace(Message2, "[url]", "<a href=http://" & adres & " target=""_blank"">", 1, 1)
- End If
- deb=InStr(compteur, Message2, "[email]")+7
- fin=InStr(compteur, Message2, "[/email]")
- If (deb>0 and fin>0) Then
- adres=Mid(Message2,deb,(fin-deb))
- Message2=Replace(Message2, "[email]", "<a href=mailto:" & adres & " target=""_blank"">", 1, 1)
- Message2=Replace(Message2, "[/email]", "</a>", 1, 1)
- End If
- Next
- 'Cette procΘdure scanne le message et repΦre les [url], [/url], [email], [/email] et les transformes pour que les liens marchent α l'affichage.
-
- Message2=Replace(Message2, "[url=""http://", "<a href=http://")
- Message2=Replace(Message2, "[url=""", "<a href=http://")
- Message2=Replace(Message2, """]", " target=""_blank"">")
- Message2=Replace(Message2, "[/url]", "</a>")
- Message2=Replace(Message2, "[img]http://", "<img src=""http://")
- Message2=Replace(Message2, "[img]", "<img src=""http://")
- Message2=Replace(Message2, "[/img]", """>")
- Message2=Replace(Message2, "[b]", "<b>")
- Message2=Replace(Message2, "[/b]", "</b>")
- Message2=Replace(Message2, "[i]", "<i>")
- Message2=Replace(Message2, "[/i]", "</i>")
- Message2=Replace(Message2, "[u]", "<u>")
- Message2=Replace(Message2, "[/u]", "</u>")
- Message2=Replace(Message2, "[code]", "<pre>")
- Message2=Replace(Message2, "[/code]", "</pre>")
- Message2=Replace(Message2, "[list]", "<ul>")
- Message2=Replace(Message2, "[list=A]", "<ol type=A>")
- Message2=Replace(Message2, "[list=1]", "<ol type=1>")
- Message2=Replace(Message2, "[*]", "<li>")
- Message2=Replace(Message2, "[/list]", "</ul>")
- Message2=Replace(Message2, "[/list=A]", "</ol>")
- Message2=Replace(Message2, "[/list=1]", "</ol>")
- Message2=Replace(Message2, ":)", "<img src=""" & EnvironnementRes("envsmi1") & """> ")
- Message2=Replace(Message2, ":(", "<img src=""" & EnvironnementRes("envsmi2") & """> ")
- Message2=Replace(Message2, ";)", "<img src=""" & EnvironnementRes("envsmi3") & """> ")
- Message2=Replace(Message2, ":D", "<img src=""" & EnvironnementRes("envsmi4") & """> ")
- Message2=Replace(Message2, ":o", "<img src=""" & EnvironnementRes("envsmi5") & """> ")
- 'Transformation des codes ABB en HTML.
- %>