<%
sql="select * from pclass where id1="&ph
set rs = conn.execute(sql)
if not rs.eof then
if rs("id2")="0" then
mname=rs("name")
menu_title="
"
id1_ph=rs("id1")&",0"
else
id1_ph=rs("id1")&","&rs("id2")
ph_l=split(rs("id2"),",")
for i=ubound(ph_l)-1 to 0 step -1
sql_l="select * from pclass where id1="&ph_l(i)
set rs_l= conn.execute(sql_l)
if i=ubound(ph_l)-2 then mname=rs_l("name") end if
if mname="" then mname=rs("name") end if
if not rs_l.eof then
if i=ubound(ph_l)-1 then
menu_title=menu_title&"
目前位置 :
首頁 > <%=menu_title%>
<%if not rsProdList.eof then%>
<%
rsProdList.Absolutepage=page
'For iPage = 1 To int(rsProdList.PageSize/whebbroken)
for nnn=1 to 6
ProdId=rsProdList("num")
ProdName=rsProdList("ProdName")
saleword=rsProdList("saleword")
PicMid=trim(rsProdList("PicMid"))
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 PicMid="" then
PicMid=""
else
PicMid="
"
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
%>
<%
rsProdList.Absolutepage=page
rsProdList.move(6)
If not rsProdList.EOF Then
for nnn=1 to maxpageamount-6
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
%>
<%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%>