%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
'****************************************************
' Software name:Kesion CMS 8.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New GroupBuyIndex
KSCls.Kesion()
Set KSCls = Nothing
Class GroupBuyIndex
Private KS, KSR,KSUser,Param,categoryid,PriceArr
Private GroupBuy,K,CurrentPage,totalPut,MaxPerPage,hasbuynum
Private Sub Class_Initialize()
If (Not Response.IsClientConnected)Then
Response.Clear
Response.End
End If
MaxPerPage=2 rem 定义每页显示条数
PriceArr=Array("所有|1=1","50元以下|price<50","50~100元|price>=50 and price<=100","100~200元|price>=100 and price<=200","200~300元|price>=200 and price<=300","300~500元|price>=300 and price<=500","500~1000元|price>=500 and price<=1000","1000元以上|price>1000") rem 定义按价格搜索
Set KS=New PublicCls
Set KSR = New Refresh
End Sub
Private Sub Class_Terminate()
Call CloseConn()
Set KS=Nothing
End Sub
Public Sub Kesion()
Call showmain()
End Sub
%>
<%
Sub ShowMain()
Dim FileContent
FileContent = KSR.LoadTemplate(KS.Setting(137))
FCls.RefreshType = "groupbyIndex" '设置刷新类型,以便取得当前位置导航等
FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
GetQueryParam
FileContent=RexHtml_IF(FileContent)
LoadGroupBuyList
Immediate=false
Scan FileContent
Templates=KSR.KSLabelReplaceAll(Templates)
Response.write Templates
End Sub
Sub ParseArea(sTokenName, sTemplate)
Select Case lcase(sTokenName)
case "groupbuylist"
If IsArray(GroupBuy) Then
hasbuynum=0
For K=0 To Ubound(GroupBuy,2)
hasbuynum=KS.ChkClng(conn.execute("select sum(amount) from ks_orderitem i inner join ks_order o on i.orderid=o.orderid where o.ordertype=1 and i.proid=" & GroupBuy(0,k))(0))
Scan sTemplate
Next
End If
End Select
End Sub
Sub ParseNode(sTokenType, sTokenName)
Select Case lcase(sTokenType)
case "groupbuy"
Select case lcase(sTokenName)
case "todaygroupbuylink"
If KS.ChkClng(KS.Setting(179))=1 Then Echo KS.GetDomain & "groupbuy/" Else Echo KS.GetDomain & "shop/groupbuy.asp"
case "historygroupbuylink"
If KS.ChkClng(KS.Setting(179))=1 Then Echo KS.GetDomain & "groupbuy/history/" Else Echo KS.GetDomain & "shop/groupbuy.asp?flag=history"
case "showcategory" call showcategory()
case "showprice" call showprice()
case "showpage"
echo KS.ShowPage(totalput, MaxPerPage, "", CurrentPage,false,false)
End Select
case"product"
Select case lcase(sTokenName)
case "floor" echo k+1
case "id" echo GroupBuy(0,k)
case "linkurl" If KS.ChkClng(KS.Setting(179))=1 Then Echo KS.GetDomain & "groupbuy/show-" &GroupBuy(0,k) & ".html" Else Echo KS.GetDomain & "shop/groupbuyshow.asp?id=" & GroupBuy(0,k)
case "cartlink" If KS.ChkClng(KS.Setting(179))=1 Then Echo KS.GetDomain & "groupbuy/cart-" &GroupBuy(0,k) & ".html" Else Echo KS.GetDomain & "shop/groupbuycart.asp?id=" & GroupBuy(0,k)
case "title" echo GroupBuy(1,k)
case "price_original" echo GroupBuy(2,k)
case "price" echo GroupBuy(3,k)
case "discount" echo GroupBuy(4,k)
case "save" echo GroupBuy(2,k)-GroupBuy(3,k)
case "photourl" if KS.IsNul(GroupBuy(5,k)) Then Echo KS.GetDomain & "images/nopic.gif" Else Echo GroupBuy(5,k)
case "note" echo GroupBuy(9,k)
case "adddate" echo year(GroupBuy(7,k)) & "年" &month(GroupBuy(7,k)) & "月" & day(GroupBuy(7,k)) & "日"
case "hasbuynum" echo hasbuynum
case "limitbuynum" echo GroupBuy(11,k)
case "minnum" echo GroupBuy(10,k)
case "showclass"
if (k+1) mod 2=0 then echo " class=""ma_r"""
case "timetips"
if GroupBuy(12,k)=1 then
echo "本团购已锁定"
Elseif GroupBuy(13,k)=1 then
echo "本团购已结束"
ElseIF DateDiff("s",now(),GroupBuy(7,k))>0 Then
echo "本次团购未开始,开始时间:" & GroupBuy(7,k) & ""
Elseif DateDiff("s",now(),groupbuy(6,k))<0 then
echo "本次团购结束于
" & groupbuy(6,k) & ""
else
echo "距离团购结束还有:
"
echo "
") if (CurrentPage>1) then pageStr=PageStr & "上一页" if (CurrentPage<>PageNum) then pageStr=PageStr & "下一页" pageStr=pageStr & "首 页" Dim startpage,n,j if (CurrentPage>=7) then startpage=CurrentPage-5 if PageNum-CurrentPage<5 Then startpage=PageNum-10 If startpage<0 Then startpage=1 n=0 For J=startpage To PageNum If J= CurrentPage Then PageStr=PageStr & " " & J &"" Else PageStr=PageStr & " " & J &"" End If n=n+1 : if n>=10 then exit for Next PageStr=PageStr & " 末页" pageStr=PageStr & " 共" & totalPut & "条记录,分" & PageNum & "页 |