<% Call SiteInfo if ISHTML = 1 then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If if request.QueryString("SortID")="" then SeoTitle=LiangjingCMSChLanguage226 ClassSeo=ProSortName elseif not IsNumeric(request.QueryString("SortID")) then SeoTitle=LiangjingCMSChLanguage16 elseif conn.execute("select * from LiangjingCMS_ProductSort Where "&ViewFlag&" and ID="&request.QueryString("SortID")).eof then SeoTitle=LiangjingCMSChLanguage16 else set rs = server.createobject("adodb.recordset") sql="select * from LiangjingCMS_ProductSort where "&ViewFlag&" and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 SeoTitle=rs("SortName"&Language) ClassSeo=rs("ClassSeo") rs.close set rs=nothing end If Headid=4 %> <% =SeoTitle %><% =SiteTitle %>

商品目录

<%Call LiangjingCMSProductFolderi(0,"Producturl_","LiangjingCMS_ProductSort")%>
<%=pictitle5%>

获取最新消息

<%Call LiangjingCMSEMailSubscriptions()%>

<%=LiangjingCMSProductLWebLocation("LiangjingCMS_ProductSort","Producturl_","Productname")%>

<%=LiangjingCMSProductLWebContent("LiangjingCMS_ProductSort",request.QueryString("SortID"),"",161,161,"LiangjingCMS_Products","Producturl_",request.QueryString("whereorder"))%>