<% lm=trim(request("lm")) if lm="" then lm=trim(Request("lm2")) page=trim(request("page")) if page="" then page=1 if lm="" then lm=0 if lm2="" then lm2=lm if lm="" then lm=lm2 if lm2="" then lm2=0 showlm=lm Sql="select * from news where titleimg<>'' and sh=1 " if lm<>"0" then sql=sql&" and (lm='"&lm&"' or lm2='"&lm&"' or lm3='"&lm&"') " sql=sql&" order by updat asc,id asc " Set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 total=rs.recordcount perpage=1 page=request("page") if page="" then page=1 %> <%=m_sitname%>--Products

Products

page: <%if int(page)>1 then%> Prev <%end if if int(total)<=5 then startj=1 endj=total else if int(page)<=5 then startj=1 if total<10 then endj=total else endj=10 end if else if int(page)+5<=total then startj=int(page)-5 endj=int(page)+5 else startj=int(page)-5 endj=total End If End If end if ssstr="" eeestr="" %> <%for i=startj to endj if int(page)=i then response.write i else%>  <%=i%>  <%end if%> <%next%> <%if int(page) Next <%end if%>
<%if not(rs.eof and rs.bof) then rs.move (int(page)-1)*perpage %>
.html"><%=rs("content")%>
page: <%if int(page)>1 then%> Prev <%end if if int(total)<=5 then startj=1 endj=total else if int(page)<=5 then startj=1 if total<10 then endj=total else endj=10 end if else if int(page)+5<=total then startj=int(page)-5 endj=int(page)+5 else startj=int(page)-5 endj=total End If End If end if ssstr="" eeestr="" %> <%for i=startj to endj if int(page)=i then response.write i else%>  <%=i%>  <%end if%> <%next%> <%if int(page) Next <%end if%>
<% else response.write "No information" end if%>