<%
caid=Easp.Get("caid")
if Easp.Has(caid) then
SqlWhere = " and [product].[caId]="&caid&""
else
SqlWhere = ""
end if
Dim Page,Result,Nav,i,SqlWhere
Set Page = new Cls_Page
Set Page.Conn = Easp.db.Conn
With Page
.PageSize = 8
.PageParm = "p"
.Database = "ac"
.Pkey="[product].id"
.Field="[product].[id],caId,model,groupPic,bigPath,ca_Title"
.Table="[product],[bigCategory]"
.Condition= "[product].[caId]=[bigCategory].[id] "&SqlWhere&""
.OrderBy="product.createTime desc"
.RecordCount = 0
.NumericJump = 2
.Template = "{$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage}"
.FirstPage = "第一页"
.PreviousPage = "上一页"
.NextPage = "下一页"
.LastPage = "最后一页"
.NumericPage = " {$PageNum} "
End With
Result = Page.ResultSet()
nav = Page.Nav()
If IsNull(Result) Then
Easp.W("
No Records")
Else
For i=0 To Ubound(Result,2)
idData = Result(0,i)
caId = Result(1,i)
model = Result(2,i)
groupPic = Result(3,i)
bigPath = Result(4,i)
ca_Title = Result(5,i)
select case caId
case 5
sheight=310
pheight=278
className="pic6"
case 6
sheight=265
pheight=239
className="pic2"
case 7
sheight=220
pheight=180
className="pic5"
case 8
sheight=220
pheight=180
className="pic5"
case 9
sheight=268
pheight=238
className="pic4"
case 10
sheight=268
pheight=238
className="pic4"
case 11
sheight=208
pheight=181
className="pic3"
case 12
sheight=265
pheight=239
className="pic2"
case 14
sheight=220
pheight=186
className="pic8"
case else
sheight=280
pheight=238
className="pic"
end select
Easp.W("
")
Next
end if
%>
<%
'输出分页信息
if Easp.Has(Result) then
Easp.W("