h在线看,日本一线天无码A片一区二区三区,乱伦熟女视频,无码视频国产,久久久国产一区二区三区人妻动漫

銷售網(wǎng)絡(luò)

遍布全國(guó)各地的銷售網(wǎng)絡(luò)，查詢方便

您現(xiàn)在的位置：首頁(yè) >> 零配件手冊(cè)

我們提供 Adobe PDF（可移植文件格式）格式的零件目錄文件。希望與您成為朋友、資源共享！

<% // Option Explicit Response.Buffer = True // 特別提醒： 為保證頁(yè)面的美觀，本程序在生成HTML代碼的時(shí)候 加了樣式 ，樣式 類 為 P92 ，請(qǐng)一定保證樣式表中有此類。 //*******************************常量定義開(kāi)始 Const StrClass="1002" //* 定義當(dāng)前顯示新聞的類別，根據(jù)客戶實(shí)際情況定 Const PerPage=15 //* 定義每頁(yè)顯示的新聞條數(shù) Const MarChr=40 //* 定義新聞標(biāo)題顯示的最多字?jǐn)?shù) Const Dotimg="" //* 定義起頭的小圖標(biāo)，存放路徑請(qǐng)存放與當(dāng)前目錄下的 images 目錄 Const BgImg="" //* 定義相臨2條新聞間的分隔單元格的填充圖，存放同上， 圖片的標(biāo)準(zhǔn)是1*1 個(gè)像素 Const SchTitle="" //* 定義搜索，空 表示沒(méi)有，值表示顯示的提示文本。 Const IsClk=1 //*定義是否顯示點(diǎn)擊次數(shù) Const IsDte=1 //*定義是否顯示日期 Const ViewOpen="" //*定義彈出的窗口文件名。 Const ViewCurr="detail.asp" //*定義非彈出時(shí)候，瀏覽詳細(xì)的頁(yè)面文件名。 Const HrefClass="" //*定義超連接樣式類 Const MidTbBg="#FFFFFF" //* 定義數(shù)據(jù)區(qū) 與 翻頁(yè) 表格之間 ,區(qū)域區(qū)別的表格的背景色,一定要帶 # 號(hào) Const PgTbBg="#EFEFEF" //* 定義顯示頁(yè)數(shù)的表格的底色 ,一定要帶 # 號(hào) //***：ViewOpen 和 不能同時(shí)非空，也必須不同時(shí)為空 //*******************************常量定義結(jié)束 //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ //所有控制參數(shù)的定義在上面進(jìn)行，下面的腳本修改請(qǐng)聯(lián)系技術(shù)開(kāi)發(fā)人員◆◆ //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase //庫(kù)連接 //=================================== StrSql="Select ID,TITLE,PUBDATE,PUBTIME,img1,img2,img3,img4,img5,img6,color,flg,clicked FROM customNEWS" //* 定義查詢語(yǔ)句 StrWhere=" Where dealerid="&CorpNo&" And ispublished=1 And category ='"&StrClass&"'" //定義查詢條件 StrOrder=" Order by color desc,pubdate desc,id desc" //定義排序規(guī)則 StrQry="" //=================================== Dim TotalPage,TotalRecords,CurrPage,Flg,i 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 customNEWS "&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 i=0 Do While Not ObjRst.Eof And i <% ObjRst.MoveNext Loop Else%> <%End If %>

	" target="_blank"><%=ObjRst.Fields("title")%>		<%=ObjRst.Fields("clicked")%>
暫無(wú)記錄!

每頁(yè)<%=Perpage%> 條 ，共 <%=TotalPage%> 頁(yè)，<%=TotalRecords%>條  首頁(yè)  上頁(yè)  下頁(yè)  末頁(yè)  轉(zhuǎn) <%For i=1 To TotalPage%> ><%=i%> <%Next%> 頁(yè)