<%
// Option Explicit
Response.Buffer = True
// 特別提醒： 為保證頁(yè)面的美觀，本程序在生成HTML代碼的時(shí)候 加了樣式 ，樣式 類(lèi) 為 P92 ，請(qǐng)一定保證樣式表中有此類(lèi)。
//*******************************常量定義開(kāi)始
Const StrClass="1001" //* 定義當(dāng)前顯示新聞的類(lèi)別，根據(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="" //*定義超連接樣式類(lèi)
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
<%
//===================================
If ObjRst.State=1 Then ObjRst.Close
If ObjCon.State=1 Then ObjCon.Close
Set ObjRst=Nothing
Set ObjCon=Nothing
//////////////////////////////////////////
%>
