and naturally you can take a look at the code here : http://sourceforge.net/projects/gambasforge/
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 > -- Fabien Bodard ------------------------------------------------------------------------------ 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