¹ØÓÚ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
Ïà¹ØÎÊ´ð£º
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
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 ......
package com.javabean.xml;
import java.net.MalformedURLException;
import java.net.URL;
import org.dom4j.io.SAXReader;
import org.dom4j.Attribute;
import org.dom4j.Document;
import org.dom4j.Docum ......
htmlÒ³Ãæ¾²Ì¬´´½¨xmlÎļþ£¬²¢±£´æ£¬ÒÔºó¿ÉÒÔ¶ÁÈ¡¡£
²»ÖªÄÄλ´óÏÀ×ö¹ý¡£¡£¡£
лл
javascriptÓ¦¸Ã²»ÄÜ´´½¨Îļþ°É
jsÓÐȨÏÞ´´½¨Ã´£¬´ó¶àÊýÇé¿öϱ»½ûÖ¹°É
ȨÏÞ¡£¡£
ÀúÊ·ÒÅÁôÎÊÌ⣬¿´À´½â¾ö²»ÁËÁË¡£¡£¡£¡£¡ ......