¹ØÓÚXML¶ÁÈ¡µÄÎÊÌâ - Web ¿ª·¢ / ASP
VBScript code:
'************************************************************
'º¯ÊýÃû£ºSetClassCache
'×÷ ÓãºÉèÖÃÐÂÎÅÀàÐÍ»º´æ
'²Î Êý£º
'·µ»ØÖµ£º³É¹¦·µ»Øtrue ·ñÔò·µ»ØFlase
'************************************************************
Public Function SetClassCache()
on error resume next
Dim CacheName,RSObj,row,xmlroot
CacheName = "gq_classlist"
row = "gqclass"
xmlroot = "gqclasslist"
Dim RS:Set RS = Server.CreateObject("ADODB.RECORDSET")
RS.Open "SELECT ClassID,ClassCName,ClassDomain,ReITemplateID,ReLTemplateID,ReNTemplateID from GQ_Class WHERE ClassDelTF=0",conn,1,1
SetClassCache = GQ_Cache.SetCacheValue(CacheName,RS,row,xmlroot)
RS.Close:Set RS = Nothing
If Err.Number <> 0 Then
Err.Clear
SetClassCache = False
Else
SetClassCache = True
End If
End Function
'************************************************************
'º¯ÊýÃû£ºSetCacheValue
'×÷ ÓãºÉèÖÃÄ£°å»º´æ
'²Î Êý£º
'·µ»ØÖµ£º³É¹¦·µ»Øtrue ·ñÔò·µ»ØFlase
'************************************************************
Public Function SetCacheValue(CacheName,RSObj,row,xmlroot)
on error resume next
If not IsObject(Application(CacheN
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
˼·£ºÒªÓÃc#Éú³ÉÒ»¸ö²¥·Å»úµÄ²¥·ÅÁбíµÄxml£¬ÀýÈ磺
<daty datys='2010-04-05' datye='2010-05-01' > //ÕâÊDz¥·ÅµÄÈÕÆÚ¶Î
<time times='01:12:00' timee='02:30:00'> ......
ÓÃSAX½âÎöXMLÖУ¬Ê¹ÓÃÕâ¶Î´úÂë
String feed="http://www.google.com/ig/api?weather="+strCity;
URL url = new URL(feed.replace(" ", "%20"));
......
XML_PARSER_STRUCT parser;
ret = xml_new_parser(&parser);
xml_register_element_handler(&parser, mmi_pict_read_xml_start_element_login, mmi_pict_read_xml_end_element_lo ......
htmlÒ³Ãæ¾²Ì¬´´½¨xmlÎļþ£¬²¢±£´æ£¬ÒÔºó¿ÉÒÔ¶ÁÈ¡¡£
²»ÖªÄÄλ´óÏÀ×ö¹ý¡£¡£¡£
лл
javascriptÓ¦¸Ã²»ÄÜ´´½¨Îļþ°É
jsÓÐȨÏÞ´´½¨Ã´£¬´ó¶àÊýÇé¿öϱ»½ûÖ¹°É
ȨÏÞ¡£¡£
ÀúÊ·ÒÅÁôÎÊÌ⣬¿´À´½â¾ö²»ÁËÁË¡£¡£¡£¡£¡ ......