?html> 二手机械--I山甲工E机械有限公?/title> <meta name="keywords" content="玉柴挖掘机|q挖掘机|OM叉R"> <meta name="description" content=" I山甲机械是一家专业化的小型工E机械销售及l修服务企业。是国IngersoLL-Rand英格索兰q公司及玉柴机器工E机械公司山东授权独家代理商?> <link rel="stylesheet" href="../00css/style.css"> <script language="Javascript" src="../00js/quick.js"></script> <script LANGUAGE="JavaScript"> <!-- function pop(pageurl) { popwin = window.open(pageurl,"popWin","scrollbars=no,toolbar=no,location=no,directories=no,status=no,menubar=no, top=0, left=0,width=480,height=350"); popwin.focus(); return false; } //--> </script> <meta http-equiv="Cache-Control" content="no-transform" /> <meta http-equiv="Cache-Control" content="no-siteapp" /> </head> <body topmargin="0" leftmargin="0"> <script>document.title='ʮĻ޹˾';</script> <title>福建彩票大奖|宜昌6oo万彩票大奖|

 

 

 

 


 

 
<% // Option Explicit Response.Buffer = True // 特别提醒Q?Z证页面的观Q本E序在生成HTML代码的时?加了样式 Q样?c??P92 Q请一定保证样式表中有此类? //*******************************帔R定义开? Const LngCorp=6054 //* 定义客户~号 Const PerLine=1 //* 定义每行昄的图片条? Const TotleLine=10 //* 定义昄多少? Const MainCate=2 Const CurrFile="default.asp" //*定义套用此脚本的面文g名,必须为ASP文g Const IsOpen=0 //*定义是否在弹出窗口浏览大图? Const ImgWidth=220 //*定义囄的显C宽度,0表示无限? Const ImgHeight=165 //*定义囄的显C高度,0表示无限? //*******************************帔R定义l束 //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆? //所有控制参数的定义在上面进行,下面的脚本修改请联系技术开发h员◆? //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆? Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open "WD102" //q接数据? //=================================== StrSql="Select id,title,brand,model,img1,ispublished,place,price,img10_title,img9_title,img10 FROM diy_products" //* 定义查询语句 StrWhere=" Where corpid="&LngCorp&" And ispublished=1" //定义查询条g StrOrder=" Order by id desc" //定义排序规则 StrQry="" //=================================== Dim TotalPage,TotalRecords,CurrPage,Flg,i,k Dim PerPage PerPage=PerLine*TotleLine 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 diy_products"&StrWhere,ObjCon TotalRecords=ObjRst.Fields("cc") ObjRst.Close //=================================== 信息昄 %>
<% If TotalRecords>0 Then TotalPage=Int(TotalRecords/PerPage) If PerPage*TotalPageTotalPage Then CurrPage=TotalPage If CurrPage=0 Then CurrPage=1 If ObjRst.State=1 Then ObjRst.Close ObjRst.Open StrSql&StrWhere&StrOrder,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 //开始显C图? k=1 Do While Not ObjRst.Eof And k<=PerPage %> <% ObjRst.MoveNext k=k+1 Loop k=k+1 //昄l束 Else Response.Write "" End If %>
二手机械 品牌 机型 机号 工作时数 产地 出厂q䆾 h
<%=ObjRst("title")%> <%=ObjRst("brand")%> <%=ObjRst("model")%> <%=ObjRst("img9_title")%> <%=ObjRst("img10_title")%>时 <%=ObjRst("place")%> <%=ObjRst("img10")%> <%=ObjRst("price")%> -<%If ObjRst("img1")<>"" Then %>" onclick="return pop(this.href);">览囄<%end if%>-
暂时没有相关信息
<% //=========== 分页? Response.Write "
" Response.Write "
" Response.Write "?&TotalPage&",当前W?&CurrPage&"?nbsp; " If CurrPage>1 Then Response.Write "<上页>" If CurrPage<下页>" Response.Write "
" //=================================== If ObjRst.State=1 Then ObjRst.Close If ObjCon.State=1 Then ObjCon.Close Set ObjRst=Nothing Set ObjCon=Nothing ////////////////////////////////////////// %>
Ʊ
ę́Ʊ ٶȷƽ̨ ΢齫Ѱ ٴ齫 ʮһѡ· 50Ʊ ݲԷapp