调用这个类的代码：

Business.asp
<%
Rem xml数据缓存类业务逻辑层代码
'--------------------------------------------------
'转载的时候请保留版权信息
'作者:walkman
'网址:手机主题 '版本:ver1.0
'欢迎各位交流进步
'--------------------------------------------------
Rem 根据classid取列表数据
Function GetListarr(classid,curpage,PageSize,CachePageNum,ByRef RecordCount)
 openConn
 Dim sql
 sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  win_theme.ClassID="&classid&" order by thmid desc"
 Dim cache
 Set cache = new XmlCacheCls
 cache.PageSize = PageSize     '每页N条记录
 cache.CachePageNum = CachePageNum    '一个xml文件缓存M页的数据量
 cache.XmlFile = Server.Mappath("xmlcache/classxml/list_"&classid&".xml")
 cache.Sql = sql
 cache.CurPage = curpage
 cache.CacheType = 1
 Set cache.Conn = conn
 cache.ReadData
 Dim SqlArr
 SQLArr = cache.SQLArr
 RecordCount = cache.RecordCount
 Set cache = Nothing
 GetListarr = SqlArr
End Function

Rem 根据classid生成xml缓存
Function CreateListxml(classid,curpage,PageSize,CachePageNum,CacheTime)
 Dim sql
 sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  win_theme.ClassID="&classid&" order by thmid desc"
 Dim cache
 Set cache = new XmlCacheCls
 cache.CacheTime = CacheTime '缓存时间
 cache.PageSize = PageSize     '每页N条记录
 cache.CachePageNum = CachePageNum    '一个xml文件缓存M页的数据量
 cache.XmlFile = Server.Mappath("xmlcache/classxml/list_"&classid&".xml")
 cache.Sql = sql
 cache.CurPage = curpage
 cache.CacheType = 1
 Set cache.Conn = conn
 cache.WriteDataToXml
 Set cache = Nothing
End Function

Rem 根据keyword取列表数据
Function GetSearcharr(keyword,curpage,PageSize,CachePageNum,ByRef RecordCount)
 openConn
 Dim sql
 Dim sqlkey
 sqlkey = Replace(keyword,"'","")
 sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  ThmName like '%"&sqlkey&"%' or ThmRange  like '%"&sqlkey&"%' or ThmInstro  like '%"&sqlkey&"%'  order by thmid desc"
 Dim cache
 Set cache = new XmlCacheCls
 cache.PageSize = PageSize     '每页N条记录
 cache.CachePageNum = CachePageNum    '一个xml文件缓存M页的数据量
 cache.XmlFile = Server.Mappath("xmlcache/searchxml/list_"&Server.URlEncode(Replace(keyword,"'",""))&".xml")
 cache.Sql = sql
 cache.CurPage = curpage
 cache.CacheType = 1
 Set cache.Conn = conn
 cache.ReadData
 Dim SqlArr
 SQLArr = cache.SQLArr
 RecordCount = cache.RecordCount
 Set cache = Nothing
 GetSearcharr = SqlArr
End Function
 
Rem 根据keyword生成xml缓存
Function CreateSearchxml(keyword,curpage,PageSize,CachePageNum,CacheTime)
 Dim sql
 Dim sqlkey
 sqlkey = Replace(keyword,"'","")
 sql = "select thmid,thmname,picfileurl,win_theme.adddate from win_theme where  ThmName like '%"&sqlkey&"%' or ThmRange  like '%"&sqlkey&"%' or ThmInstro  like '%"&sqlkey&"%'  order by thmid desc"
 Dim cache
 Set cache = new XmlCacheCls
 cache.CacheTime = CacheTime '缓存时间
 cache.PageSize = PageSize     '每页N条记录
 cache.CachePageNum = CachePageNum    '一个xml文件缓存M页的数据量
 cache.XmlFile =  Server.Mappath("xmlcache/searchxml/list_"&Server.URlEncode(Replace(keyword,"'",""))&".xml")
 cache.Sql = sql
 cache.CurPage = curpage
 cache.CacheType = 1
 Set cache.Conn = conn
 cache.WriteDataToXml
 Set cache = Nothing
End Function
Rem 根据classid取列表数据
Function GetDetailarr(thmid)
 openConn
 Dim sql
 sql = "select a.thmid,a.thmname,a.classid,b.classname,a.picfileurl,a.thmver,a.thmsize,a.thminstro,a.thmrange,a.thmfileurl,a.adddate from win_theme a,Win_Classify b where a.classid=b.classid and  a.thmid="&thmid&""
 Dim thmidmod
 thmidmod = thmid Mod 100
 
 Dim cache
 Set cache = new XmlCacheCls
 cache.XmlFile = Server.Mappath("xmlcache/detailxml/"&thmidmod&"/"&thmid&".xml")
 cache.Sql = sql
 cache.CacheType = 2
 Set cache.Conn = conn
 cache.ReadData
 Dim SqlArr
 SQLArr = cache.SQLArr
 Set cache = Nothing
 GetDetailarr = SqlArr
End Function
Rem 根据keyword生成xml缓存
Function CreateDetailxml(thmid,CacheTime)
 Dim sql
 sql = "select a.thmid,a.thmname,a.classid,b.classname,a.picfileurl,a.thmver,a.thmsize,a.thminstro,a.thmrange,a.thmfileurl,a.adddate from win_theme a,Win_Classify b where a.classid=b.classid and  a.thmid="&thmid&""
 Dim thmidmod
 thmidmod = thmid Mod 100
 Dim cache
 Set cache = new XmlCacheCls
 cache.CacheTime = CacheTime '缓存时间
 cache.XmlFile =  Server.Mappath("xmlcache/detailxml/"&thmidmod&"/"&thmid&".xml")
 cache.Sql = sql
 cache.CacheType = 2
 Set cache.Conn = conn
 cache.WriteDataToXml
 Set cache = Nothing
End Function

Rem 检测动态数组是否已分配
Function   ismalloc(a)
 On   Error Resume Next
 Dim   i  
 i   =   UBound(a)
 If Err Then
 ismalloc = False
 Else
 ismalloc   =   True  
 End If 
End   Function 
 
Function showData(SQLArr)
 If Not  ismalloc(SQLArr) Then Exit Function
 Dim i,k
 Dim num
 num = 0
 i = UBound(SQLArr,1)
 k = UBound(SQLArr,2)
 Dim m,n
 For m = 0 To k
  num = num+1
 %>
 <ul class="listbox" onMouseOver="overtb(this)" onMouseOut="outtb(this)">
<li>
<a title="<%=SQLArr(1,m)%>" href="detail.asp?id=<%=SQLArr(0,m)%>" target="_blank">
  <img height="140" alt="<%=SQLArr(1,m)%>" src="http://www.shouji138.com<%=SQLArr(2,m)%>" width="107" border="0"></a>
</li>
<li class="green bold">
<a title="<%=SQLArr(1,m)%>" href="detail.asp?id=<%=SQLArr(0,m)%>" target="_blank">
<%=walkgottopic(Trim(SQLArr(1,m)),18)%></a>
</li>
 <li><%=DateValue(SQLArr(3,m))%></li>
 </ul>
 <%
 next
End Function
%>

这个文件是业务逻辑层代码，负责根据不同的业务逻辑来实现xml数据的读取和写入，并提供接口方法给web表现层调用。