<!--#include file="Cache/QvodCms.Sql.asp"-->
<!--#include file="Include/QvodCms.Lable.asp"-->
<%
Dim CurrentPage,AllPages,PageStr,class_id
class_id=QvodCms_CLng(Request.QueryString("class_id"))
If class_id>0 Then
CurrentPage=QvodCms_CLng(Request.QueryString("Page")) : If CurrentPage<1 Then CurrentPage=1
Lable_Cache="Lable_Cache_ListNews"&class_id
If Cint(Config(19))=1 and CacheObj.ChkCache(Lable_Cache) Then '直接替换缓存模板值
	Call LableObj.OpenQvodCmsNews(CacheObj.GetCache(Lable_Cache))
	Call LableObj.OpenQvodCmsList(LableObj.Content)
	Call LableObj.OpenQvodCmsProduct(LableObj.Content)
ElseIf Cint(Config(19))=1 and CacheObj.ChkCache(Lable_Cache)=False Then 
	Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&GetClassSkinNews(class_id))
	Call CacheObj.SetCache(Lable_Cache,LableObj.Content)
	Call LableObj.OpenQvodCmsNews(LableObj.Content)
	Call LableObj.OpenQvodCmsList(LableObj.Content)
	Call LableObj.OpenQvodCmsProduct(LableObj.Content)
Else
	Call Moban_Data_Str(Config(0)&"Skin/"&Config(12)&"/"&AdminId(12)&GetClassSkinNews(class_id))
	Call LableObj.OpenQvodCmsNews(LableObj.Content)
	Call LableObj.OpenQvodCmsList(LableObj.Content)
	Call LableObj.OpenQvodCmsProduct(LableObj.Content)
End If
End If
Call OpenContent(LableObj.Content)
Set CacheObj = Nothing
Set LableObj = Nothing
Call CloseConn()
%>