home *** CD-ROM | disk | FTP | other *** search
Wrap
<% @ LANGUAGE="VBScript" lcid="1036" %> <!--#include file="include.asp"--> <% postid2 = Request.QueryString("postid") topicid2 = Request.QueryString("topicid") postcnid2 = Request.QueryString("postcnid") strTopicSQL = "SELECT topicdesc FROM Topic WHERE topicid=" & topicid2 & " " set TopicRes=ConnectionBD.Execute(strTopicSQL) strPostSQL = "SELECT * FROM Post WHERE postid=" & postid2 & " " set PostRes=ConnectionBD.Execute(strPostSQL) strContSQL = "SELECT * FROM Postcn WHERE postcnid=" & postcnid2 & " " set ContRes=ConnectionBD.Execute(strContSQL) Message2=ContRes("postcncn") Message2=Replace(Message2, "<BR>", vbcrlf) 'Transformation des <BR> en retours charriot If EnvironnementRes("envhtml")=false Then Message2=Replace(Message2, "<", "<") Message2=Replace(Message2, ">", ">") End If 'Si le code HTML est interdi, transformation des < et > par leur Θquivalents HTML pour bloquer le code. If EnvironnementRes("envabb")=true Then Message2=Replace(Message2, "<a href=", "[url=""") Message2=Replace(Message2, " target=""_blank"">", """]") Message2=Replace(Message2, "</a>", "[/url]") Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi1") & """> ", ":)") Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi2") & """> ", ":(") Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi3") & """> ", ";)") Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi4") & """> ", ":D") Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi5") & """> ", ":o") Message2=Replace(Message2, "<img src=""", "[img]") 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, "<pre>", "[code]") Message2=Replace(Message2, "</pre>", "[/code]") Message2=Replace(Message2, "<ul>", "[list]") Message2=Replace(Message2, "<ol type=A>", "[list=A]") Message2=Replace(Message2, "<ol type=1>", "[list=1]") Message2=Replace(Message2, "<li>", "[*]") Message2=Replace(Message2, "</ul>", "[/list]") Message2=Replace(Message2, "</ol>", "[/list=A]") Message2=Replace(Message2, "</ol>", "[/list=1]") 'Transformation des codes ABB en HTML. End If 'Si le code ABB est autorisΘ, effecuter les transformations adΘquates. %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>ABB</title> <style type="text/css"> <!-- A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;} A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;} A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;} A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;} --> </style> </head> <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="95%"> <tr> <td width="50%" align="center"><a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a></td> <td width="50%" align="center"><font face="Arial" size="2"><b>Message "<% =PostRes("posttitle") %>" du groupe "<% =TopicRes("topicdesc") %>"</b></font> <p><font size="1" face="Arial"><a href="profil.asp">profil</a> | <a href="subscribe.asp"> s'enregistrer</a> | <a href="pref.asp"> prΘfΘrences</a> | <a href="faq.asp"> faq</a> | <a href="search.asp"> rechercher</a></font></p> </td> </tr> </table> </center> </div> <p> </p> <form method="POST" action="doedit.asp"> <div align="center"> <center> <table border="0" width="95%" cellspacing="1" cellpadding="3"> <tr> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Votre nom d'utilisateur :</b></font></td> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><font face="Arial" size="2"><input type="text" name="Nom" size="30" value="<% =Request.Cookies("abb")("nom") %>"></font></td> </tr> <tr> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Votre mot de passe :</b></font></td> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><input type="password" name="Passe" size="20" value="<% =Request.Cookies("abb")("passe") %>"></td> </tr> <tr> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Message α Θditer :</b></font> <p><font face="Arial" size="1"><a href="abb.asp" target="_blank">Code ABB</a> : <% If EnvironnementRes("envabb")=true Then %>Oui<% Else %>Non<% End If %><br> Code HTML : <% If EnvironnementRes("envhtml")=true Then %>Oui<% Else %>Non<% End If %></font></p> </td> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><textarea rows="10" name="message" cols="50" wrap="virtual"><% =Message2 %></textarea></td> </tr> <tr> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Options :</b></font></td> <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><font face="Arial" size="2"><% If EnvironnementRes("envsign")=true Then %><input type="checkbox" name="Signature" value="ON">Signature<% End If %></font> <p><font face="Arial" size="2"><input type="checkbox" name="effacer" value="ON">Effacer le message (seuls les administrateurs ont le droit de supprimer les messages)</font></p> </td> </tr> </table> <input type="hidden" name="Topic" value="<% =topicid2 %>"> <input type="hidden" name="Post" value="<% =postid2 %>"> <input type="hidden" name="Postcn" value="<% =postcnid2 %>"> <p align="center"><input type="submit" value="Soumettre nouveau sujet" name="Envoyer"><input type="reset" value="Effacer tous les champs" name="Effacer"> </center> </div></form> <!--#include file="basdepage.asp"--> </body> </html>