<% Function Get_SEO_chanpin_title() '网站产品列表页SEO_chanpin_title调用 Dim chanpin_title set rs_name = Server.CreateObject("ADODB.RecordSet") sql_name="select * from CM_SEO_L" rs_name.open sql_name, conn,1,1 if not rs_name.eof and not rs_name.bof then chanpin_title=rs_name("SEO_chanpin_title") else chanpin_title="" end if rs_name.close set rs_name=nothing If chanpin_title = "" then Get_SEO_chanpin_title = "产品超市|"& get_title Else Get_SEO_chanpin_title = chanpin_title End if End Function Function Get_SEO_chanpin_description() '网站产品列表页SEO_chanpin_description调用 Dim chanpin_description set rs_name = Server.CreateObject("ADODB.RecordSet") sql_name="select * from CM_SEO_L" rs_name.open sql_name, conn,1,1 if not rs_name.eof and not rs_name.bof then chanpin_description=rs_name("SEO_chanpin_description") else chanpin_description="" end if rs_name.close set rs_name=nothing If chanpin_description = "" then Get_SEO_chanpin_description = "产品超市|"& get_description Else Get_SEO_chanpin_description = chanpin_description End if End Function Function Get_SEO_chanpin_keywords() '网站产品列表页SEO_chanpin_keywords调用 Dim chanpin_keywords_2 set rs_name = Server.CreateObject("ADODB.RecordSet") sql_name="select * from CM_SEO_L" rs_name.open sql_name, conn,1,1 if not rs_name.eof and not rs_name.bof then chanpin_keywords_2 = rs_name("SEO_chanpin_keywords_2") else chanpin_keywords_2 = "" end if If chanpin_keywords_2 = "" then Get_SEO_chanpin_keywords = "产品超市|"& get_keywords Else If rs_name("SEO_chanpin_keywords_1") = 1 then chanpin_keywords_2 = get_keywords & "," & chanpin_keywords_2 End If Get_SEO_chanpin_keywords = chanpin_keywords_2 End if rs_name.close set rs_name=nothing End Function %> <%= News_chanpin_name(Trim(Request.QueryString("xx_chanpin_class_id"))) &"_"& get_hostname %>

<%= News_chanpin_name(Trim(Request.QueryString("xx_chanpin_class_id"))) %>

    <% if request("page")="" then ThisPage=1 else ThisPage=request("page") end if Set Rs_chanpin = Server.CreateObject("ADODB.RecordSet") if request("xx_chanpin_class_id")=1 then Rs_chanpin.open " select * from xx_chanpin_content where xx_chanpin_content_class not in (2,17,18) and xx_chanpin_content_xianshi = 1 and xx_chanpin_content_shenhe = 1 order by xx_chanpin_content_paixu asc,xx_chanpin_content_date desc ",conn,1,1 else Rs_chanpin.open " select * from xx_chanpin_content where (xx_chanpin_content_class = "& CheckStr(request("xx_chanpin_class_id")) &" or xx_chanpin_content_class in (select xx_chanpin_class_id from xx_chanpin_class where xx_chanpin_class_sj = "& CheckStr(request("xx_chanpin_class_id")) &")) and xx_chanpin_content_xianshi = 1 and xx_chanpin_content_shenhe = 1 order by xx_chanpin_content_paixu asc,xx_chanpin_content_date desc ",conn,1,1 end if Rs_chanpin.Pagesize=15 Pagesize=Rs_chanpin.Pagesize Allrecord=Rs_chanpin.Recordcount Allpage=Rs_chanpin.Pagecount if ThisPage<1 then ThisPage=1 end if On Error Resume Next Rs_chanpin.move (ThisPage-1)*Pagesize k=0 If Not Rs_chanpin.bof And Not Rs_chanpin.eof Then Do while Not Rs_chanpin.eof %>
  • "> " onload="DrawImage(this,225,155)" />
    <%= Rs_chanpin("xx_chanpin_content_name") %>
    • <% k=k+1 Rs_chanpin.Movenext if k>=Pagesize then exit do Loop End If %>
    <% if ThisPage<2 then response.write "首页 " response.write "上一页 " else response.write "首页 " response.write "上一页 " end if if Allpage-ThisPage<1 then response.write "下一页 " response.write "尾页 " else response.write "下一页 " response.write "尾页 " end if %> <% Rs_chanpin.close Set Rs_chanpin = Nothing %>