<% id=request("id") 'response.write id if request("page")="" then page=1 else page=cint(request("page")) end if 'response.write page fenlei=request("fenlei") set rs2=server.createobject("adodb.recordset") if id<>"" then sql="select * from pud where nbigarea="&fenlei&" and id="&id&" order by id desc" else sql="select * from pud where nbigarea="&fenlei&" order by id desc" end if 'response.write sql rs2.open sql,conn,1,1 if not rs2.eof then rs2.pagesize=1 rs2.absolutepage=page end if if rs2.eof then ' response.write("暂时还没有商品") end if %> 电加机床----台州亚克机电有限公司
首页 > 产品展示 <% if fenlei<>"" then Set rs3=Server.CreateObject("ADODB.RecordSet") sql="select * from nbigarea where id="&fenlei 'response.write sql 'response.end rs3.open sql,conn,1,1 %> ><%=rs3("nbigarea")%> <% rs3.close set rs3=nothing end if %> <% if fenlei<>"" then Set rso=Server.CreateObject("ADODB.RecordSet") sql="select * from nbigarea where id="&fenlei 'response.write sql 'response.end rso.open sql,conn,1,1 %> " /><% rso.close set rso=nothing else %> <%end if%>
<% if not rs2.eof then %>
" width="444" height="250" border="0" />
<% for i=1 to 1 if rs2.eof then exit for %>
<%=rs2("title")%>
<%=replace(replace(replace(rs2("content"),"border=1","border=0")," <% next else%>
暂时还没有商品
<% end if %>
<%if rs2.pagecount>1 then %> 首页 <%if page<>1then%> 上一页 <%end if%>   <%if page<>rs2.pagecount then%> 下一页 <%end if%> 尾页 <%end if%> 页次:<%=page%>/<%=rs2.pagecount%> 共<%=rs2.recordcount%>个产品 转到:  
<% rs2.close set rs2=nothing %>