¹ØÓÚ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µÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
ÏÂÃæÊÇXML³õʼÎļþÄÚÈÝ
XML code:
<upd:Update xmlns:lar="http://schemas.microsoft.com/msus/2002/12/LogicalApplicabilityRules" xmlns:cmd="http://schemas.microsoft.com/msus/2002/12/Up ......
ÓÃSAX½âÎöXMLÖУ¬Ê¹ÓÃÕâ¶Î´úÂë
String feed="http://www.google.com/ig/api?weather="+strCity;
URL url = new URL(feed.replace(" ", "%20"));
......