<%// Option Explicit
Response.Buffer = True
// 特別提醒： 為保證頁面的美觀，本程序在生成HTML代碼的時(shí)候 加了樣式 ，樣式 類 為 P92 ，請(qǐng)一定保證樣式表中有此類。
//*******************************常量定義開始
Const StrClass="1003" //* 定義當(dāng)前顯示新聞的類別，根據(jù)客戶實(shí)際情況定
Const PerPage=15 //* 定義每頁顯示的新聞條數(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="" //* 定義搜索，空 表示沒有，值表示顯示的提示文本。
Const IsClk=1 //*定義是否顯示點(diǎn)擊次數(shù)
Const IsDte=1 //*定義是否顯示日期
Const CurrFile="news.asp" //*定義套用此腳本的頁面文件名，必須為ASP文件
Const ViewOpen="" //*定義彈出的窗口文件名。
Const ViewCurr="detail.asp" //*定義非彈出時(shí)候，瀏覽詳細(xì)的頁面文件名。
Const HrefClass="" //*定義超連接樣式類
Const MidTbBg="#FFFFFF" //* 定義數(shù)據(jù)區(qū) 與 翻頁 表格之間 ,區(qū)域區(qū)別的表格的背景色,一定要帶 # 號(hào)
Const PgTbBg="#EFEFEF" //* 定義顯示頁數(shù)的表格的底色 ,一定要帶 # 號(hào)
//***：ViewOpen 和 不能同時(shí)非空，也必須不同時(shí)為空
//*******************************常量定義結(jié)束
//◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
//所有控制參數(shù)的定義在上面進(jìn)行，下面的腳本修改請(qǐng)聯(lián)系技術(shù)開發(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,imgtitle1,imgtitle2,imgtitle3,detail FROM customNEWS" //* 定義查詢語句
StrWhere=" Where dealerid="&CorpNo&" And ispublished=1 And category ='"&StrClass&"'" //定義查詢條件
StrOrder=" Order by 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
//=================================== 信息顯示
%>
崗位名稱
任職要求
人數(shù)
發(fā)布日期
<% 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
//////////////////////////////////////////
%>
