"+::Title+"

/* * $Id$ */ /* * Harbour Project source code: * HTMLLIB Frame Class * * Copyright 2000 Manos Aspradakis * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version, with one exception: * * The exception is that if you link the Harbour Runtime Library (HRL) * and/or the Harbour Virtual Machine (HVM) with other files to produce * an executable, this does not by itself cause the resulting executable * to be covered by the GNU General Public License. Your use of that * executable is in no way restricted on account of linking the HRL * and/or HVM code into it. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit * their web site at http://www.gnu.org/). * */ /* * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * * Copyright 2000 Luiz Rafael Culik * Porting this library to Harbour * * See doc/license.txt for licensing terms. * */ #include "hbclass.ch" #include "default.ch" #include "html.ch" CLASS Frameset DATA nH DATA FName DATA Title init "FrameSet01" METHOD New( fName, title ) METHOD StartSet( aRows, aCols, onLoad, onUnload ) METHOD EndSet() METHOD End() METHOD Frame( cName, cURL, lBorder, lResize, lScrolling,; marginwidth, marginheight, cTarget, cScrolling ) //METHOD Debug() INLINE __clsDebug( self ) NOSELF ENDCLASS //哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪 METHOD New( cFName, cTitle ) CLASS Frameset LOCAL cStr := "" DEFAULT cTitle := "" ::FName := cFName ::Title := cTitle IF ::FName == NIL cStr += "Content-Type: text/html"+CRLF()+CRLF() // cStr := "" ::nH := STD_OUT ELSE cStr := "" ::nH := FCreate( ::FName ) ENDIF cStr += ""+CRLF()+; " "+CRLF()+; " "+::Title+""+CRLF()+; " "+CRLF() FWrite( ::nH, cStr ) RETURN Self //哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪 METHOD StartSet( aRows, aCols, onLoad, onUnload ) CLASS Frameset LOCAL i LOCAL cStr := "" cStr += CRLF()+" "+CRLF() ) RETURN Self //哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪 Method End() CLASS Frameset FWrite( ::nH, ""+CRLF() ) IF ::FName != NIL FClose( ::nH ) ENDIF RETURN Self //哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪 METHOD Frame( cName, cURL, lBorder, lResize, lScrolling,; marginwidth, marginheight, cTarget, cScrolling ) CLASS Frameset LOCAL cStr DEFAULT lBorder := .T. DEFAULT lResize := .T. DEFAULT lScrolling := .F. DEFAULT cScrolling := "AUTO" DEFAULT cTarget := "_self" //"_blank" cStr := "