   Microsoft XML Core Services (MSXML) 4.0/3.0   XML-,   dbf-    CursorToXML(),  HTML- (   _GENHTML/genhtml.prg .   MSDN KB 194204[Q194204] "How To Extend the Web Publishing Wizard with Custom Layouts")    :

- getfields.xslt -   XSD-  XML,    ,    ,       XSD-,        :

<?xml version="1.0" encoding="Windows-1251" standalone="yes" ?>
<fields xmlns:xsd="http://www.w3.org/2001/XMLSchema"
      xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
   <fld_name type="xsd:type1">fieldName_1</fld_name>
   <fld_name type="xsd:type2">fieldName_2</fld_name>
   <!-- ... -->   
   <fld_name type="xsd:typeN">fieldName_N</fld_name>
</fields>
: 
~ fieldName_i -  
~ xsd:_type_i -   
(        ,    [  ]          ) 
 
- xmltohtml.xslt -   XML- (  dbf-    CursorToXML())  HTML-.    :
~ prmLang = ru/en <-     (    ) 
~ prmRowForFields -  " " ()  , ..   " " (    ,    XSD-,    0)
~ prmDocFields -      XML-,    XSD-,     getfields.xslt -  (   prmRowForFields   = 0)
   " ",   MSXML 4.0,      3.0 (  !).    xmltohtml.xslt         javascript ( ,           ,    ),   :
~ get_Date(sLang, sDate) -  XML-- [sDate]  " "    [sLang = ru/en],     ,     .
~ get_curYear() -   .   
   MSXML 4.0   get_Date(sLang, sDate)  ,  , ..    msxsl:format-date().    ,     MSXML 3.0...      xmltohtml.xslt- javascript-   ,  :       javascript-  XSLT 

- testdbftohtm.prg -          dbf-  HTML-.       :
- #DEFINE C_PATH ->  FULLPATH(CURDIR())  
- #DEFINE C_TABLE ->  "orders" (     HOME(2) + "Tastrade\Data\")
- #DEFINE C_LANG ->  "ru"  "en" (  )
- #DEFINE C_HTM ->   
-  lcMsxmlVersion     MSXML

    :   C_XMLFLDS & C_XMLOUT     (         ), :
#DEFINE C_XMLOUT  "curOut.xml"
#DEFINE C_XMLFLDS "curFields.xml"
          ,       ,     :
-  curOut.xml - ,   CursorToXML()   dbf-
-  curSchema.xsd (  C_XSD) XSD-   dbf-
-  curFields.xml - ,   getfields.xslt   curSchema.xsd  

 ,    testhtminform.prg, :    HTML- (   C_PATH & C_URL ,   HTML-  )  VFP-.

        - ,        ,      HTML,        Web-.     HTML-   ,        XML/XSLT ...

 ,  , ,  
My Page:  http://vfpdev.narod.ru/