<% '请勿改动下面这二行代码 MaxPerPage=Procount strFileName="Product.asp" if Trim(request.QueryString("ClassID"))<>"" then strFileName="Product.asp?ClassID=" & ClassID set rs=server.createobject("adodb.recordset") sql="select * from okuoo_ProductClass where ClassID="& ClassID &" order by ClassID" rs.open sql,conn,1,3 bsortname=rs("ClassName") toptitle=rs("ClassName") rs.close set rs = nothing end if if len(bsortname)=0 then bsortname="产品超市" end if const ChannelID=2 HeadTitle="产品超市" if HeadTitle<>"" then SiteTitleAll= HeadTitle &"-"& toptitle & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %> <% 'Title=request.QueryString("Title") ID=replace(Trim(request.QueryString("ID")),"'","") Set rs = Server.CreateObject("ADODB.Recordset") if ID="" or not IsNumeric(ID) then sql="select top 1 * from okuoo_Aboutus" else sql="select * from okuoo_Aboutus where ID="&ID end if rs.open sql,conn,1,3 HeadTitle=rs("Title") if HeadTitle<>"" then SiteTitleAll= HeadTitle & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %>
<% set pdrs=server.createobject("adodb.recordset") sql="select * from okuoo_ProductClass where ParentID=0 order by ClassID" pdrs.open sql,conn,1,3 do while not pdrs.eof %>
&title=<%=pdrs("ClassName")%>" class="left_link"><%=pdrs("ClassName")%>
<% pdrs.movenext loop pdrs.close set pdrs=nothing %>
 
<%= bsortname %> <% call ShowClassGuide() %>
<% call ShowProduct(32) %>
<% call ShowProductTotal() %> <% if totalput>0 then call showpage(strFileName,totalput,MaxPerPage,false,true,"个产品") end if %>