"> + <%=rs_big("bigclassname")%> | |
<%set rs_small=server.CreateObject("Adodb.RecordSet")
rs_small.open "select * from zp_smallclass where forbigclassid="&rs_big("id")&" order by sx asc",conn,1,1
if rs_small.recordcount<>0 then
do while not rs_small.eof%>
|
电话:0319-7502567
传真:0319-8138694
E-mail:827834959@qq.com
地址:河北省清河县刘庄工业园区10号
<%Set rs=Server.CreateObject("ADODB.RecordSet")
bfl=request("bfl")
sfl=request("sfl")
if sfl="" then
if bfl="" then
strsql="select * from zp where shenhe=1 order by id desc"
else
strsql="select * from zp where shenhe=1 and bigclassid="& bfl &" order by id desc"
end if
else
strsql="select * from zp where shenhe=1 and bigclassid="& bfl &" and smallclassid="& sfl &" order by id desc"
end if
rs.Open strsql,conn,1,1
if rs.eof then
response.write "
|
<% if rs.pagecount>1 then response.Write "第"&pagecount&"页/共"&rs.pagecount&"页 " if pagecount>=5 then if sfl="" then if bfl="" then response.write"<< " else response.write"<< " end if else response.write"<< " end if end if q=(cstr(pagecount)-1)\5 if q<0 then q=1 end if p=(q*5)+1 do while p<((q*5)+6) If p=pagecount Then Response.Write "第 "& p &" 页 " Elseif p<=rs.pagecount then if sfl="" then if bfl="" then Response.Write"第 "& p &" 页 " else Response.Write"第 "& p &" 页 " end if else Response.Write"第 "& p &" 页 " end if End If p=p+1 loop A=rs.pagecount if (A mod 5)=0 then A=rs.pagecount-1 end if if pagecount<(A\5)*5 then if sfl="" then if bfl="" then response.write">>" else response.write">>" end if else response.write">>" end if end if End If%> |
旭丰专做橡胶密封条26年