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
