home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / edit.asp < prev    next >
Encoding:
Text File  |  2000-03-02  |  6.5 KB  |  133 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <!--#include file="include.asp"-->
  3. <%
  4.     postid2 = Request.QueryString("postid")
  5.     topicid2 = Request.QueryString("topicid")
  6.     postcnid2 = Request.QueryString("postcnid")
  7.     
  8.     strTopicSQL = "SELECT topicdesc FROM Topic WHERE topicid=" & topicid2 & " "
  9.     set TopicRes=ConnectionBD.Execute(strTopicSQL)
  10.     
  11.     strPostSQL = "SELECT * FROM Post WHERE postid=" & postid2 & " "
  12.     set PostRes=ConnectionBD.Execute(strPostSQL)
  13.     
  14.     strContSQL = "SELECT * FROM Postcn WHERE postcnid=" & postcnid2 & " "
  15.     set ContRes=ConnectionBD.Execute(strContSQL)
  16.     
  17.     Message2=ContRes("postcncn")
  18.     Message2=Replace(Message2, "<BR>", vbcrlf)
  19.     'Transformation des <BR> en retours charriot
  20.     
  21.     If EnvironnementRes("envhtml")=false Then
  22.         Message2=Replace(Message2, "<", "<")
  23.         Message2=Replace(Message2, ">", ">")
  24.     End If
  25.     'Si le code HTML est interdi, transformation des < et > par leur Θquivalents HTML pour bloquer le code.
  26.     
  27.     If EnvironnementRes("envabb")=true Then
  28.         Message2=Replace(Message2, "<a href=", "[url=""")
  29.         Message2=Replace(Message2, " target=""_blank"">", """]")
  30.         Message2=Replace(Message2, "</a>", "[/url]")
  31.         Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi1") & """> ", ":)")
  32.         Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi2") & """> ", ":(")
  33.         Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi3") & """> ", ";)")
  34.         Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi4") & """> ", ":D")
  35.         Message2=Replace(Message2, "<img src=""" & EnvironnementRes("envsmi5") & """> ", ":o")
  36.         Message2=Replace(Message2, "<img src=""", "[img]")
  37.         Message2=Replace(Message2, """>", "[/img]")
  38.         Message2=Replace(Message2, "<b>", "[b]")
  39.         Message2=Replace(Message2, "</b>", "[/b]")
  40.         Message2=Replace(Message2, "<i>", "[i]")
  41.         Message2=Replace(Message2, "</i>", "[/i]")
  42.         Message2=Replace(Message2, "<u>", "[u]")
  43.         Message2=Replace(Message2, "</u>", "[/u]")
  44.         Message2=Replace(Message2, "<pre>", "[code]")
  45.         Message2=Replace(Message2, "</pre>", "[/code]")
  46.         Message2=Replace(Message2, "<ul>", "[list]")
  47.         Message2=Replace(Message2, "<ol type=A>", "[list=A]")
  48.         Message2=Replace(Message2, "<ol type=1>", "[list=1]")
  49.         Message2=Replace(Message2, "<li>", "[*]")
  50.         Message2=Replace(Message2, "</ul>", "[/list]")
  51.         Message2=Replace(Message2, "</ol>", "[/list=A]")
  52.         Message2=Replace(Message2, "</ol>", "[/list=1]")
  53.         'Transformation des codes ABB en HTML.
  54.     End If
  55.     'Si le code ABB est autorisΘ, effecuter les transformations adΘquates.
  56. %>
  57. <html>
  58.  
  59. <head>
  60. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  61. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  62. <meta name="ProgId" content="FrontPage.Editor.Document">
  63. <title>ABB</title>
  64. <style type="text/css">
  65. <!--
  66. A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  67. A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
  68. A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  69. A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
  70. -->
  71. </style>
  72. </head>
  73.  
  74. <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
  75.  
  76. <div align="center">
  77.   <center>
  78.   <table border="0" cellpadding="0" cellspacing="0" width="95%">
  79.     <tr>
  80.       <td width="50%" align="center"><a href="default.asp"><img border="0" src="<% =EnvironnementRes("envlogo") %>" alt="Retour α la page principale"></a></td>
  81.       <td width="50%" align="center"><font face="Arial" size="2"><b>Message "<% =PostRes("posttitle") %>" du groupe "<% =TopicRes("topicdesc") %>"</b></font>
  82.         <p><font size="1" face="Arial"><a href="profil.asp">profil</a> | <a href="subscribe.asp"> s'enregistrer</a> |
  83.         <a href="pref.asp"> prΘfΘrences</a> | <a href="faq.asp"> faq</a> | <a href="search.asp">
  84.         rechercher</a></font></p>
  85.       </td>
  86.     </tr>
  87.   </table>
  88.   </center>
  89. </div>
  90.  
  91. <p> </p>
  92. <form method="POST" action="doedit.asp">
  93. <div align="center">
  94.   <center>
  95.   <table border="0" width="95%" cellspacing="1" cellpadding="3">
  96.     <tr>
  97.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Votre
  98.         nom d'utilisateur :</b></font></td>
  99.       <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>
  100.     </tr>
  101.     <tr>
  102.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Votre
  103.         mot de passe :</b></font></td>
  104.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><input type="password" name="Passe" size="20" value="<% =Request.Cookies("abb")("passe") %>"></td>
  105.     </tr>
  106.     <tr>
  107.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Message
  108.         α Θditer :</b></font>
  109.         <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>
  110.         Code HTML : <% If EnvironnementRes("envhtml")=true Then %>Oui<% Else %>Non<% End If %></font></p>
  111.       </td>
  112.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="70%"><textarea rows="10" name="message" cols="50" wrap="virtual"><% =Message2 %></textarea></td>
  113.     </tr>
  114.     <tr>
  115.       <td bgcolor="<% =EnvironnementRes("envcol1") %>" width="30%" valign="top"><font face="Arial" size="2"><b>Options
  116.         :</b></font></td>
  117.       <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>
  118.         <p><font face="Arial" size="2"><input type="checkbox" name="effacer" value="ON">Effacer
  119.         le message (seuls les administrateurs ont le droit de supprimer les
  120.         messages)</font></p>
  121.       </td>
  122.     </tr>
  123.   </table>
  124.  
  125. <input type="hidden" name="Topic" value="<% =topicid2 %>">
  126. <input type="hidden" name="Post" value="<% =postid2 %>">
  127. <input type="hidden" name="Postcn" value="<% =postcnid2 %>">
  128.   <p align="center"><input type="submit" value="Soumettre nouveau sujet" name="Envoyer"><input type="reset" value="Effacer tous les champs" name="Effacer">
  129.   </center>
  130. </div></form>
  131. <!--#include file="basdepage.asp"-->
  132. </body>
  133. </html>