<% Dim value1,value2,big_id1,small_id1,page,url value1=replace(Request.ServerVariables("QUERY_STRING"),".html","") if value1="" then big_id1="" else value2=split(value1,"-") big_id1=value2(0) small_id1=value2(1) page=value2(2) url=value2(3) end if %> <% key=trim(request("key")) %> <%set rss=server.createobject("adodb.recordset") if big_id1="" then response.write ""&e_keywords&"" else sql="select * from yuzhiguo_big_class where big_id="&big_id1&"" rss.open sql,conn,1,1 if rss.eof and rss.bof then else weizhi=" > "+rss("e_name") %> <%=rss("e_name")%> <% rss.close set rss=nothing end if end if%><%set rss=server.createobject("adodb.recordset") if small_id1="" then else sql="select * from yuzhiguo_small_class where small_id="&small_id1&"" rss.open sql,conn,1,1 if rss.eof and rss.bof then else weizhi=weizhi+" > "+rss("e_name") %> - <%=rss("e_name")%> <%rss.close set rss=nothing end if end if%>,Products - <%=e_title%>
Products <%=weizhi%>
<%if key<>"" then%>Key words "<%=key%>"search results : <%end if%> <% DIM totalPut DIM CurrentPage DIM TotalPages DIM MaxPerPage DIM pagename MaxPerPage=product_page'定义一页显示产品数 pagename=""'页面名称 DIM i,j IF not isempty(page) then currentPage=cint(page) ELSE currentPage=1 END IF DIM sql Set Rs=Server.CreateObject("ADODB.Recordset") if big_id1="" then Sql="Select * From yuzhiguo_products where e_cpmc like '%"&key&"%' or cpbh like '%"&key&"%' or e_intro like '%"&key&"%' order by sort desc,id desc" elseif big_id1<>"" and small_id1=0 then Sql="Select * From yuzhiguo_products where big_id="&int(big_id1)&" order by sort desc,id desc" elseif big_id1<>"" and small_id1<>"" then Sql="Select * From yuzhiguo_products where big_id="&int(big_id1)&" and small_id="&int(small_id1)&" order by sort desc,id desc" end if Rs.Open Sql,Conn,1,1 if rs.eof and rs.bof then response.write "" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,pagename else if (currentPage-1)*MaxPerPage <% cols=product_hang'一行显示产品数 do while not rs.eof if a mod cols=0 then response.Write("") a=a+1 %> <% if a=MaxPerPage then exit do rs.movenext loop %>
No Data
"> src="<%=get_pic(rs("pic"),2)%>" <% else %> src="<%=rs("pic")%>" width="<%=pic_width%>" height="<%=pic_height%>" <% end if %> alt="<%=rs("e_cpmc")%>" border="0" />
" ><%if cpbh="yes" then %><%=rs("cpbh")%>
<%end if%> <%if cpmckq="yes" then %><%=rs("e_cpmc")%><%end if%>
<% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if if big_id1="" then big_id="" else big_id=big_id1 end if if small_id1="" then small_id="" else small_id=small_id1 end if %> Total Products: <%=totalnumber%> Page: <%=CurrentPage%> of <%=n%> <% if CurrentPage=1 then%> First ←Previous <% else %> First ←Previous <% end if%> <% if CurrentPage Next→ End <% else %> Next→ End <% end if%> <%end function%>