<%
if maxpageamount>=totalrecord then
scount=1
else
scount=page*maxpageamount-maxpageamount+1
end if
if page*maxpageamount>totalrecord then
ecount=totalrecord
else
ecount=page*maxpageamount
end if
%>
共 <%=totalrecord%> 筆符合 <%=keyword%> 的商品<%if totalrecord<>0 then%>; 共 <%=totalpage%> 頁,顯示第 <%=scount%> - <%=ecount%> 項;<%end if%>
<%if not rsProdList.eof Then%>
<%
rsProdList.Absolutepage=page
'For iPage = 1 To int(rsProdList.PageSize/whebbroken)
for nnn=1 to maxpageamount
ProdId=rsProdList("num")
ProdName=rsProdList("ProdName")
saleword=rsProdList("saleword")
PicSml=trim(rsProdList("PicSml"))
ttimelimit_price=rsProdList("timelimit_price")
if ttimelimit_price&""<>"" then
ttimelimit_Udate=rsProdList("timelimit_Udate")
ttimelimit_Utime=rsProdList("timelimit_Utime")
ttimelimit_Ldate=rsProdList("timelimit_Ldate")
ttimelimit_Ltime=rsProdList("timelimit_Ltime")
if ttimelimit_Udate&""<>"" then ttUdate=replace(ttimelimit_Udate,"/","")
if ttimelimit_Utime&""<>"" then ttUtime=replace(ttimelimit_Utime,":","")
if ttimelimit_Ldate&""<>"" then ttLdate=replace(ttimelimit_Ldate,"/","")
if ttimelimit_Ltime&""<>"" then ttLtime=replace(ttimelimit_Ltime,":","")
ttUdate=ttUdate&ttUtime
ttLdate=ttLdate&ttLtime
newtime=year(now)&right("0"&month(now),2)&right("0"&day(now),2)&right("0"&hour(now),2)&right("0"&minute(now),2)
if int(ttUdate)<=int(newtime) and int(ttLdate)>=int(newtime) then
else
ttimelimit_price=""
end if
end if
if PicSml="" then
PicSml=""
else
PicSml="
"
end if
if session("memberlogin")<>"" then
tmemberlogin=split(session("memberlogin"),"||")
loginnum=tmemberlogin(0) '會員自動編號
loginname=tmemberlogin(1) '會員姓名
account=tmemberlogin(2) '會員帳號
loginlevel=tmemberlogin(3) '會員等級
checkword=tmemberlogin(4) '檢查碼
end if
if loginlevel="1" then
haveprice="網路價:
"&rsProdList("Price2")&""
elseif loginlevel="2" then
haveprice="VIP價:
"&rsProdList("Price3")&""
elseif loginlevel="3" then
haveprice="高級VIP價:
"&rsProdList("Price4")&""
else
haveprice="網路價:
"&rsProdList("Price2")&""
end if
if ttimelimit_price<>"" then
haveprice="搶購價:
"&ttimelimit_price&""
end if
%>
>
-
-
<%=ProdName%>
<%=haveprice%>
<%
rsProdList.movenext
If rsProdList.EOF Then Exit For
Next
%>
<%end if%>
<%if totalpage>1 then%>
<%if int(page)<>1 then%>
第一頁
上一頁
<%end if%>
<%
if int(page)-4=<1 then
spage=1
else
spage=int(page)-4
end if
if int(page)+5>=totalpage then
epage=totalpage
else
epage=int(page)+5
end if
if spage=1 then
if totalpage>10 then
epage=10
else
epage=totalpage
end if
end if
for i=spage to epage
if i=int(page) then
%>
<%=i%>
<%
else
%>
<%=i%>
<%
end if
next
%>
<%if int(page)<>totalpage then%>
下一頁
最末頁
<%end if%>
<%end if%>