Le 12/05/2011 14:53, Fabien Bodard a écrit : > and naturally you can take a look at the code here : > > http://sourceforge.net/projects/gambasforge/
" GambasForge is a CMS writed in gambas. It provide a set of CGI's that allow to manage a gambas source spécific repository, forum, news, etc... " An english sentence, a french letter. There is a problem here, isn't it? (spécific) ;) > that is the code for : > > http://gambasforge.org/beta > > 2011/5/12 Rolf-Werner Eilert<eilert-sprac...@t-online.de>: >> Am 12.05.2011 00:53, schrieb Hamilton Geminiano Andrioli Junior: >>> Hello world! >>> >>> I want to make a system for my School. >>> Now i have to decide how and where to write it. >>> >>> Does anyone have a example of CGI Web based program in gambas? >>> >>> Thanks... >>> >> >> Hello Hamilton, >> >> I have made CGI applications based on Gambas scripts. Don't know if it >> is thought to be made like this (I didn't know there is a special class >> for it in Gambas), but this is about the basic work: >> >> You'll need a new Gambas project "for commandline use". >> >> Just to give you an idea of how this could work, here's the skeleton for >> a simple CGI window which has basically 3 parts: a Title-Line and two >> Columns (realized with a table). It is from a database questionnaire >> where you can switch on/off some items on the left and see the results >> (simple list) on the right. This is actually a thing I made for my >> school :-) >> >> Let the IDE compile the stuff and copy the<Project>.Gambas file into >> your<whatever>/cgi-bin directory. In my case, however, I had to make a >> symlink to the actual Gambas binary because the appache wouldn't find it >> like that. >> >> All this is in MMain. German "schreibe" = "write", "Spalte" = "Column" >> >> >> PUBLIC SUB Main() >> >> >> schreibeHeader >> >> schreibeSeitenkopf >> >> PRINT "<table border=\"0\" width=\"100%\">" >> PRINT "<tr>" >> schreibeLinkeSpalte >> schreibeRechteSpalte >> PRINT "</tr>" >> PRINT "</table>" >> >> schreibeSeitenschluss >> >> >> >> END >> >> >> 'To make it function, this part is the most important. Take care >> 'not to forget the two empty lines before Doctype. >> >> PRIVATE SUB schreibeHeader() >> >> PRINT "Content-type: text/html; charset=utf-8" >> PRINT "" >> PRINT "" >> PRINT "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">" >> PRINT "<head>" >> PRINT "<title>Kartei online</title>" >> PRINT "<style type=\"text/css\">" >> PRINT "a:link { text-decoration:none; font-weight:bold; color:#3261A6; }" >> PRINT "a:visited { text-decoration:none; font-weight:bold; >> color:#800000; }" >> PRINT "a:hover { text-decoration:none; font-weight:bold; >> background-color:#ff0; }" >> PRINT "a:active { text-decoration:none; font-weight:bold; >> background-color:#cff; }" >> PRINT "a:focus { text-decoration:none; font-weight:bold; >> background-color:#080; }" >> PRINT "</style>" >> >> PRINT "</head>" >> PRINT "" >> >> END >> >> >> PRIVATE SUB schreibeSeitenkopf() >> DIM i AS Integer >> >> PRINT "<body bgcolor=\"#E0E0E0\">" >> >> PRINT "<font face=\"Verdana, Arial, Helvetica\" >> color=\"#3261A6\"><h1>Title of the CGI application</h1><font >> face=\"Trebuchet MS, Verdana, Arial, Helvetica\" size=\"-1\" >> color=\"black\">" >> >> END >> >> >> PRIVATE SUB schreibeLinkeSpalte() >> DIM t$ AS String >> DIM i AS Integer >> DIM teil AS NEW String[] >> >> PRINT "<td width=\"33%\" valign=\"top\">" >> PRINT "<font face=\"Trebuchet MS, Verdana, Arial, Helvetica\" >> size=\"-1\">" >> PRINT "Left column:<br><br>" >> PRINT "<h3><font face=\"Verdana, Arial, Helvetica\" >> color=\"#3261A6\"><center>Title 1</center></h3><font face=\"Trebuchet >> MS, Verdana, Arial, Helvetica\" size=\"-1\" color=\"black\">" >> >> >> PRINT "<hr>" >> PRINT "<h3><font face=\"Verdana, Arial, Helvetica\" >> color=\"#3261A6\"><center>Title 2</center></h3><font face=\"Trebuchet >> MS, Verdana, Arial, Helvetica\" size=\"-1\" color=\"black\">" >> PRINT "</td>" >> >> END >> >> >> >> >> >> >> >> PRIVATE SUB schreibeRechteSpalte() >> DIM i AS Integer >> DIM teil AS NEW String[] >> >> PRINT "<td width=\"2%\" bgcolor=\"#EEEEEE\"></td>" 'Zwischenspalte >> hellgrau >> >> PRINT "<td bgcolor=\"FFFFFF\" valign=\"top\">" 'rechte Spalte weiß >> >> PRINT "<h3><font face=\"Verdana, Arial, Helvetica\" >> color=\"#3261A6\"><center>Inhalt</center></h3>" >> >> PRINT "</td>" >> >> END >> >> >> >> PRIVATE SUB schreibeSeitenschluss() >> >> PRINT "</body>" >> PRINT "</HTML>" >> >> END >> >> ------------------------------------------------------------------------------ >> Achieve unprecedented app performance and reliability >> What every C/C++ and Fortran developer should know. >> Learn how Intel has extended the reach of its next-generation tools >> to help boost performance applications - inlcuding clusters. >> http://p.sf.net/sfu/intel-dev2devmay >> _______________________________________________ >> Gambas-user mailing list >> Gambas-user@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/gambas-user >> > > ------------------------------------------------------------------------------ Achieve unprecedented app performance and reliability What every C/C++ and Fortran developer should know. Learn how Intel has extended the reach of its next-generation tools to help boost performance applications - inlcuding clusters. http://p.sf.net/sfu/intel-dev2devmay _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user