<% 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 %> <%=SiteTitle%>
<%=SiteDetail%>MORE
<%set rs = server.CreateObject("adodb.recordset") sql = "select top 6 * from pecker_ProductSort where ViewFlag and ParentID<>0 order by id asc" rs.open sql,conn,1,3 do while not rs.eof %> "><%=rs("SortName")%> <%rs.movenext loop rs.close set rs = nothing%>
精品推荐 / RECOMMEND PRODUCT
新闻资讯 / NEWS
<%set rs = server.CreateObject("adodb.recordset") sql = "select top 6 * from pecker_News where ViewFlag order by id desc" rs.open sql,conn,1,3 do while not rs.eof %>
  • "><%=rs("NewsName")%><%=FormatDate(rs("Addtime"),14)%>
    • <%rs.movenext loop rs.close set rs = nothing%>