<% Response.Buffer = True //If Session("sID") = "" Then // Session("sDoing") = "parts" // Session("sURL") = "/2008/parts/default.asp" // Response.Redirect("/member/login.asp") //End If strPageNo = Request("PageNo") If IsEmpty(strPageNo) Then strPageNo = "1" If Not IsNumeric(strPageNo) Then strPageNo = "1" intPageNo = cLng(strPageNo) if intpageno < 1 then intpageno = 1 strClass = Request("class") strClass = replace(Replace(strClass, "'", "''"), "%", "%%") strfind = request("find") if isempty(strfind) then strfind = "" strtemp = strfind intNewsListRows = 20 intNewsintNewsListCols = 60 intTotalRows = 0 intTotalPages = 0 Set objCn1 = Server.CreateObject("ADODB.Connection") Set objRst1 = Server.CreateObject("ADODB.RecordSet") Set objRst2 = Server.CreateObject("ADODB.RecordSet") objCn1.Open "WEBDB" strQry = "SELECT ID, CLASSFICATION FROM XINGWOLSTPARTS WHERE ID='" & strClass & "' OR CLASSFICATION = '" & strClass & "'" objRst1.Open strQry, objCn1 strClassID = "" strClass = "" If Not objRst1.Eof Then strClassID = objRst1.Fields("ID") strClass = objRst1.Fields("CLASSFICATION") End If If objRst1.State = 1 Then objRst1.Close strQry = "SELECT ""ID"", ""MID"", ""CATIDS"", ""BRAND"", ""TITLE"", ""DESCRIPTION"", ""MODEL"", ""PRICEX"", ""STORE"", ""MOUNT"", ""PUBDATE"" FROM ""XINGWOPARTS"" " strQry = strQry + " WHERE ""ISPUBLISHED"" > 0 " //strQry = strQry + " WHERE ""ISPUBLISHED"" > 0 AND ""PUBDATE"" > CURRENT DATE - 900 DAYS " strQry = strQry + " AND CATIDS LIKE '%" & strClassID & "%' " if strfind <> "" then strfind = ucase(replace(strfind, "'", "''")) strfind = replace(strfind, "%", "%%") strfind = "'%" & strfind & "%'" strqry = strqry & " AND UCASE(TITLE) LIKE " & strfind end if //strMID = ""MRBAI"" // strmid = ucase(replace(strmid, "'", "''")) // strmid = replace(strmid, "%", "%%") // strmid = "'%" & strmid & "%'" // strqry = strqry & " AND UCASE(MID) =" & sqlstring(MRBAI, " ") // strqry = strqry & " AND MID =" & sqlstring(MRBAI, " ") // TITLE=" & sqlstring(strtitle, " ") strQry = strQry + " ORDER BY ID DESC " objRst1.Open strQry, objCn1 Do While Not objRst1.Eof objRst1.MoveNext intTotalRows = intTotalRows + 1 Loop intTotalPages = intTotalRows \ intNewsListRows If IntTotalRows MOD intNewsListRows > 0 Then intTotalPages = intTotalPages + 1 If Not objRst1.Bof Then objRst1.MoveFirst If intPageNo > intTotalPages Then intPageNo = intTotalPages intCount = 0 Do While intCount < (intPageNo - 1) * intNewsListRows objRst1.MoveNext intCount = intCount + 1 Loop intCount = 0 %> 配件仓库--星沃机械工程有限公司

  您的位置：首页 >> 配件仓库

 配件供应 | 配件仓库    

专业物流系统，不低于90%OTC供货，量身式备件供应套餐，全面覆盖每个施工领域，让客户专注于设备使用本身。

请输入零件编码：

目 前 网 上 库 存 最 新 情 况

  <% If objRst1.eof Then Response.Write ("（对不起，您查询的配件不存在。）") End If %>                                                <% If intPageNo > 1 And intPageNo <= intTotalPages Then Response.Write "显示第" & (intPageNo - 1) & "页  " End If %> <% If intPageNo < intTotalPages Then Response.Write "  显示第" & (intPageNo + 1) & "页" End If %>  
<%intCount = 0 do while not objRst1.eof and intcount < intNewsListRows intcount = intcount + 1%> <% objRst1.movenext loop %>
品牌 零件编号 配件名称 适用机型 现货价 库存地 数量

<% If mystrlen(objRst1.Fields("BRAND"))<1 then Response.write "---" Else Response.write objRst1.Fields("BRAND") End if %>

<% str1 = dispstr(maxstr(objRst1.Fields("Title"), intNewsListCols)) Response.write str1%>

<% Response.write objRst1.Fields("DESCRIPTION") %>

<% If mystrlen(objRst1.Fields("MODEL"))<1 then Response.Write "---" Else Response.write objRst1.Fields("MODEL") End if %>

 <% If FormatNumber(objRst1.Fields("PRICEX") ,2) < 0.01 then Response.write "---" Else Response.write FormatNumber(objRst1.Fields("PRICEX") ,2) End if %> <% If mystrlen(objRst1.Fields("STORE")) < 1 then Response.write "---" Else Response.write objRst1.Fields("STORE") End if %> <% If mystrlen(objRst1.Fields("MOUNT")) < 1 then Response.write "---" Else Response.write objRst1.Fields("MOUNT") End if %>
　

 星沃机械工程有限公司 版权所有 中国工程机械商贸网 制作维护