FCKeditor 2.4 : /_samples/afp/sampleposteddata.afp source

[Sommaire] [Imprimer]
   1  <% 
   2   * FCKeditor - The text editor for Internet - http://www.fckeditor.net
   3   * Copyright (C) 2003-2007 Frederico Caldeira Knabben
   4   * 
   5   * == BEGIN LICENSE ==
   6   * 
   7   * Licensed under the terms of any of the following licenses at your
   8   * choice:
   9   * 
  10   *  - GNU General Public License Version 2 or later (the "GPL")
  11   *    http://www.gnu.org/licenses/gpl.html
  12   * 
  13   *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
  14   *    http://www.gnu.org/licenses/lgpl.html
  15   * 
  16   *  - Mozilla Public License Version 1.1 or later (the "MPL")
  17   *    http://www.mozilla.org/MPL/MPL-1.1.html
  18   * 
  19   * == END LICENSE ==
  20   * 
  21   * File Name: sampleposteddata.php
  22   *     This page lists the data posted by a form.
  23   * 
  24   * Version:  1.0 
  25   * Modified: 2005-07-01
  26   * 
  27   * File Authors: Soenke Freitag (www.afp-hosting.de)
  28   *         
  29  %>
  30  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  31  <html>
  32      <head>
  33          <title>FCKeditor - AFP - Samples - Posted Data</title>
  34          <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  35          <meta name="robots" content="noindex, nofollow">
  36          <link href="../sample.css" rel="stylesheet" type="text/css" />
  37      </head>
  38      <body>
  39          <h1>FCKeditor - Samples - Posted Data</h1>
  40          This page lists all data posted by the form.
  41          <hr>
  42          <table width="100%" border="1" cellspacing="0" bordercolor="#999999">
  43              <tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
  44                  <td nowrap>Field Name&nbsp;&nbsp;</td>
  45                  <td>Value</td>
  46              </tr>
  47  <%
  48          lcForm=REQUEST.Form()
  49          lcForm=STRTRAN(lcForm,"&",CHR(13)+CHR(10))
  50  
  51          FOR lnLoop=1 TO MEMLINES(lcForm)
  52              lcZeile=ALLTRIM(MLINE(lcForm,lnLoop))
  53              IF AT("=",lcZeile)>0
  54                  lcVariable=UPPER(ALLTRIM(LEFT(lcZeile,AT("=",lcZeile)-1)))  
  55                  lcWert=ALLTRIM(RIGHT(lcZeile,LEN(lcZeile)-AT("=",lcZeile)))
  56                  lcWert=Server.UrlDecode( lcWert ) 
  57                  lcWert=STRTRAN(lcWert,"<","&lt;")
  58                  lcWert=STRTRAN(lcWert,">","&gt;")    && ... if wanted remove/translate HTML Chars ...
  59      
  60                  ? [<tr><td>]+lcVariable+[ =</td><td>]+lcWert+[</td></tr>]
  61              ENDIF
  62          NEXT
  63  %>
  64          </table>
  65      </body>
  66  </html>
Code source de FCKeditor 2.4

/_samples/afp/ -> sampleposteddata.afp (source)
