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