<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%=web_title%> >
Products

<% bclassid=trim(request.QueryString("bclassid")) sclassid=trim(request.QueryString("sclassid")) set rs=server.CreateObject("adodb.recordset") if bclassid <> "" then rs.open"select * from web_products where bclassid="&bclassid&" order by adddate desc",conn,1,1 elseif sclassid <> "" then rs.open"select * from web_products where sclassid="&sclassid&" order by adddate desc",conn,1,1 else rs.open"select * from web_products order by adddate desc",conn,1,1 end if rs.pagesize=5 dim page page=1 if request("page") <>"" then page=cint(request("page")) end if if not rs.eof and not rs.bof then rs.absolutepage=page end if count=rs.pagesize if rs.eof and rs.bof then%> <%end if%> <%do while not rs.eof and count>0%> <%count=count - 1 rs.movenext loop %>
½¨ÉèÖÐ...
<%if rs("pic1")<>"" then%> " target="_blank"> " alt="<%=rs("product_name")%>" width="150" border="0" height="120" /> <%else%> <%end if%> " target="_blank"><%=rs("product_name")%>
<%=rs("title1")%>
<%=rs("title2")%>
" target="_blank"> ">
Total <%=rs.RecordCount%> <%=Page%>/<%=rs.pagecount%> Page
<%if Page>1 then%>7 Pre <%end if%> <%if Page < rs.pagecount then %>8 Next<%end if%> Goto   
¡¡ Products list
<% set web_rs=server.CreateObject("adodb.recordset") web_rs.Open "select * from web_bsort order by border ",conn,1,1 do while not web_rs.eof %> <%set rs1=server.CreateObject("adodb.recordset") rs1.open"select * from web_ssort where bclassid="&web_rs("bclassid")&" order by sorder",conn,1,1 if rs1.eof and rs1.bof then end if do while not rs1.eof%> <% rs1.movenext loop rs1.close %> <% web_rs.movenext loop %>
¡¡+ " style=" font-size:12px; font-weight:bold;"><%=web_rs("bclass")%>
¡¤" style=" font-size:12px;"><%=rs1("sclass")%>