¹ØÓÚ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 ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
XMLÎļþÄÚÈÝ£º
- <ResList>
<page>0</page>
- <resItem>
<resName>WWW</resName>
</resItem>
- <resItem>
&nb ......
ÏÂÃæÊÇ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 ......