<%Response.Buffer=true%> <% Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry,SubRst Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set SubRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase //库连接 ObjRst.Open "select * from diy_productlst where corpid="&CorpNo*10,ObjCon %> 徐工集团、徐工备件徐工配件专卖、徐工装载机配件、压路机配件、平地机配件、汽车吊配件、摊铺机配件、徐工整机配件出口商--徐州恒铭机械设备有限公司
   徐工配件专营
<%Do While Not ObjRst.Eof%>
<%ObjRst.MoveNext Loop %>

销售网络

 
 您现在的位置:首页 >> 配件供应

零配件查询: 

<% Dim LngCate,StrKey LngCate=Trim(Request("class")) StrKey=Trim(Request("key")) StrKey=Replace(StrKey,"'","''") StrWhere=" where ispublished=1 and corpid="&corpNo If IsNumeric(LngCate) Then StrWhere=StrWhere&" and class="&LngCate If StrKey<>"" Then StrWhere=StrWhere&" and (title like '%"&StrKey&"%' or Ucase(c_no) like '%"&Ucase(StrKey)&"%' or Ucase(g_no) like '%"&Ucase(StrKey)&"%')" PerLine=3 TotalLine=3 PerWidth=FormatPercent(1/PerLine,0) Dim PerPage PerPage=PerLine*TotalLine TotalPage=0 TotalRecords=0 CurrPage=Request("page") If CurrPage="" Or Not IsNumeric(CurrPage) Then CurrPage=0 If CurrPage<1 Then CurrPage=0 CurrPage=Int(CurrPage) //=================================== If ObjRst.State=1 Then ObjRst.Close ObjRst.Open "SELECT Count(id) cc FROM custom_parts "&StrWhere,ObjCon TotalRecords=ObjRst.Fields("cc") ObjRst.Close //=================================== 信息显示 TotalPage=Int(TotalRecords/PerPage) If PerPage*TotalPageTotalPage Then CurrPage=TotalPage If CurrPage=0 Then CurrPage=1 ObjRst.Open "select title,img1 catimg_s,c_no,g_no from custom_parts "&StrWhere,ObjCon i=0 If CurrPage>1 Then Do While Not ObjRst.Eof And i<(CurrPage-1)*PerPage i=i+1 ObjRst.MoveNext Loop End If If Not ObjRst.Eof Then Response.Write "
" Response.Write "" k=1 Do While Not ObjRst.Eof And k<=PerPage Response.Write "" If k Mod PerLine=0 Then Response.Write "" ObjRst.MoveNext k=k+1 Loop //补充空 k=k-1 Do While k Mod PerLine<>0 And k<=PerPage Response.Write "" k=k+1 Loop Response.Write "
" %> <%//显示区域结束 Response.Write "
 
" //显示结束 Else Response.write "没有 找到符合条件的信息。" End If ObjRst.Close %>
每页 <%=Perpage%> 条 ,共 <%=TotalPage%> 页, <%=TotalRecords%>条  ,>> 首页   上页    下页    末页  转
<%If Objrst.State=1 THen ObjRst.Close If SubRst.State=1 THen SubRst.Close Set ObjRst=Nothing Set SubRst=Nothing ObjCon.Close Set ObjCon=Nothing %>