XmlDoc=CREATEOBJECT('Microsoft.XMLDOM') XmlDoc.async=.F. &&设置同步下载 Ret=XmlDoc.Load('http://www.time.ac.cn/timeflash.asp?user=flash') &&读入XML文件(国家授时中心数据) IF Ret=.T. XMLTOCURSOR(XmlDoc.xml,'tDatetime',0) SELECT tDatetime BROWSE ENDIF