source: sandbox/filemanager/tp/fckeditor/_samples/afp/sampleposteddata.afp @ 1575

Revision 1575, 1.9 KB checked in by amuller, 14 years ago (diff)

Ticket #597 - Implentação, melhorias do modulo gerenciador de arquivos

  • Property svn:executable set to *
Line 
1<%
2 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
3 * Copyright (C) 2003-2009 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 * This page lists the data posted by a form.
22 *
23%>
24<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
25<html>
26        <head>
27                <title>FCKeditor - AFP - Samples - Posted Data</title>
28                <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
29                <meta name="robots" content="noindex, nofollow">
30                <link href="../sample.css" rel="stylesheet" type="text/css">
31        </head>
32        <body>
33                <h1>FCKeditor - Samples - Posted Data</h1>
34                This page lists all data posted by the form.
35                <hr>
36                <table border="1" cellspacing="0" id="outputSample">
37                        <colgroup><col width="80"><col></colgroup>
38                        <thead>
39                                <tr>
40                                        <th>Field Name</th>
41                                        <th>Value</th>
42                                </tr>
43                        </thead>
44<%
45                lcForm=REQUEST.Form()
46                lcForm=STRTRAN(lcForm,"&",CHR(13)+CHR(10))
47
48                FOR lnLoop=1 TO MEMLINES(lcForm)
49                        lcZeile=ALLTRIM(MLINE(lcForm,lnLoop))
50                        IF AT("=",lcZeile)>0
51                                lcVariable=UPPER(ALLTRIM(LEFT(lcZeile,AT("=",lcZeile)-1)))
52                                lcWert=ALLTRIM(RIGHT(lcZeile,LEN(lcZeile)-AT("=",lcZeile)))
53                                lcWert=Server.UrlDecode( lcWert )
54                                lcWert=STRTRAN(lcWert,"<","&lt;")
55                                lcWert=STRTRAN(lcWert,">","&gt;")       && ... if wanted remove/translate HTML Chars ...
56
57                                ? [<tr><th>]+lcVariable+[ =</th><td><pre>]+lcWert+[</pre></td></tr>]
58                        ENDIF
59                NEXT
60%>
61                </table>
62        </body>
63</html>
Note: See TracBrowser for help on using the repository browser.