<% dim big,small big=request.QueryString("big") small=request.QueryString("small") set rs=server.CreateObject("adodb.recordset") if big="" and small="" then sql="select * from clkj_Products order by clkj_paixu,clkj_prid asc" else if big<>"" and small="" then sql="select * from clkj_Products where clkj_BigClassID="&big&" order by clkj_paixu,clkj_prid asc" else if small<>"" and big="" then sql="select * from clkj_Products where clkj_SmallClassID="&small&" order by clkj_paixu,clkj_prid asc" end if end if end if rs.open sql,conn,1,1 If rs.eof Then response.write"
Sorry, no related products!
" Else rs.pagesize=clkj_config_sl page=request("page") If Not Isnumeric(page) or page="" Then page=1 else page=cint(page) End if if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.AbsolutePage = page %>
  • Home > <%call ileibie()%>
Products List <%if page<>1 then %> ?page=<%=page-1%><%else if big<>"" and small="" then%>?big=<%=big%>&page=<%=page-1%><%else if small<>"" and big="" then%>?small=<%=small%>&page=<%=page-1%> <% end if end if end if %> > <%end if%> <%if page ?page=<%=page+1%><%else if big<>"" and small="" then%>?big=<%=big%>&page=<%=page+1%><%else if small<>"" and big="" then%>?small=<%=small%>&page=<%=page+1%> <% end if end if end if %> > <%end if%>
<% for i=1 to rs.pagesize clkj_pic_time = Rs("clkj_time") clkj_pic_prkey = Rs("clkj_prkey") mystr=clkj_pic_prkey a=Split(mystr,",") For Each StRss In a clkj_pic_time=clkj_pic_time& " " &StRss&" " next j=1 b=Split(rs("clkj_prpic"),",")'取一条图片记录 For Each CStRss in b if j<=1 then IF isobjinstalled("Persits.Jpeg") Then clkj_prpic=Replace(CStRss,"upfile/","upfile/smallpic/") Else clkj_prpic=CStRss End IF End if j=j+1 Next %>

" target="_blank"><%=rs("clkj_prtitle")%>

">Inquire Now
<%=left(RemoveHTML(Rs("clkj_prcontent")),200)%>...
[ <%=clkj_pic_time%> ]
<% rs.movenext if rs.eof then Exit For End if next end if %>
<%if page<>1 and page<>0 then %> ?page=<%=page-1%><%else if big<>"" and small="" then%>?big=<%=big%>&page=<%=page-1%><%else if small<>"" and big="" then%>?small=<%=small%>&page=<%=page-1%> <% end if end if end if %> > <%end if%> <%'分页 if big=""and small="" then if page>2 then s1=page-2 else s1=1 if page=2 then response.write "1.." for j=s1 to s2 if j=page then response.write ""&j&"  " else response.write ""&j&"  " end if next if s2"&rs.pagecount&"" else if big<>""and small="" then if page>2 then s1=page-2 else s1=1 if page=2 then response.write "1.." for j=s1 to s2 if j=page then response.write ""&j&"  " else response.write ""&j&"  " end if next if s2"&rs.pagecount&"" else if big=""and small<>"" then if page>2 then s1=page-2 else s1=1 if page=2 then response.write "1.." for j=s1 to s2 if j=page then response.write ""&j&"  " else response.write ""&j&"  " end if next if s2"&rs.pagecount&"" end if end if end if %> <%if page ?page=<%=page+1%><%else if big<>"" and small="" then%>?big=<%=big%>&page=<%=page+1%><%else if small<>"" and big="" then%>?small=<%=small%>&page=<%=page+1%> <% end if end if end if %> > <% end if rs.close %>
  • <%=bottom%>
<%call allclose()%>