<%=web_title%>

<% productsclass=request("productsclass") 'if productsclass<>"" then 'classname=conn.execute("select [name_cn] from koba_productsclass where id="&productsclass)(0) 'sq=" and productsclass="&productsclass&" " 'end if if ProductsClass<>"" then ParentID=conn.execute("select ParentID from koba_ProductsClass where id="&int(ProductsClass))(0) Child=conn.execute("select Child from koba_ProductsClass where id="&int(ProductsClass))(0) classname=conn.execute("select [name_cn] from koba_productsclass where id="&productsclass)(0) if ParentID=0 and Child>0 then ProductsClassString=0 set rs=server.createobject("adodb.recordset") sql="select id from koba_ProductsClass where ParentID="&int(ProductsClass)&"" rs.open sql,conn,1,1 do while not rs.eof ProductsClassString=ProductsClassString&","&rs("id") rs.movenext loop rs.close set rs=nothing sq=sq&" and ProductsClass in ("&ProductsClassString&") " else sq=sq&" and ProductsClass="&int(ProductsClass)&" " end if end if %> <%=web_title%>

首页 / 商品一览<%if productsclass<>"" then%> / <%=classname%><%end if%>

<%Set rs = Server.CreateObject("ADODB.RecordSet") sql="select id,title_cn,pic from koba_Products where id>0 "&sq&" order by up desc,Preface asc,id desc" 'Response.Write(sql) rs.open sql,conn,1,1 Set Page = New SplitPage Page.Conn = conn Page.SQL=sql Page.PageSize = 32 Page.Style = 3 Set Rs = Page.Rs if rs.eof and rs.bof then %> <%else n=0 for j=1 to Page.PageSize n=n+1 %> <%if n mod 4=0 then response.write"" Rs.MoveNext Next %> <%Set Page = Nothing Rs.Close: Set Rs = Nothing end if%>

暂无!

<%=rs("title_cn")%>

<%Call Page.ShowPage%>