Hebei Yaochuan Vehicle and Vessel Parts Co.,Ltd.

<% set rs_big=server.createobject("Adodb.RecordSet") rs_big.open "select * from zp_bigclass order by sx asc",conn,1,1 if rs_big.recordcount=0 then else rs_big.PageSize=10 if absolutePage=0 then absolutePage=1 end if rs_big.AbsolutePage=absolutePage for i=0 to rs_big.pagesize if rs_big.eof then exit for end if%> <% id2=int(rs_big("id")) bfl=int(request("bfl")) if bfl=id2 then asa="" else asa="DISPLAY: " end if %>

"> + <%=rs_big("bigclassname")%>

<%rs_big.movenext next end if%> TEL:08618932955568

Hebei Yaochuan Vehicle and Vessel Parts Co.,Ltd.
TEL:+86-319-8223456
FAX:+86-319-8192199
Sales(International)：
Phone: +8618932955568
QQ：61769376
E-mail:61769376@qq.com
Address: No. 152, qinwa industrial zone, wang guanzhuang town, qinghe county, hebei province, China

PRODUCTS

<%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 "

没有发现产品，请管理员到后台添加!" else rs.movefirst if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 end if rs.pagesize=27 if pagecount>rs.pagecount or pagecount<=0 then pagecount=1 end if rs.AbsolutePage=pagecount %> <%j=1 do while not (rs.eof or err) if (j mod 3)=1 then response.write "" end if%> <%if (j mod 3)=0 then response.write "" end if j=j+1 rs.moveNext if j>27 then exit do loop %>

" border="0" onMouseOver="this.style.filter='alpha(opacity=100)';high(this)" onmouseout=low(this) style="border:1px solid #000000; margin:4px; CURSOR: hand; ">

[Rubber seal]

<%end if%>

<% if rs.pagecount>1 then response.Write ""&pagecount&"Page"&rs.pagecount&"Page " 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 &" Page " Elseif p<=rs.pagecount then if sfl="" then if bfl="" then Response.Write" "& p &" Page " else Response.Write" "& p &" Page " end if else Response.Write" "& p &" Page " 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%>